IdTCPServer повисание приложения

[sosyamba]

Все привет!

Имеется сервер IdTCPServer. При подключении к серверу клиента, клиент добавляется в список Clients: TThreadList;

  TClient = class(TObject)
    NE: String;
    CN: String;
    Connected: TDateTime;
    LastAction: TDateTime;
    Context: TIdContext;
  end;

Когда я хочу получить доступ к списку в обработчике IdTCPServer.OnExecute я использую такую конструкцию:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
.....
  List: TList;
  X: Integer;
begin
.....
  List := Clients.LockList;
  try
    X := List.Count;
  finally
    Clients.UnLockList;
  end;
.....

и вроде все нормально, днями работает нормально, но когда я точно такую же конструкцию ставлю в обработчике TTimer у меня через пару минут приложение наглухо повисает.

[BARNEY]

IdTCPServer1Execute на каждое подключение САМ создаёт отдельный поток, таймер такого не умеет

[sosyamba]

Сообщение от BARNEY

IdTCPServer1Execute на каждое подключение САМ создаёт отдельный поток, таймер такого не умеет

это и понятно. посмотрите что я хочу получить в таймере (количество клиентов).

[BARNEY]

может юзать System.Classes.TThread.Synchronize
или critical section delphi

[sosyamba]

Сообщение от BARNEY

может юзать System.Classes.TThread.Synchronize
или critical section delphi

  List := Clients.LockList;
  try
    X := List.Count;
  finally
    Clients.UnLockList;
  end;

вот этот код еще и оборачивать в TCriticalSection? получается двойная блокировка. так же вроде нельзя.

почему то происходит конфликт между потоками и основным потоком программы.
между потоками в IdTCPServer конфликта нет, стабильно работают.
как только включаю таймер программа зависает через пару минут.

[eoln]

Не нужно ещё одну КС. В приведённом отрывке кода нет ответа.
Вероятно, LockList из другого потока блокирует главный поток (пусть даже на доли секунды) во время очередного тика таймера, но сразу после этого идёт обращение к форме или её полям (переменным класса и т.п.). Таким образом поток заблокировал форму (т.к. таймер скорее всего на форме), но ждёт доступа к ней чтобы что-то прочитать/записать с неё. Это и приводит к блокировке блокировщика.

Писано наугад, т.к. подробных кодов нет. Но если полный код был, то всё равно написал то же самое, т.к. было бы лень ))

[sosyamba]

Разрешено ли так делать в обработчике IdTCPServer1.OnExecute вызвать IdTCPServer1.Contexts.LockList; ?
может из за этого что глючит?

[eoln]

Делать можно. Может ли глючить? - Глючить может даже от мёда, если его холодной водой запивать. По отдельности можно многое, а вот в тандеме нет.
На лицо двойная блокировка. Между любыми LockList/UnLockList нельзя ничего синхронизировать (или лезть в другие потоки без синхронизации).
P.S. Можно безопасно синхронизировать только то, что не имеет общих ресурсов из области КС

[sosyamba]

OnExecute - выполняется НЕ в основном потоке приложения
а OnDisconnect ? в основном или нет?