Im Event "OnConnect" des IdTCPServers kann man die
IP des Clients z.B. so rausfinden:
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
Caption := AThread.Connection.Binding.PeerIP;
// <--- Remote IP oder Hostname
Label1.Caption := IntToStr(AThread.Connection.Binding.PeerPort);
// <--- Remote Port
end;
Gruß
Wormid