Доступ к исходному объекту TWebRequest в сервере Delphi SOAP

Резюме :Как получить доступ к исходному объекту TWebRequest в приложении Delphi Soap Server?

Мой веб-сервис публикует сервис ITestс методомCallMe:

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объекту внутри реализации этого метода? Например. Если я хочу проверить, какие файлы cookie были установлены, или прочитать другие свойства по запросу:

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

8
задан Jeroen Wiert Pluimers 11 September 2017 в 10:06
поделиться