How to get the client IP in DataSnap 2010

Question

Hello folks,

Someone can tell me how to get the client ip of a connected session from the server side?.

Thanks

Answer 1

You query the Request.RemoteAddr to get the ip address of the attached client.

Answer 2

procedure TMyDSService.DataSnapServerConnect(DSConnectEventObject: TDSConnectEventObject);
var
  Conn: TIdTCPConnection;
begin
   Conn := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);
   Trace('Client ' + Conn.Socket.Binding.PeerIP +':' + IntToStr(Conn.Socket.Binding.PeerPort));
   Trace('Client info: ' + DSConnectEventObject.ChannelInfo.Info);
end;

Answer 3

procedure TMyDSService.DataSnapServerConnect(DSConnectEventObject: TDSConnectEventObject); 
var 
  Conn: TIdTCPConnection; 
begin 
   Conn := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id); 
   Trace('Client ' + Conn.Socket.Binding.PeerIP +':' + IntToStr(Conn.Socket.Binding.PeerPort)); 
   Trace('Client info: ' + DSConnectEventObject.ChannelInfo.Info); 
end; 

This solution does not work if the connection is made using HTTP Transport.

Does anyone know how to get the client ip address when the client is using HTTP Transport protocol?