web-services - 访问 Delphi SOAP 服务器中的原始 TWebRequest 对象

Question

摘要:如何访问原文TWebRequest Delphi Soap Server 应用程序中的对象？

我的 Web 服务使用方法 CallMe 发布服务 ITest:

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

该接口(interface)在类中实现:

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

如何访问此方法的实现中的原始 TWebRequest 对象？例如。如果我想检查设置了哪些 cookie，或读取请求的其他属性:

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;