एक RemObjects webservice

Question

में क्लाइंट आईपी पता प्राप्त करें मेरे पास डेल्फी एक्सई पर RemObjects का उपयोग करके एक webservice लागू किया गया है और मैं क्लाइंट याचिकाओं के आईपी पते को जानना चाहता हूं। मेरी सेवा TRORemoteDataModule से विरासत में मिली है और मुझे ऐसा करने के लिए कोई विधि या वस्तु नहीं मिली है।

कोई सुझाव? धन्यवाद

नोट: मुझे लगता है कि जानकारी है कि मैं जरूरत विधि self.transport.GetTransportObject() में लौटने लेकिन यह एक TObject वापस आती है और मैं नहीं जानता कि कैसे इस जानकारी निकालने के लिए

Answer 1

यह मैं इसे कैसे एक 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; 

आप इसके साथ क्या करते हैं इसके बारे में विनिर्देश आपके ऊपर हैं, लेकिन आपको इसे स्थापित करना होगा, और इसे सत्र ऑब्जेक्ट में संग्रहीत करना होगा यदि आप इसे बाद में चुनना चाहते हैं। मैंने क्लाइंट आईपी को पकड़ने के लिए एक कस्टम सत्र लागू किया ताकि मैं इसे और कॉल में कभी भी प्राप्त कर सकूं।

Answer 2

यहाँ यह

कैसे करना है

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