How to get the client IP in DataSnap 2010

Question

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

Thanks

score 5 · Accepted Answer · edited Jan 30 '10 at 14:58

5

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;

edited Jan 30 '10 at 14:58

gabr

26,580
9
75
141

answered Jan 30 '10 at 11:34

Mike

66
1

`DSConnectEventObject.ChannelInfo.Info` always return the IP address of server, is this a bug or i`m missing something ? http://db.tt/lmRoqD2 – Alin Sfetcu Aug 29 '10 at 00:33

skamradt · Answer 2 · 2010-01-29T22:12:59.283

3

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

edited Jan 29 '10 at 22:12

answered Jan 29 '10 at 18:32

skamradt

15,366
2
36
53

RemoteAddr is a method of TWebRequest, I think it's not accesible in Datasnap. – Francis Lee Jan 30 '10 at 11:30

How to get the client IP in DataSnap 2010

2 Answers2