현재 접속된 클라이언트수를 보여주고 싶은데...
그게 잘 안되네여...
서버쪽에는 이렇게 구현했습니다.
procedure TfrmServer.sSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
stbStatus.Panels[0].Text := 'Client Connected - [' +
IntToStr(sSocket.Socket.ActiveConnections) + ']';
end;
procedure TfrmServer.sSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
stbStatus.Panels[0].Text := 'Client Connected - [' +
IntToStr(sSocket.Socket.ActiveConnections) + ']';
end;
위와같이 구현한것이 잘못된건가요?
클라이언트에서 접속이 끊기면...서버쪽에 ClientDisconnect 이벤트가 발생할텐데..
아닌가여?
만약 서버에 하나의 클라이언트가 붙으면 ActiveConnections가 1인데..
클라이언트가 Disconnect를 해도 왜 ActiveConnections이 1인지...
고수님들의 자세한 설명 바랍니다..