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

Вниз

TIdTCPServer. Корректное завершение работы   Найти похожие ветки 

 
Serguar   (2004-08-19 14:23) [0]

Здравствуйте. Подскажите как корректно завершить работу TIdTCPServer при подключенных к нему клинетах TIdTCPClient.


 
alienserg   (2004-08-19 15:29) [1]

пробуй
IdTCPServer1.Active:=false;
По идее он все сам должен сделать.
Если будут проблемы, то делай
   var
       List: TList;
       I: Integer;
   begin
       List := IdTCPServer1.Threads.LockList;
       try
           for I := 0 to List.Count-1 do
           begin
               with TIdPeerThread(List[I]) do
               begin
                   try
                       if Connection then Connection.DisconnectSocket;
                   except end;
               end;
           end;
       finally
           IdTCPServer1.Threads.UnlockList;
       end;
   end;


Еще советую заходить на
news://news.atozedsoftware.com/atozedsoftware.indy.servers.tcp
и другие, которые в
news://news.atozedsoftware.com/atozedsoftware.indy
там полно хороших ответов
Если через Web, то
http://www.atozed.com/WebForums.html



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

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

Наверх




Память: 0.46 MB
Время: 0.022 c
14-1096895691
Zacho
2004-10-04 17:14
2004.10.24
Дефрагментация в XP


14-1097066132
Igorek
2004-10-06 16:35
2004.10.24
Отладка многопоточных приложений в Дельфи / Билдере


3-1095924545
Ш-К
2004-09-23 11:29
2004.10.24
EventAlerter в MSSQL (как в IB)


4-1095455747
НовичОк
2004-09-18 01:15
2004.10.24
Иконки на рабочем столе


1-1097343365
Zahar
2004-10-09 21:36
2004.10.24
Как поменять тип курсоса для TitleBar ???