Uzyskaj adres IP klienta w serwisie internetowym RemObjects

Question

Mam usługę sieciową zaimplementowaną przy użyciu RemObjects przez Delphi XE i chcę znać adres IP petycji klientów. Moja usługa dziedziczy po TRORemoteDataModule i nie znalazłem żadnej metody ani obiektu, aby to zrobić.

Jakieś sugestie? Dzięki

Uwaga: Myślę, że informacje, które muszę wraca w metodzie self.transport.GetTransportObject() ale zwraca TObject i nie wiem, jak wydobyć te informacje

Answer 1

to jak mam go od 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; 

Specyfika tego, co robisz z nim, zależy od ciebie, ale musisz go pobrać, jak jest skonfigurowany, i przechowywać go w obiekcie sesji, jeśli chcesz go później odebrać. Zaimplementowałem niestandardową sesję do przechowywania IP klienta, aby móc ją uzyskać w dowolnym czasie.

Answer 2

tutaj jest, jak to zrobić

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