0

我认为来自 delphi xe3 的 wsdl 导入器似乎为某个 wsdl / xsd 生成了错误的代码。Web服务本身不是我们制作的，但我们需要使用它。我从我们提供的 xsd 模式中删除了相关部分来说明问题。

这是我认为会导致问题的 XSD 的一部分

    <xs:element name="request">
        <xs:complexType>
            <xs:sequence>
                <xs:element type="Demand"  name="demand"  minOccurs="1" maxOccurs="1" />
            </xs:sequence>
        </xs:complexType>
    </xs:element>

    <xs:complexType name="Demand" abstract="true">
        <xs:sequence>           
            <xs:element name="person" type="Person" minOccurs="1" maxOccurs="unbounded" />
        </xs:sequence>
    </xs:complexType>

    <xs:complexType name="Person" abstract="true">
        <xs:sequence>            
            <xs:element name="name" minOccurs="0" maxOccurs="1">                
        </xs:sequence>
        <xs:attribute name="key" type="xs:ID" use="required" />        
    </xs:complexType>

    <xs:complexType name="MoralPerson">
        <xs:complexContent>
            <xs:extension base="Person">
                <xs:sequence>
                    <xs:element name="juridicalForm">
                        <xs:simpleType>
                            <xs:restriction base="xs:int">
                                <xs:maxInclusive value="10" />
                            </xs:restriction>
                        </xs:simpleType>
                    </xs:element>               
                </xs:sequence>
            </xs:extension>
        </xs:complexContent>
    </xs:complexType>

    <xs:complexType name="GarnishmentDemand">
       <xs:complexContent>
           <xs:extension base="Demand">
               <xs:sequence>
                   <xs:element name="saleTotalAmount" type="Amount" minOccurs="1" maxOccurs="1" /> 
                   <xs:element name="saleDate" type="xs:date" minOccurs="1" maxOccurs="1" /> 
               </xs:sequence>
           </xs:extension>
       </xs:complexContent>
    </xs:complexType>

这是delphi生成的一些代码

  Person = class(TRemotable)
  private
    Fkey: string;
    Fname_: name_;
    Fname__Specified: boolean;
    procedure Setname_(Index: Integer; const Aname_: name_);
    function  name__Specified(Index: Integer): boolean;
  published
    property key:                    string   Index (IS_ATTR) read Fkey write Fkey;
    property name_:                  name_    Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified;
  end; 

 MoralPerson = class(Person)
  private
    FjuridicalForm: juridicalForm;
  published
    property juridicalForm: juridicalForm  read FjuridicalForm write FjuridicalForm;
  end;

  Demand     = array of Person;

  CreateNoticeOneRequest = class(TRemotable)
  private
    Fdossier: Dossier;
    Fdemand: Demand;
  public
    destructor Destroy; override;
  published
    property demand:  Demand   read Fdemand write Fdemand;
  end;

  GarnishmentDemand = class(TRemotable)
  private
    FsaleTotalAmount: Amount;
    FsaleDate: TXSDate;
  public
    destructor Destroy; override;
  published
    property saleTotalAmount: Amount   read FsaleTotalAmount write FsaleTotalAmount;
    property saleDate:        TXSDate  read FsaleDate write FsaleDate;
  end;

当我查看 XSD 时，需求类型似乎是所有其他需求类型的基类，并且只包含一组人员，因此所有从需求派生的类（如 GarnishmentDemand）都应该有一组人员。问题是 delphi 将 Demand 类型本身声明为人员数组，我认为它应该是一个类，所以当我创建 GarnishmentDemand 时，我无法访问人员数组。

这是 wsdl 导入器中的一个错误，我是不是全都看错了，还是 wsdl/xsd 提供的错误？如果它是一个错误，可以以某种方式纠正吗？在按下完成之前，我尝试在 de wsdl 导入器工具中更改许多选项，但 Demand 类型始终被声明为人员数组而不是类。

如果它不是错误，那么我看不到在使用 GarnishmentDemand 类型时我应该如何访问 people 数组？

4

1 回答 1

0

我找到了解决此问题的解决方法。

我在 xsd 中为 Demand 类型添加了一个虚拟元素，如下所示：

<xs:complexType name="Demand" abstract="true">
    <xs:sequence>           
        <xs:element name="person" type="Person" minOccurs="1" maxOccurs="unbounded" />
        <xs:element name="dummy" type="xs:boolean" minOccurs="0" maxOccurs="1" nillable="true"/>
    </xs:sequence>
</xs:complexType>

然后我在 delphi XE3 中再次导入了 wsdl/xsd 并从生成的代码中删除了虚拟元素。Delphi 现在将 Demand 类型定义为一个类，所有其他需求（如 GarnishmentDemand）都从 Demand 类继承，我能够像最初预期的那样访问 person 数组

  Demand = class(TRemotable)
  private
    Fperson: Array_Of_Person;
    Fdummy: Boolean;
    Fdummy_Specified: boolean;
    procedure Setdummy(Index: Integer; const ABoolean: Boolean);
    function  dummy_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property person: Array_Of_Person  Index (IS_UNBD) read Fperson write Fperson;
    property dummy:  Boolean          Index (IS_OPTN or IS_NLBL) read Fdummy write Setdummy stored dummy_Specified;
  end;

  GarnishmentDemand = class(Demand)
  private
    FsaleTotalAmount: Amount;
    FsaleDate: TXSDate;
  public
    destructor Destroy; override;
  published
    property saleTotalAmount: Amount   read FsaleTotalAmount write FsaleTotalAmount;
    property saleDate:        TXSDate  read FsaleDate write FsaleDate;
  end;

我会测试看看 delphi XE4 是否包含相同的错误，如果有，我会看看我是否可以向 embarcaderro QA 提交报告

于 2013-06-07T08:34:08.557 回答