Ожидание завершения потока при выключении службы

[3D Hunter]

Здравствуйте. Есть служба, в ней работает серверный поток подключений по tcp. Как правильно реализовать, чтобы при завершении работы служба ждала завершения работы слушающего потока подключений, и пока последний не завершится, выход не произойдет. Слушающий поток может завершаться некое время, т.к. ожидает завершения работы клиентских потоков (конечная запись данных, завершение соединения и т.п.).
Такой код приводит к зависанию службы:

  FTcpServerThread.FreeOnTerminate:=False;
...
procedure TMyService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  FTcpServerThread.Terminate;
  FTcpServerThread.WaitFor; //видимо здесь служба перестает обрабатывать сообщения SCM и умирает
  FreeAndNil(FTcpServerThread);
end;

Теоретически, насколько я понимаю, зависания быть не должно, т.к. обработкой сообщений занимается поток TServiceThread. А WaitFor вызывает главный поток службы... Поправьте меня, если не прав.
Надеюсь, объяснил доходчиво. Буду рад предложенным решениям!

[Человек_Борща]

скм будет считать, что сервис не работает, только после того как вы установите Stopped:=true.

[3D Hunter]

т.е. если я в событии сразу поставлю Stopped:=true, то этот код выполнится?

[3D Hunter]

к сожалению не работает. Без разницы, если вставляю Stopped:=True в начале или в конце. Что-то не так делаю?

[veniside]

> Что-то не так делаю?

Вызов FTcpServerThread.Terminate() просто выставляет Terminated в True.
Внутри FTcpServerThread.Execute() это свойство нужно переодически проверять.
Если такой проверки нет, WaitFor() никогда не вернёт управление.

[3D Hunter]

есть проверка, цикл while not terminated do...

[veniside]

тогда нужен лог в точках:
- перед выходом из Execute(), чтобы знать, что поток завершился
- сразу после входа и перед выходом из ServiceStop()

иначе можно долго гадать, где кто виснет.

[3D Hunter]

ок... попробую. А вообще скажем если просто приложение, то это решается легко. Но вот как быть в случае со службой... тут же особенности реализации...

[Человек_Борща]

Что вам делать? Логи, логи, логи и только логи. Никакой интерактивности..
Только логи.

Вот там и фиксируйте все что происходит.

p.S. сам недавно писал приложение-службу в котрой выполнялся поток tthread.
то ещё развлечение.....

[Dee63]

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

Сам сталкивался недавно с таким. просто проще и красивее