Obtener la ip del cliente conectado a un IdTCPServer.

[Jan]

Hola, DarkByte.

A ver si te puede servir esto:

Código Delphi [-]
 uses IdIOHandlerSocket;

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

La verdad es que no estoy seguro de que sea lo que quieres, ya que no he usado nunca las Indy ni sé como van.

Lo he sacado de aquí.

Buen viaje.

[DarkByte]

Muchas gracias Jan, has dado en el clavo. Funciona a la perfeccíon