Indy 10: TIdTCPServer - IP Adresse des Clients rausbekommen

[Brainshock]

Durch Zufall am Ende in der Indy Knowlege Base selbst gefunden:

http://www.indyproject.org/KB/peerip.htm

Delphi-Quellcode:

 
// For Indy 10
uses 
  IdContext, IdIOHandlerSocket; 

procedure TfrmMain.TCPServerConnect(AContext: TIdContext);
var 
  PeerIP : String;
begin
  PeerIP := AContext.Connection.Socket.Binding.PeerIP;
end;

Gruß,