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

发布时间：2020-12-15 09:22:07 所属栏目：大数据来源：网络整理

导读：有人可以告诉我如何从服务器端获取连接会话的客户端IP？谢谢解决方法 procedure TMyDSService.DataSnapServerConnect(DSConnectEventObject: TDSConnectEventObject);var Conn: TIdTCPConnection;begin Conn := TIdTCPConnection(DSConnectEventObject.Cha

有人可以告诉我如何从服务器端获取连接会话的客户端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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!