Скачать: CL | DM;

Проблема с IdMappedPortTCP   Найти похожие ветки 

← →
dzr_gregory   (2007-06-12 16:15) [0]

Есть такая проблема. В приложении есть n компонентов TIdMappedPortTCP (Indy 10, Delphi 7). Есть общий для всех компонентов обработчик события OnConnect:
procedure TForm1.IdMappedPortTCP1Connect(AContext: TIdContext);
begin
 // здесь мы что-то делаем...
end;


Вопрос № 1: как узнать, какой компонент вызвал данный обработчик?
Вопрос № 2: есть процедура добавления строки в лог:
procedure TForm1.AddLogToStr(Str: string);
begin
 csAddLogToStr.Enter;
 try
   memoLog.Lines.Add(DateTimeToStr(Now) + " ---> " + Str);
 finally
   csAddLogToStr.Leave;
 end;
end;
Переменная csAddLogToStr типа TCriticalSection. Процедура вызывается из обработчика OnConnect (который вызывается, как я полагаю, из собственного потока IdMappedPortTCP). Проблема состоит в том, что при попытке развернуть минимизированную форму с memoLog программа подвисает. Я полагаю, что это происходит в момент отрисовки memoLog. Как с этим бороться?

---

← →
Сергей М. ©   (2007-06-13 09:42) [1]

> как узнать, какой компонент вызвал данный обработчик?


С какой целью ?


> Как с этим бороться?


Посылать (SendMessage, PostMessage) форме Form1 некое предопределенное сообщение, при получении и обработке которого указанная строка будет добавляться в мемо.

---

← →
dzr_gregory   (2007-06-13 15:43) [2]

> > как узнать, какой компонент вызвал данный обработчик?
>
>
> С какой целью ?
>
>
> > Как с этим бороться?
>
>
> Посылать (SendMessage, PostMessage) форме Form1 некое предопределенное
> сообщение, при получении и обработке которого указанная
> строка будет добавляться в мемо.

1. Пишу программу Port Mapper для маппинга портов. Там может быть произвольное количество правил, для каждого динамически создается компонент IdMappedPortTCP. При подключении клиента хотелось бы узнать, согласно какого правила произошло подключение. Да и в общем любопытства ради хотелось знать, возможно ли в принципе такое...
2. Насчет SendMessage огромное спасибо, что-то в голову даже не пришло такое. Буду пробовать. В принципе это проблема синхронизации между потоками, читал что-то про MREW(MultiRead-EclusiveWrite) списки, возможно и они помогут...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c