Serverprogramm - Frage wegen multiplen clients

[magicshadow]

Noch was von mir!

Ich würde mir an deiner stelle die SocketHandle eigenschaft der connection merken, da wenn sich client 2 connected und danach client 1 deconnected die connections[i] variable verändert, die SocketHandle eigenschaft bleibt jedoch gleich!
Auserdem kann man damit einfach beim ClientRead herrausfinden, welcher Client einem was geschickt hat (einfach socket.SocketHandle und alle Serversocket1.socket.connections[i].SocketHandle vergleichen)
BSP.:

Code:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var i:byte;
    a:string;
begin
for i:=0 to serversocket1.socket.activeconnections-1 do if socket.sockethandle = serversocket1.socket.connections[i].SocketHandle then showmessage(inttostr(i));
a:=socket.receivetext;
end;
end;

Wenn's da eine einfachere Methode gibt wäre ich natürlich sehr interesiert diese zu erfahren!