Datasnap 客户端 IP 内 serverMethod

Question

我正在尝试在 VCL forms TCP datasnap 服务器的任何基于 Tcomponent 的方法中确定客户端 IP 的来源 - 没有任何通道（除了来自客户端发送它）。 我还寻找一种方法来引用服务器的连接信息来检索客户端的 IP，但没有成功。

希望看到过程/功能的工作方式如下：

procedure TServerMethods1.someTask(userId, taskId :integer; data:string);// can be a function
var
  ip:string;
begin
  ip := (ServerContainer1.TDSServer.GetThreadSession).GetData('RemoteIP');// client IP
  // do stuff..
end;

蒂亚..

Answer 1

尝试使用 TDSSessionManager.GetThreadSession 方法而不是 ServerContainer1.TDSServer.GetThreadSession。

Answer 2

根据您最初的问题和随后的评论，这应该可以回答您的问题。

procedure TServerContainer.DSServer1Connect(
  DSConnectEventObject: TDSConnectEventObject);
var
  user, newinfo: String;
  ClientInfo: TdbxClientInfo;
begin

  // note: this procedure gets called immediately AFTER DSAuthenticationManager1UserAuthenticate
  user := TDSSessionManager.GetThreadSession.GetData('User');
  ClientInfo := DSConnectEventObject.ChannelInfo.ClientInfo;
  newinfo := Trim(user) + ' | ' + ClientInfo.IpAddress + ' | ' +
    FormatDateTime('yyyy-mm-dd hh:nn:ss', Now);

end;