Резюме :Как получить доступ к исходному объекту 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;