procedure TForm1.FormCreate(Sender: TObject);
begin
list := TStringList.Create ();
end;
procedure TForm1.aaaClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
list.Add(socket.RemoteAddress);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
list.Free ();
end;
...
index := list.IndexOf(ServerSocket.Socket.Connections[i].RemoteAddress) + 1;
if index <> 0 then
showmessage ('第'+inttostr (index)+'个连接')
else
showmessage ('未找到');