При дисконекте клиента не уменьшается кол-во активных соеденений [D5, Win95/98, Win2k, WinXP]
BDyatel © (2004-06-01 16:43:00)
Метка 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:00) [1]
счетчик уменьшится ПОСЛЕ завершения обработки этого
события
Наверх 
ЧАТ |
Орешник |
|
