Delphi XE5 Rest Datasnap 服务器。获取客户端IP地址

Question

我尝试使用 DSServer 的 onconnect 事件以及以下代码来获取客户端的 IP 地址和其他客户端信息。

我的问题是，DSConnectEventObject.ChannelInfo 每次都是nil。此外，我无法解析 IP 地址。

请帮助我。谢谢。

procedure TWebModule1.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
var
     ci: TDBXClientInfo;
begin
     ci := DSConnectEventObject.ChannelInfo.ClientInfo;
     AddLog(Format('Client %s Connected IP: %s, Port: %s', 
         [ci.Protocol, ci.IpAddress, ci.ClientPort])
     );
end;

Answer 1

如前所述，这是 DataSnap 中的一个错误。它在 XE2 中工作正常，但错误出现在 XE3 和 XE5 之间的某个地方。 QC 报告#121931 和#126164 中已对此进行了报道。幸运的是，客户端连接属性在 Session 对象中可用 - 见下文:

var
  Session: TDSSession;
  Protocol, IpAddress, AppName: string;
begin
  Session := TDSSessionManager.GetThreadSession;
  Protocol := Session.GetData('CommunicationProtocol');
  IpAddress := Session.GetData('RemoteIP');
  AppName := Session.GetData('RemoteAppName');
end;