delphi - 如何在 DataSnap 2010 中获取客户端 IP

Question

有人可以告诉我如何从服务器端获取连接会话的客户端 IP？

谢谢

Answer 1

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 2

您查询Request.RemoteAddr以获取附加客户端的 IP 地址。