Mal schau'n, einen Moment bitte...
Delphi-Quellcode:
// auf dem Server (wenn ich jetzt die richtige Komponente erwischt habe):
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Pred(TcpServer1.ServerSocketThread.ThreadPool.Count) do
ShowMessage(TClientSocketThread(TcpServer1.ServerSocketThread.ThreadPool[
I]).ClientSocket.LocalHostAddr);
end;
...
...