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