TIdTCPServer. Корректное завершение работы [D7, WinXP]
Serguar © (2004-08-19 14:23:00)
Здравствуйте. Подскажите как корректно завершить работу
TIdTCPServer при подключенных к нему клинетах TIdTCPClient.
alienserg (2004-08-19 15:29:00) [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
Наверх 
ЧАТ |
Орешник |
|
