At holde styr på connections

Nej fakstisk ikke, du har kun 2 ting hvor på du kan holde styr på en client. ip\'en og Socket.ID\'en.
En \"god\" måde at holde styr på dem er at have en listbox, hvor du går følgende på en ny connect:

ListBox1.TabWidth := 50;
ListBox1.Items.Add(\'Client_IP\'+^I+\'Client_ID\') ;

...

Når en client så disconnecter kører du bare lige igennem listbox\'ens items:

Var
I:integer;
begin
For I := 0 to ListBox1.items.count-1 do
begin
if (pos(\'Client_ID\', ListBox1.items.strings[I] <>0) or (pos(\'Client_IP\', ListBox1.items.strings[I] <>0)) then
begin
ListBox1.items.Delete(I);
exit;
end;


Håber det hjalp.
Glædelig Jul Og Godt Nytår :)
dkn
end;

end;

Den fik jeg ikke helt fat i...

Prøver lige eksemplet

Hvordan får jeg fat i client IP?

Okai - nu er jeg lidt forvirret - hvordan er det lige jeg får fat i brugerens ID og IP når han logger på..

2 sec

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
Var
ClientIP, ClientID:string;
begin
ClientIP := Socket.RemoteAddress;
ClientID := inttostr(Socket.SocketHandle);
end;

Thx

np