如何在DataSnap 2010中獲取客戶端IP

Question

有人可以告訴我如何從服務器端獲取連接會話的客戶端IP？

感謝

Answer 1

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; 

Answer 2

您查詢Request.RemoteAddr獲得附加的客戶端的IP地址。