Синхронизация в indy

[Altera]

Всем привет!
Искал в инете но не нашёл.
Короче дело обстоит так. Сервер должен при некоторых командах клиента перерисовать интерфейс. Проблема в том, что обработчик работает в потоке. Как мне сделать синхронизацию?

[Квэнди]

Подключи модуль idsync и вызови метод класса TidSync.Synchronize или определи свой синхронизующий метод и вызови TIdSync.SynchronizeMethod(твой метод);

[Altera]

Сообщение от Квэнди

Подключи модуль idsync и вызови метод класса TidSync.Synchronize или определи свой синхронизующий метод и вызови TIdSync.SynchronizeMethod(твой метод);

Сделал так

procedure Tmain_wnd.c_showMessage(AContext: TIdContext; const param: string);
begin
   TidSync.Synchronize; //E2076 This form of method call only allowed for class methods 
   showMessage(param)
end;

procedure Tmain_wnd.c_showMessage(AContext: TIdContext; const param: string);
var
s: TidSync;
begin
   s.Synchronize; 
   showMessage(param)
end;

И толку нету

procedure Tmain_wnd.c_showMessage(AContext: TIdContext; const param: string);
begin
   TidSync.SynchronizeMethod(showm); // showMessage('someText');
end;

Сработало!


А вот так не работает.

tIdSync.SynchronizeMethod(close);

[Квэнди]

Сделал так
Код:

procedure Tmain_wnd.c_showMessage(AContext: TIdContext; const param: string);
begin
TidSync.Synchronize; //E2076 This form of method call only allowed for class methods
showMessage(param)
end;
Код:

procedure Tmain_wnd.c_showMessage(AContext: TIdContext; const param: string);
var
s: TidSync;
begin
s.Synchronize;
showMessage(param)
end;
И толку нету

правильно, метод TidSync.Synchronize может быть вызван только из метода класса, а у вас метод екземпляра судя по всему

А вот так не работает.
Код:

tIdSync.SynchronizeMethod(close);

а и не должно- особеность реализации close в vcl

[Altera]

Сообщение от Квэнди

особеность реализации close в vcl

Это только с close? или ещё есть, и как мне быть?

[Квэнди]

Вы можете определить свой метод, внутри которого будет вызван close и все должно работать корректно

[Altera]

Нет, ошибка!
tIdSync.SynchronizeMethod(selfClose );

...
tIdSync.SynchronizeMethod(selfClose);
...

procedure Tmain_wnd.selfClose;
begin
   close;
end;

Функция должна вызываться при переделённой команде.
Грубо говоря вот так:

procedure Tmain_wnd.serverExecute(AContext: TIdContext);
var
cmd: string;
begin
   cmd := AContext.connection.ioHandler.readLn;
   if sameText(cmd, 'close') then 
      tIdSync.SynchronizeMethod(selfClose);   
end;

[Квэнди]

Хм... вы при активном потоке хотите завершить приложение ? в любом случае AV вам обеспечено )

[Altera]

Сообщение от Квэнди

Хм... вы при активном потоке хотите завершить приложение ? в любом случае AV вам обеспечено )

Ну а как тогда?

[Пепел Феникса]

может на сообщениях сделать?