При дисконекте клиента не уменьшается кол-во активных соеденений

← →
BDyatel (2004-06-01 16:43) [0]

Метка laCLIENTSCOUNT отображает кол-во подключений, а ее хинт - список хостов. ClientsList : TStringList; - список клиентов

Что я делаю не так:

procedure TfmMAIN.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var i : integer;
LHint : string;
begin
ClientsList.Clear;
for i:= 0 to ServerSocket.Socket.ActiveConnections - 1 do
ClientsList.Add(ServerSocket.Socket.Connections[i].RemoteHost);
laCLIENTSCOUNT.Caption:= "Клиентов " + IntToStr(ClientsList.Count);
LHint:= "";
for i:= 0 to ClientsList.Count - 1
do LHint:= LHint + ClientsList.Strings[i] + #13;
laCLIENTSCOUNT.Hint:= Copy (LHint, 1, Length(LHint) - 1);
end;

PS: Извените если это faq

← →
Digitman © (2004-06-01 17:18) [1]

счетчик уменьшится ПОСЛЕ завершения обработки этого события

При дисконекте клиента не уменьшается кол-во активных соеденений Найти похожие ветки