Delphi Web 服务如何工作？ （在运行时添加方法？？）

Question

我已经使用 WSDL 导入器在 Delphi XE 中创建了 Web 服务。 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 正在运行时添加方法！ 它是如何运作的？我可以在运行时将方法添加到我自己的类中吗？

Answer 1

如果您使用 WSDL 导入器创建了 Web 服务客户端，则生成的客户端代码将调用服务器上的方法。所以实际上，方法“body”（代码）位于Web服务服务器上。

Delphi 基于 WSDL 生成 Soap 请求，并在后台使用 RTTI（内省）以 XML 形式生成 Web 服务调用的参数等。该 XML 被发送到服务器，服务器执行方法实现并发回 Soap 响应。

如果您创建 Web 服务服务器，情况则相反，在这种情况下，Delphi 应用程序当然需要实现所有方法体。

Answer 2

实际上，您正在调用接口中定义的方法，该方法又继承自 System.pas 中声明的 IInvokable。

如果检查源代码，您会注意到项目中没有本地对象实现您正在调用的 IInvokable 接口，这是因为该方法是在服务器中远程执行的。

在此之前，有一些 pascal 代码用于创建到服务器的正确 SOAP 请求，发送该请求，然后等待并解释服务器响应，请考虑此实现细节。如果您有兴趣更多地了解其工作原理，请启用“use debug .dcus”编译器选项，以便您可以在 VCL/RTL 内部进行调试。

然后，像往常一样，使用 StepInto (F7) 命令要求调试器逐步执行 Transmit 方法...在 TRIO.GenericStub 方法中进行一些汇编之后，您将到达数据包所在的 TRIO.Generic 方法准备并发送。

对于我用来编写此响应的 btSOAP 绑定，相关部分从 Rio.pas 单元中的第 943 行开始：

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

THTTPReqResp.Execute 然后使用 wininet.dll 函数与服务器执行连接、发送和接收信息。

您可以深入探讨某些级别...您想要走多远将取决于您的兴趣，并且大量细节远远超出了我在这里回答的范围...请随时发布更多具体问题 。

我不确定，但细节可能会在 Delphi 版本之间发生变化...我现在正在使用 Delphi XE