IP vom Client über den Server ermitteln

[Klaus01]

mit ein wenig Überlegung, wärst Du sicherlich auch hierzu gekommen,
war in dem Beitrag von marabu schon so beschrieben.
Selber denken macht schlau ;o)

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  listbox1.Items.Add(AThread.connection.socket.binding.peerIP);
end;

Grüße
Klaus