Блог

Я создал веб-службу в Delphi XE с помощью WSDL importer. Delphi сгенерировал для меня модуль ITransmitter1.pas с интерфейсом ITransmitter и функцией GetITransmitter.

Для использования веб-сервиса я использую:

 var Transmitter: ITransmitter;
begin
  Transmitter := GetITransmitter(True, '', nil);
  Transmitter.Transmit(Memo1.Text, OutXML);
end;
  

Но я нигде не вижу тела метода Transmit …

В ITransmitter.pas я вижу:

   InvRegistry.RegisterInterface(TypeInfo(ITransmitter), 'urn:TransmitterIntf-ITransmitter', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ITransmitter), 'urn:TransmitterIntf-ITransmitter#Transmit');
  

Если я прокомментирую эти строки, я получу ошибку «интерфейс не поддерживается».
Как я вижу здесь, delphi добавляет метод во время выполнения !
Как это работает? Могу ли я добавить метод во время выполнения в свой собственный класс?

Если вы создали клиент веб-службы с помощью импортера WSDL, сгенерированный клиентский код вызовет метод на сервере. Таким образом, фактически, «тело» метода (код) находится на сервере веб-службы.

Delphi генерирует Soap-запрос на основе WSDL, а за кулисами RTTI (самоанализ) используется для генерации параметров и т.д. вызова веб-службы в виде XML. Этот XML отправляется на сервер, который выполняет реализацию метода и отправляет обратно ответ Soap.

Все наоборот, если вы создаете сервер веб-службы, в этом случае приложение Delphi, конечно, должно реализовать все тела методов.

Фактически вы вызываете метод, определенный в интерфейсе, который, в свою очередь, наследуется от IInvokable, объявленного в System.pas.

Если вы проверите свой исходный код, вы заметите, что ни один локальный объект в вашем проекте не реализует вызываемый вами интерфейс IInvokable, это потому, что этот метод выполняется удаленно на сервере.

Прежде чем это произойдет, есть некоторый код pascal, используемый для создания надлежащего SOAP-запроса к серверу, отправки его, а затем ожидания и интерпретации ответа сервера, рассмотрим детали этой реализации. Если вам интересно узнать немного больше о том, как это работает, включите опцию компилятора «использовать debug .dcus», чтобы вы могли выполнять отладку внутри VCL / RTL.

Затем, как обычно, используйте команду StepInto (F7), чтобы попросить отладчик выполнить метод передачи шаг за шагом … после некоторого ассемблера в тройке.Методом GenericStub вы перейдете к ТРИО.Универсальный метод, при котором пакет подготавливается и отправляется.

Для привязки btSOAP, которую я использую для написания этого ответа, соответствующая часть начинается со строки 943 в блоке Rio.pas:

     try
      FWebNode.Execute(Req, Resp);
    finally
      { Clear Outbound headers }
      FHeadersOutBound.Clear;
    end;          
  

THTTPReqResp.Execute затем использует wininet.dll функции для выполнения соединения, отправки и получения информации с использованием сервера.

Есть несколько уровней, на которых вы можете углубиться в это… как далеко вы хотите зайти, будет зависеть от ваших интересов, а большое количество деталей выходит далеко за рамки моего ответа здесь … не стесняйтесь публиковать больше вопросов с конкретными интересующими вас вопросами.

Я не уверен, но детали могут меняться в зависимости от версий Delphi… Прямо сейчас я использую Delphi XE.