关于TServerSocket控件的问题---100分

Question

设置全局变量count
ServerSocket1ClientConnect: 
count：＝ count＋1；
ServerSocket1ClientDisconnect
count：＝ count－1；

Answer 1

不用，就是：ServerSocket1.Socket.ActiveConnections

Answer 2

太感谢了!能不能在onRead事件发生时,得到connection的值,得知是哪个线程(是叫线程嘛?)在发送信息?谢谢!小弟超级低手,见效了!:p

Answer 3

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
beginend;上面中在ServerSocket1.Clientread中Sender是ServerSocket1, Socket是连接者（存有客户端的信息），你可以用它跟ServerSocket1.Socket.Connection[i]比较一下，就可以知道了。procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  I: Integer;
begin
  for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
    if Socket = ServerSocket.Socket.Connection[I] then
    begin
      ShowMessage('找的就是你了。'); 
      break;
    end;
end;