delphi - 如何在 Delphi WebService 中公开复杂类型

Question

我在通过 SOAP WebService 公开 DTO 类时遇到问题。

我的类(class)看起来像

TKontrahent = class
public
    Imie : string;
    Nazwisko : string;
    Id : integer;
end; 

这是服务的代码:

TKontrahentService = class(TInvokableClass, IKontrahentService)
public
    function Dodaj( kontrahnet : TKontrahent)  : integer; stdcall;
    function Aktualizuj ( kontrahent : TKontrahent) : integer; stdcall;
    function Usun ( kontrahent : TKontrahent) : integer; stdcall;
    function Nowy : TKontrahent; stdcall;
end;

以及如何在 WSDL 中发布该类型:

<types>
  <xs:schema targetNamespace="urn:Kontrahent" xmlns="urn:Kontrahent">
    <xs:complexType name="TKontrahent">
      <xs:sequence/>
    </xs:complexType>
  </xs:schema>
</types>

如果有任何建议，我将不胜感激。我找不到任何具有更复杂类型的示例。此致，克尔姆

Answer 1

要在标准 Delphi SOAP 服务中公开和使用 TKontrahent 类，它必须是 TRemotable 的子类。及其属性必须公开。

作为起点(例如从 Delphi 7 迁移到 2009 之后)，我通常导入现有的 WSDL 来创建 SOAP 客户端并研究生成的类和属性的源代码。