Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.01;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.076 c
1-1089956774
Valeri
2004-07-16 09:46
2004.08.01
Не запускается программа...


4-1087799466
ZHK
2004-06-21 10:31
2004.08.01
FreeLibrary


1-1089474717
SeDOy
2004-07-10 19:51
2004.08.01
Управление mdi-окнами


14-1089804747
YurikGL
2004-07-14 15:32
2004.08.01
Работать что-бы трудиться


14-1089915556
Rouse_
2004-07-15 22:19
2004.08.01
Опрос...