Obtener la ip del cliente conectado a un IdTCPServer.

[DarkByte]

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

[DarkByte]

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.

[Jan]

Hola, DarkByte.

A ver si te puede servir esto:

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í. (http://www.indyproject.org/KB/)

Buen viaje. ;)

[DarkByte]

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