Obtener dirección IP de clientes en un servicio web de RemObjects

Question

Tengo un servicio web implementado usando RemObjects en Delphi XE y quiero saber la dirección IP de las peticiones de los clientes. Mi servicio hereda de TRORemoteDataModule y no he encontrado ningún método u objeto para hacer eso.

¿Alguna sugerencia? Gracias

Nota: Creo que la información que necesito está volviendo en el método self.transport.GetTransportObject() pero devuelve un TObject y no sé cómo extraer esta información

Answer 1

Esta es la forma en que la recibe de un SuperChannel:

procedure TMyInterface.RORemoteDataModuleGetDispatchInfo(const aTransport: IROTransport; const aMessage: IROMessage); 
var 
    tcpinfo: IROTCPTransport; 
    Session: TCustomSession; 
    szClientIP : String; 
begin 
    Session := TCustomSession(Self.Session); 
    if Supports(aTransport, IROTCPTransport, tcpinfo) then 
    begin 
    szClientIP := tcpinfo.ClientAddress; 
    if (not Session.ShownTCP) or (Session.TCPAddress <> szClientIP) then 
    begin 
     Session.TCPAddress := szClientIP; 
     Session.Report(leInformation, 'TCP address ' + szClientIP); 
     Session.ShownTCP := True; 
    end; 
    end 
    else 
    begin 
    Session.Report(leInformation, 'TCP address not available'); 
    end; 
end; 

Los detalles de lo que haga con ellos dependen de usted, pero debe obtenerlos tal como están configurados y guardarlos en el objeto de sesión si desea recuperarlos más tarde. Implementé una sesión personalizada para mantener el Ip del cliente para poder obtenerlo en cualquier momento en futuras llamadas.

Answer 2

aquí es cómo hacerlo

http://wiki.remobjects.com/wiki/Server_FAQs_%28RemObjects_SDK%29#How_can_I_get_IP_address_of_the_remote_client.3F