Узнать количество подключенных пользователей

[Aleksandr]

var
i,p:integer;
begin
p:=0;
   for i := 1 to ServerSocket.Socket.ActiveConnections-1 do
   begin
   p:=p+1;
   end;
   RzGlyphStatus1.Caption:=IntToStr(p);

Что я делаю не так? Выводит всегда 0.

[Serge_Bliznykov]

во-первых, ваш код изначально бессмысленен.
зачем в цикле наращивать переменную, если Вы уже заранее знаете, сколько раз выполните цикл
достаточно:

RzGlyphStatus1.Caption:=IntToStr( ServerSocket.Socket.ActiveConnections );

во-вторых, почему Вы цикл от 1 начинаете?

в-третьих, а Вы уверены, что ServerSocket.Socket.ActiveConnectio ns содержит число, равное количеству подключенных пользователей?!


извините, что пост получился неконструктивный, чистая критика, конструктивного совета дать не могу...

[Aleksandr]

У меня если я долго не отправляю сообщения, а потом отправлю выскакивает такая ошибка