Obtener la ip del cliente conectado a un IdTCPServer.
 

Saludos, la pregunta parece sencilla, pero no la saco. ¿Cómo puedo obtener la ip del cliente conectado a un TIdTCPServer a través de su evento OnConnect?

Para ser más claro, quiero obtener la ip y ponerla en un memo cuando un cliente se conecte. El ejemplo Chat de las Indy no me vale porque usa un tal TSimpleClient y no se nada de él.

Por cierto... seguramente en 15 días a partir de mañana no me verés ni el pelo :p :p

Estaría muy agradecido de obtener la respuesta antes de mañana 28, pero si no puede ser, bienvenida sea la respuesta de igual modo.

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. ;)

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