如何导入此 WSDL？

Question

我从客户那里收到了 WSDL，作为导入 Web 服务以与他们的系统进行互操作的一部分。他们发送了两个文件：WSDL 和模式。当我运行 WSDL 导入器时，我得到如下所示的输出：

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:LoadData     - "http://client.com/"[Lit][]
  // !:LoadDataResponse - "http://client.com/"[Lit][]


  // ************************************************************************ //
  // Namespace : http://client.com/
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // binding   : ClientPortBinding
  // service   : ClientService
  // port      : ClientPort
  // URL       : http://localhost:8080/ClientService
  // ************************************************************************ //
  IClientLoad = interface(IInvokable)
  ['{8DC02C6F-78D3-E09A-FE43-EE5211DB188D}']

    // Cannot unwrap:
    //     - Input part does not refer to an element
    //     - Output part does not refer to an element
    function  LoadDataBatch(const parameters: LoadData): LoadDataResponse; stdcall;
  end;

缺少的类型在它们发送的架构文件中定义。我尝试将 WSDL 的导入行更改为如下所示，但它没有改变任何内容：

如何正确设置此选项，以便 Delphi 的 WSDL 导入向导将检查本地系统上的架构文件并读取从中键入定义？

Answer 1

问题可能不是出在进口方面，而是出在出口方面。我们遇到的情况：

• Delphi 编码的服务器应用程序也响应 SOAP Web 请求。
• .Net 编码的客户端应用程序，使用 SOAP 与 Delphi 服务器应用程序进行通信。

如果任何导出的 SOAP 接口中均未使用该（基）类型，则 Delphi 服务器应用程序不会也不会在其 WSDL 响应中导出该（基）类型。

示例：

TBaseReponseClass = class(TRemotable)
end;

TLoginResponseClass = class(TBaseReponseClass)
end;

ISOAPResponse = interface(IInvokable)
['{SomeGUID}']
  function Ping: TBaseReponseClass ; stdcall
  function Login: TLoginResponseClass ; stdcall;
end;

使用 ISOAPResponse 中的 Ping 功能，一切正常。

如果 ISOAPResponse 中没有 Ping 函数，TBaseResponseClass 将不会在 WSDL 中导出，并且在 .Net 端导入 WSDL 会引发有关未定义元素的错误。

我想您可以检查从客户端获得的 WSDL，看看它是否使用了祖先层次结构中的一个或多个类未包含在 WSDL/Schema 中的任何类。如果是这种情况，那么您可能必须返回客户以让他们修改界面。或者，如果幸运的话，也许可以找到一些选项来将未直接引用的祖先类包含在 WSDL/Schema 中。我们没有研究后者，因为这两个应用程序都在我们自己的控制之下，并且简单地添加“Ping”功能更容易。