Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Как грамотно отключить от IdTCPServer всех IdTCPClient   Найти похожие ветки 

 
Layner ©   (2006-11-17 15:40) [0]

Опять пример "IdTCPDemo"... При закрытии сервера - если были подключены клиенты, то сервер выдает ошибку. Поэтому добавил проц. отключения, код ниже. Сама по себе работает без ошибочно, но если данный код поместить в
OnClose сервера, то код не отрабатывает, пишет ошибку "Terminate Thread Timeout"

procedure Tfmain.Button2Click(Sender: TObject);
var
i: integer;
RecClient: PClient;
RecThread: TIdPeerThread;
begin
  with Clients.LockList do
  try
   for i := 0 to Count-1 do
   begin
     RecClient := Items[i];
     RecThread := RecClient.Thread;
     RecThread.Connection.Socket.Close;
    end;
   finally
     Clients.UnlockList;
   end;
end;


 
untermensch   (2006-11-17 15:55) [1]

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


 
DVM ©   (2006-11-17 16:17) [2]

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



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

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
15-1177467150
Slider007
2007-04-25 06:12
2007.05.27
С днем рождения ! 25 апреля


9-1149530476
-=OpeR=-
2006-06-05 22:01
2007.05.27
Помогите с алгоритм оптимального размещения


3-1173524269
@dimon
2007-03-10 13:57
2007.05.27
Копирование Базы SQL SERVER 2000


8-1158306298
megasecure
2006-09-15 11:44
2007.05.27
Графика в Delphi


4-1166801041
DevilDevil
2006-12-22 18:24
2007.05.27
Быстрое Корректное перемещение Окна