Delphi SOAPサーバーの元のTWebRequestオブジェクトへのアクセス

Question

要約：Delphi Soap Server Applicationの元の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;