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

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

---

谢谢

您查询

请求。RemoteAddr

以获取连接客户端的ip地址。

RemoteAddr是一种TWebRequest方法，我认为它在Datasnap中不可访问。

DSConnectEventObject.ChannelInfo.Info

始终返回服务器的ip地址，这是一个错误还是我遗漏了什么？

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;