Как получить клиентский IP в DataSnap 2010 - PullRequest
4 голосов
/ 29 января 2010

Кто-то может сказать мне, как получить клиентский IP-адрес подключенного сеанса со стороны сервера?.

Спасибо

Ответы [ 2 ]

5 голосов
/ 30 января 2010
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;
3 голосов
/ 29 января 2010

Вы запрашиваете Request.RemoteAddr, чтобы получить IP-адрес подключенного клиента.

...