डेल्फी एसओएपी सर्वर

Question

में मूल TWebRequest ऑब्जेक्ट तक पहुंच सारांश: आप डेल्फी साबुन सर्वर एप्लिकेशन में मूल TWebRequest ऑब्जेक्ट को कैसे एक्सेस करते हैं?

मेरे वेब सेवा के लिए एक विधि CallMe के साथ एक सेवा ITest प्रकाशित करता है:

ITest = interface(IInvokable) 
['{AA226176-FFAD-488F-8768-99E706450F31}'] 
    function CallMe: string; stdcall; 
end; 
... 
initialization 
InvRegistry.RegisterInterface(TypeInfo(ITest)); 

इस इंटरफ़ेस एक कक्षा में कार्यान्वित किया जाता है:

TTest = class(TInvokableClass, ITest) 
public 
    function CallMe: string; stdcall; 
end; 
... 
initialization 
InvRegistry.RegisterInvokableClass(TTest, TestFactory); 

मैं कार्यान्वयन के अंदर मूल TWebRequest वस्तु कैसे पहुँच सकता हूँ इस विधि का? जैसे - बहुत धन्यवाद :)

function TTest.CallMe: string; 
begin 
    // how to access TWebRequest object 
    ... 
end; 

Answer 1

uses 
    System.SysUtils, 
    Web.HTTPApp, 
    Soap.WebBrokerSOAP; 

function TTest.CallMe: string; 
var 
    WebDispatcher: IWebDispatcherAccess; 
begin 
    Result := ''; 
    if Supports(GetSOAPWebModule, IWebDispatcherAccess, WebDispatcher) then 
    Result := Format('You are calling me from: %s', [WebDispatcher.Request.RemoteIP]); 
end;