Добрый день.
Делается на Indy 10, Delphi 2009.

Проблема следующая. Если попытаться сделать IdTCPServer1.Active := False; приложение виснет наглухо.
Почитав интернет решил сделать отключение всех подключений перед остановкой. Код:


Если подключение идет с той же машины, где находится приложение сервера, то все ОК. Отключает всех и закрывается.
Если соединения с других машин, то виснет.

Пробовал в OnExecute сервер делать:
AContext.Connection.Socket.Close; Закрывает любое соединение.

Подскажите, пож-та, как отключить все соединения корректно.
Заранее благодарю.

Уточнение. Соединения отключает и после этого зависает.

на долго? что с таймаутами?

Засек время. После 5 минут висит. При попытке подключиться к нему (во время висения), виснет клиент, который на Indy10. Подключаясь через пакет utl_tcp Oracle пишет, что нет слушателя. Про какие именно тайм-ауты идёт речь?

попробуй шедулер потоков поставить явно (TIdSchedulerOfThreadDefault) и перед закрытием делать
Server.Scheduler.AcquireYarn;
Server.Active := false;
(видел в исходниках инди, разрешает исключения, судя по коментарию, а разрыв коннекта сервером это явно исключение)

Спасибо. Частично помогло. Теперь виснет через раз :(

Использую TIdTCPServer, TIdAntiFreeze, TIdSchedulerOfThreadDefault

Изначально взял это из примера Indy10. Он кстати, тоже виснет:)

> Теперь виснет через раз :(
похоже зависит от того в каком месте обработка текущих соединений...

а если "радикально",  Server.Free; ??? вместо Server.Active := false;
ну, вылезет ексепт, заблокировать да и все, лишь бы не висело.

или вот еще проверить  
Server.Scheduler.ActiveYarns.Clear; //AcquireYarn;

> Server.Scheduler.ActiveYarns.Clear; //AcquireYarn;

Вот так все вообще отлично. Протестил раз 15. Даже вариант, когда все соединения, что-то передают серверу. Отключает всех на ура. Спасибо большое sniknik! ;)

Привет. А я пользуюсь кодом из первого сообщения и все ок. Подскажите, пож-та, как на стороне сервера проверять отключившиеся соединения, но которые еще числятся на сервере(т.е. поток есть и событие onDissconnect не сработало)? Спасибо

"спросить" клиента - нет овета - отрубаем его

Для Indy 9 проверка на дисконнект:

procedure TfrmMain.ServerExecute(AThread: TIdPeerThread);
begin
Athread.Connection.CheckForDisconnect(False, True);
if Athread.Connection.Connected then begin
....
end;
end;

Для Indy 9 проверка на дисконнект:

procedure TfrmMain.ServerExecute(AThread: TIdPeerThread);
begin
Athread.Connection.CheckForDisconnect(False, True);
if Athread.Connection.Connected then begin
....
end;
end;

Для Indy 9 проверка на дисконнект:

procedure TfrmMain.ServerExecute(AThread: TIdPeerThread);
begin
Athread.Connection.CheckForDisconnect(False, True);
if Athread.Connection.Connected then begin
....
end;
end;

Теперь вылезла проблема при слишком частых запросах к серверу. Опять завис. Пока отключаю 10 клиентов приходит запрос на новое подключение (через 0,03 секунды). Проблему решил радикально:
На обработчик OnClose формы:

List:= Server.Threads.LockList;
Server.OnExecute:= nil;
Server.OnConnect:= nil;
Server.OnDisconnect:= nil;
try
 for I:= 0 to List.Count - 1 do TIdPeerThread(List[I]).Connection.Disconnect;
finally
 Server.Threads.UnlockList;
end;
Server.Active:= False;

Теперь рубит всех и не виснет.