Скачать: CL | DM;

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

← →
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]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c