Nhận địa chỉ IP của khách hàng trong dịch vụ web RemObjects

Question

Tôi có một dịch vụ web được triển khai bằng cách sử dụng RemObject trên Delphi XE và tôi muốn biết địa chỉ IP của các kiến ​​nghị của khách hàng. Dịch vụ của tôi được kế thừa từ TRORemoteDataModule và tôi không tìm thấy bất kỳ phương pháp hoặc đối tượng nào để thực hiện điều đó.

Bất kỳ đề xuất nào? Cảm ơn

Lưu ý: Tôi nghĩ rằng những thông tin mà tôi cần được trở về trong phương pháp self.transport.GetTransportObject() nhưng nó trả về một TObject và tôi không biết làm thế nào để trích xuất thông tin này

Answer 1

Đây là cách tôi nhận được nó từ một SuperChannel:

procedure TMyInterface.RORemoteDataModuleGetDispatchInfo(const aTransport: IROTransport; const aMessage: IROMessage); 
var 
    tcpinfo: IROTCPTransport; 
    Session: TCustomSession; 
    szClientIP : String; 
begin 
    Session := TCustomSession(Self.Session); 
    if Supports(aTransport, IROTCPTransport, tcpinfo) then 
    begin 
    szClientIP := tcpinfo.ClientAddress; 
    if (not Session.ShownTCP) or (Session.TCPAddress <> szClientIP) then 
    begin 
     Session.TCPAddress := szClientIP; 
     Session.Report(leInformation, 'TCP address ' + szClientIP); 
     Session.ShownTCP := True; 
    end; 
    end 
    else 
    begin 
    Session.Report(leInformation, 'TCP address not available'); 
    end; 
end; 

Các chi tiết cụ thể về những gì bạn làm với nó tùy thuộc vào bạn, nhưng bạn phải lấy nó khi nó được thiết lập và lưu trữ nó trong đối tượng phiên nếu bạn muốn nhận nó sau này. Tôi đã triển khai một phiên tùy chỉnh để giữ IP máy khách để tôi có thể nhận được bất kỳ lúc nào trong các cuộc gọi tiếp theo.

Answer 2

đây đó là làm thế nào để làm điều đó

http://wiki.remobjects.com/wiki/Server_FAQs_%28RemObjects_SDK%29#How_can_I_get_IP_address_of_the_remote_client.3F