delphi - Delphi:WSDL导入无法处理对象-6ren

delphi - Delphi:WSDL导入无法处理对象

转载作者：行者123 更新时间：2023-12-03 18:37:40

波纹管地址上有一个第三方Web服务应用程序
http://webservice.magfa.com/services/urn:SOAPSmsQueue?wsdl
我想使用方法“ getAllMessages”，该方法返回名为“ CustomerReturnIncomingFormat”的对象数组，但是delphi wsdl importer无法正确导入。
并生成为“ ArrayOf_xsd_anyType：变量数组”！
看来delphi无法从wsdl导入对象！
任何想法？

最佳答案

问题在于程序员很懒，实际上对所有返回对象数组的调用都做了一个ArrayOf_xsd_anyType声明。 WSDL导入器尝试将这种类型的映射尽可能地映射到一个变量数组。由于您拥有文档，因此您确切地知道每个服务调用返回的内容。最简单的方法是修复WSDL：

<?xml version="1.0" encoding="utf-8"?>
<definitions targetNamespace="http://magfa.com/soap/SOAPSmsQueue" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:apachesoap="http://xml.apache.org/xml-soap" xmlns:impl="http://magfa.com/soap/SOAPSmsQueue" xmlns:intf="http://magfa.com/soap/SOAPSmsQueue" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns1="urn:SOAPSmsQueue" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <wsdl:types>
    <schema targetNamespace="urn:SOAPSmsQueue" xmlns="http://www.w3.org/2001/XMLSchema">
      <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
      <complexType name="CustomerReturnIncomingFormat">
        <sequence>
          <element name="body" nillable="true" type="xsd:string" />
          <element name="errorResult" nillable="true" type="xsd:string" />
          <element name="recipientNumber" nillable="true" type="xsd:string" />
          <element name="senderNumber" nillable="true" type="xsd:string" />
        </sequence>
      </complexType>
      <complexType name="DatedCustomerReturnIncomingFormat">
        <complexContent>
          <extension base="tns1:CustomerReturnIncomingFormat">
            <sequence>
              <element name="date" nillable="true" type="xsd:string" />
            </sequence>
          </extension>
        </complexContent>
      </complexType>
    </schema>
    <schema targetNamespace="http://magfa.com/soap/SOAPSmsQueue" xmlns="http://www.w3.org/2001/XMLSchema">
      <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
      <complexType name="ArrayOf_xsd_string">
        <complexContent>
          <restriction base="soapenc:Array">
            <attribute ref="soapenc:arrayType" wsdl:arrayType="xsd:string[]" />
          </restriction>
        </complexContent>
      </complexType>
      <complexType name="ArrayOf_xsd_int">
        <complexContent>
          <restriction base="soapenc:Array">
            <attribute ref="soapenc:arrayType" wsdl:arrayType="xsd:int[]" />
          </restriction>
        </complexContent>
      </complexType>
      <complexType name="ArrayOf_xsd_long">
        <complexContent>
          <restriction base="soapenc:Array">
            <attribute ref="soapenc:arrayType" wsdl:arrayType="xsd:long[]" />
          </restriction>
        </complexContent>
      </complexType>
      <complexType name="ArrayOf_xsd_anyType">
        <complexContent>
          <restriction base="soapenc:Array">
            <attribute ref="soapenc:arrayType" wsdl:arrayType="xsd:anyType[]" />
          </restriction>
        </complexContent>
      </complexType>
      <complexType name="ArrayOf_CustomerReturnIncomingFormat">
        <complexContent>
          <restriction base="soapenc:Array">
            <attribute ref="soapenc:arrayType" wsdl:arrayType="xsd:CustomerReturnIncomingFormat[]" />
          </restriction>
        </complexContent>
      </complexType>
    </schema>
  </wsdl:types>
  <message name="getAllMessagesRequest">
    <part name="domain" type="xsd:string" />
    <part name="numberOfMessages" type="xsd:int" />
  </message>
  <message name="getCreditResponse">
    <part name="getCreditReturn" type="xsd:float" />
  </message>
  <message name="getMessageIdRequest">
    <part name="domain" type="xsd:string" />
    <part name="checkingMessageId" type="xsd:long" />
  </message>
  <message name="getMessagesWithNumberResponse">
    <part name="getMessagesWithNumberReturn" type="impl:ArrayOf_xsd_anyType" />
  </message>
  <message name="getMessageStatusesRequest">
    <part name="messagesId" type="impl:ArrayOf_xsd_long" />
  </message>
  <message name="getRealMessageStatusesRequest">
    <part name="messagesId" type="impl:ArrayOf_xsd_long" />
  </message>
  <message name="enqueueWithGatewayRequest">
    <part name="domain" type="xsd:string" />
    <part name="messageBodies" type="impl:ArrayOf_xsd_string" />
    <part name="recipientNumbers" type="impl:ArrayOf_xsd_string" />
    <part name="senderNumbers" type="impl:ArrayOf_xsd_string" />
    <part name="encodings" type="impl:ArrayOf_xsd_int" />
    <part name="udhs" type="impl:ArrayOf_xsd_string" />
    <part name="messageClasses" type="impl:ArrayOf_xsd_int" />
    <part name="priorities" type="impl:ArrayOf_xsd_int" />
    <part name="checkingMessageIds" type="impl:ArrayOf_xsd_long" />
    <part name="gateway" type="xsd:string" />
  </message>
  <message name="getAllMessagesResponse">
    <part name="getAllMessagesReturn" type="impl:ArrayOf_CustomerReturnIncomingFormat" />
  </message>
  <message name="getAllMessagesWithNumberResponse">
    <part name="getAllMessagesWithNumberReturn" type="impl:ArrayOf_xsd_anyType" />
  </message>
  <message name="enqueueResponse">
    <part name="enqueueReturn" type="impl:ArrayOf_xsd_long" />
  </message>
  <message name="getMessageStatusesResponse">
    <part name="getMessageStatusesReturn" type="impl:ArrayOf_xsd_int" />
  </message>
  <message name="getMessageStatusRequest">
    <part name="messageId" type="xsd:long" />
  </message>
  <message name="getMessagesResponse">
    <part name="getMessagesReturn" type="impl:ArrayOf_xsd_anyType" />
  </message>
  <message name="getMessagesRequest">
    <part name="domain" type="xsd:string" />
    <part name="numberOfMessages" type="xsd:int" />
  </message>
  <message name="getAllMessagesWithNumberRequest">
    <part name="domain" type="xsd:string" />
    <part name="numberOfMessages" type="xsd:int" />
    <part name="destNumber" type="xsd:string" />
  </message>
  <message name="enqueueRequest">
    <part name="domain" type="xsd:string" />
    <part name="messageBodies" type="impl:ArrayOf_xsd_string" />
    <part name="recipientNumbers" type="impl:ArrayOf_xsd_string" />
    <part name="senderNumbers" type="impl:ArrayOf_xsd_string" />
    <part name="encodings" type="impl:ArrayOf_xsd_int" />
    <part name="udhs" type="impl:ArrayOf_xsd_string" />
    <part name="messageClasses" type="impl:ArrayOf_xsd_int" />
    <part name="priorities" type="impl:ArrayOf_xsd_int" />
    <part name="checkingMessageIds" type="impl:ArrayOf_xsd_long" />
  </message>
  <message name="getRealMessageStatusesResponse">
    <part name="getRealMessageStatusesReturn" type="impl:ArrayOf_xsd_int" />
  </message>
  <message name="getMessagesWithNumberRequest">
    <part name="domain" type="xsd:string" />
    <part name="numberOfMessages" type="xsd:int" />
    <part name="destNumber" type="xsd:string" />
  </message>
  <message name="getMessageIdResponse">
    <part name="getMessageIdReturn" type="xsd:long" />
  </message>
  <message name="getCreditRequest">
    <part name="domain" type="xsd:string" />
  </message>
  <message name="getMessageStatusResponse">
    <part name="getMessageStatusReturn" type="xsd:int" />
  </message>
  <message name="enqueueWithGatewayResponse">
    <part name="enqueueWithGatewayReturn" type="impl:ArrayOf_xsd_long" />
  </message>
  <portType name="SoapSmsQueuableImplementation">
    <operation name="enqueue" parameterOrder="domain messageBodies recipientNumbers senderNumbers encodings udhs messageClasses priorities checkingMessageIds">
      <input message="impl:enqueueRequest" name="enqueueRequest" />
      <output message="impl:enqueueResponse" name="enqueueResponse" />
    </operation>
    <operation name="getMessages" parameterOrder="domain numberOfMessages">
      <input message="impl:getMessagesRequest" name="getMessagesRequest" />
      <output message="impl:getMessagesResponse" name="getMessagesResponse" />
    </operation>
    <operation name="getMessageId" parameterOrder="domain checkingMessageId">
      <input message="impl:getMessageIdRequest" name="getMessageIdRequest" />
      <output message="impl:getMessageIdResponse" name="getMessageIdResponse" />
    </operation>
    <operation name="getRealMessageStatuses" parameterOrder="messagesId">
      <input message="impl:getRealMessageStatusesRequest" name="getRealMessageStatusesRequest" />
      <output message="impl:getRealMessageStatusesResponse" name="getRealMessageStatusesResponse" />
    </operation>
    <operation name="getAllMessagesWithNumber" parameterOrder="domain numberOfMessages destNumber">
      <input message="impl:getAllMessagesWithNumberRequest" name="getAllMessagesWithNumberRequest" />
      <output message="impl:getAllMessagesWithNumberResponse" name="getAllMessagesWithNumberResponse" />
    </operation>
    <operation name="getMessagesWithNumber" parameterOrder="domain numberOfMessages destNumber">
      <input message="impl:getMessagesWithNumberRequest" name="getMessagesWithNumberRequest" />
      <output message="impl:getMessagesWithNumberResponse" name="getMessagesWithNumberResponse" />
    </operation>
    <operation name="getCredit" parameterOrder="domain">
      <input message="impl:getCreditRequest" name="getCreditRequest" />
      <output message="impl:getCreditResponse" name="getCreditResponse" />
    </operation>
    <operation name="getAllMessages" parameterOrder="domain numberOfMessages">
      <input message="impl:getAllMessagesRequest" name="getAllMessagesRequest" />
      <output message="impl:getAllMessagesResponse" name="getAllMessagesResponse" />
    </operation>
    <operation name="enqueueWithGateway" parameterOrder="domain messageBodies recipientNumbers senderNumbers encodings udhs messageClasses priorities checkingMessageIds gateway">
      <input message="impl:enqueueWithGatewayRequest" name="enqueueWithGatewayRequest" />
      <output message="impl:enqueueWithGatewayResponse" name="enqueueWithGatewayResponse" />
    </operation>
    <operation name="getMessageStatuses" parameterOrder="messagesId">
      <input message="impl:getMessageStatusesRequest" name="getMessageStatusesRequest" />
      <output message="impl:getMessageStatusesResponse" name="getMessageStatusesResponse" />
    </operation>
    <operation name="getMessageStatus" parameterOrder="messageId">
      <input message="impl:getMessageStatusRequest" name="getMessageStatusRequest" />
      <output message="impl:getMessageStatusResponse" name="getMessageStatusResponse" />
    </operation>
  </portType>
  <binding name="TSOAPSoapBinding" type="impl:SoapSmsQueuableImplementation">
    <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
    <operation name="enqueue">
      <wsdlsoap:operation soapAction="" />
      <input name="enqueueRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="enqueueResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getMessages">
      <wsdlsoap:operation soapAction="" />
      <input name="getMessagesRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getMessagesResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getMessageId">
      <wsdlsoap:operation soapAction="" />
      <input name="getMessageIdRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getMessageIdResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getRealMessageStatuses">
      <wsdlsoap:operation soapAction="" />
      <input name="getRealMessageStatusesRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getRealMessageStatusesResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getAllMessagesWithNumber">
      <wsdlsoap:operation soapAction="" />
      <input name="getAllMessagesWithNumberRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getAllMessagesWithNumberResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getMessagesWithNumber">
      <wsdlsoap:operation soapAction="" />
      <input name="getMessagesWithNumberRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getMessagesWithNumberResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getCredit">
      <wsdlsoap:operation soapAction="" />
      <input name="getCreditRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getCreditResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getAllMessages">
      <wsdlsoap:operation soapAction="" />
      <input name="getAllMessagesRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getAllMessagesResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="enqueueWithGateway">
      <wsdlsoap:operation soapAction="" />
      <input name="enqueueWithGatewayRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="enqueueWithGatewayResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getMessageStatuses">
      <wsdlsoap:operation soapAction="" />
      <input name="getMessageStatusesRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getMessageStatusesResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
    <operation name="getMessageStatus">
      <wsdlsoap:operation soapAction="" />
      <input name="getMessageStatusRequest">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </input>
      <output name="getMessageStatusResponse">
        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://magfa.com/soap/SOAPSmsQueue" use="encoded" />
      </output>
    </operation>
  </binding>
  <service name="SoapSmsQueuableImplementationService">
    <port binding="impl:TSOAPSoapBinding" name="TSOAP">
      <wsdlsoap:address location="http://webservice.magfa.com/services/urn:SOAPSmsQueue" />
    </port>
  </service>
</definitions>

我刚刚为ArrayOf_CustomerReturnIncomingFormat添加了一个定义，并将返回值类型从getAllMessagesReturn部分更改为该定义。

确保在导入此wsdl文件时关闭“不发出未使用的类型（-Ot）”选项。这是使用delphi XE导入固定的WSDL文件时的结果单元：

unit SOAPSmsQueue;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

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.
  // ************************************************************************ //
  // !:anyType         - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:float           - "http://www.w3.org/2001/XMLSchema"[]
  // !:CustomerReturnIncomingFormat - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:long            - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]

  CustomerReturnIncomingFormat = class;         { "urn:SOAPSmsQueue"[!U][GblCplx] }
  DatedCustomerReturnIncomingFormat = class;    { "urn:SOAPSmsQueue"[!U][GblCplx] }

  ArrayOf_xsd_anyType = array of Variant;       { "http://magfa.com/soap/SOAPSmsQueue"[GblCplx] }
  ArrayOf_CustomerReturnIncomingFormat = array of CustomerReturnIncomingFormat;   { "http://magfa.com/soap/SOAPSmsQueue"[GblCplx] }
  ArrayOf_xsd_string = array of string;         { "http://magfa.com/soap/SOAPSmsQueue"[GblCplx] }


  // ************************************************************************ //
  // XML       : CustomerReturnIncomingFormat, global, <complexType>
  // Namespace : urn:SOAPSmsQueue
  // ************************************************************************ //
  CustomerReturnIncomingFormat = class(TRemotable)
  private
    Fbody: string;
    FerrorResult: string;
    FrecipientNumber: string;
    FsenderNumber: string;
  published
    property body:            string  read Fbody write Fbody;
    property errorResult:     string  read FerrorResult write FerrorResult;
    property recipientNumber: string  read FrecipientNumber write FrecipientNumber;
    property senderNumber:    string  read FsenderNumber write FsenderNumber;
  end;



  // ************************************************************************ //
  // XML       : DatedCustomerReturnIncomingFormat, global, <complexType>
  // Namespace : urn:SOAPSmsQueue
  // ************************************************************************ //
  DatedCustomerReturnIncomingFormat = class(CustomerReturnIncomingFormat)
  private
    Fdate: string;
  published
    property date: string  read Fdate write Fdate;
  end;

  ArrayOf_xsd_long = array of Int64;            { "http://magfa.com/soap/SOAPSmsQueue"[GblCplx] }
  ArrayOf_xsd_int = array of Integer;           { "http://magfa.com/soap/SOAPSmsQueue"[GblCplx] }

  // ************************************************************************ //
  // Namespace : http://magfa.com/soap/SOAPSmsQueue
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : rpc
  // use       : encoded
  // binding   : TSOAPSoapBinding
  // service   : SoapSmsQueuableImplementationService
  // port      : TSOAP
  // URL       : http://webservice.magfa.com/services/urn:SOAPSmsQueue
  // ************************************************************************ //
  SoapSmsQueuableImplementation = interface(IInvokable)
  ['{9DBBFB75-511D-1D3D-5200-4133705D96F5}']
    function  enqueue(const domain: string; const messageBodies: ArrayOf_xsd_string; const recipientNumbers: ArrayOf_xsd_string; const senderNumbers: ArrayOf_xsd_string; const encodings: ArrayOf_xsd_int; const udhs: ArrayOf_xsd_string;
                      const messageClasses: ArrayOf_xsd_int; const priorities: ArrayOf_xsd_int; const checkingMessageIds: ArrayOf_xsd_long): ArrayOf_xsd_long; stdcall;
    function  getMessages(const domain: string; const numberOfMessages: Integer): ArrayOf_xsd_anyType; stdcall;
    function  getMessageId(const domain: string; const checkingMessageId: Int64): Int64; stdcall;
    function  getRealMessageStatuses(const messagesId: ArrayOf_xsd_long): ArrayOf_xsd_int; stdcall;
    function  getAllMessagesWithNumber(const domain: string; const numberOfMessages: Integer; const destNumber: string): ArrayOf_xsd_anyType; stdcall;
    function  getMessagesWithNumber(const domain: string; const numberOfMessages: Integer; const destNumber: string): ArrayOf_xsd_anyType; stdcall;
    function  getCredit(const domain: string): Single; stdcall;
    function  getAllMessages(const domain: string; const numberOfMessages: Integer): ArrayOf_CustomerReturnIncomingFormat; stdcall;
    function  enqueueWithGateway(const domain: string; const messageBodies: ArrayOf_xsd_string; const recipientNumbers: ArrayOf_xsd_string; const senderNumbers: ArrayOf_xsd_string; const encodings: ArrayOf_xsd_int; const udhs: ArrayOf_xsd_string;
                                 const messageClasses: ArrayOf_xsd_int; const priorities: ArrayOf_xsd_int; const checkingMessageIds: ArrayOf_xsd_long; const gateway: string): ArrayOf_xsd_long; stdcall;
    function  getMessageStatuses(const messagesId: ArrayOf_xsd_long): ArrayOf_xsd_int; stdcall;
    function  getMessageStatus(const messageId: Int64): Integer; stdcall;
  end;

function GetSoapSmsQueuableImplementation(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): SoapSmsQueuableImplementation;


implementation
  uses SysUtils;

function GetSoapSmsQueuableImplementation(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): SoapSmsQueuableImplementation;
const
  defWSDL = 'C:\Temp\SOAPSmsQueue.xml';
  defURL  = 'http://webservice.magfa.com/services/urn:SOAPSmsQueue';
  defSvc  = 'SoapSmsQueuableImplementationService';
  defPrt  = 'TSOAP';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as SoapSmsQueuableImplementation);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


initialization
  { SoapSmsQueuableImplementation }
  InvRegistry.RegisterInterface(TypeInfo(SoapSmsQueuableImplementation), 'http://magfa.com/soap/SOAPSmsQueue', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(SoapSmsQueuableImplementation), '');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_xsd_anyType), 'http://magfa.com/soap/SOAPSmsQueue', 'ArrayOf_xsd_anyType');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_CustomerReturnIncomingFormat), 'http://magfa.com/soap/SOAPSmsQueue', 'ArrayOf_CustomerReturnIncomingFormat');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_xsd_string), 'http://magfa.com/soap/SOAPSmsQueue', 'ArrayOf_xsd_string');
  RemClassRegistry.RegisterXSClass(CustomerReturnIncomingFormat, 'urn:SOAPSmsQueue', 'CustomerReturnIncomingFormat');
  RemClassRegistry.RegisterXSClass(DatedCustomerReturnIncomingFormat, 'urn:SOAPSmsQueue', 'DatedCustomerReturnIncomingFormat');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_xsd_long), 'http://magfa.com/soap/SOAPSmsQueue', 'ArrayOf_xsd_long');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_xsd_int), 'http://magfa.com/soap/SOAPSmsQueue', 'ArrayOf_xsd_int');

end.

关于delphi - Delphi:WSDL导入无法处理对象，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/13709697/

文章推荐： delphi - 在运行时为delphi中的后台应用程序传递参数

文章推荐： abap - 对象仍处于非事件版本

java - 对象 a = 对象 b；对象 a 会发生什么？
我的一位教授给了我们一些考试练习题，其中一个问题类似于下面(伪代码): a.setColor(blue); b.setColor(red); a = b; b.setColor(purple); b
JavaScript 测试(对象 && 对象 !== "null"&& 对象 !== "undefined")
我似乎经常使用这个测试 if( object && object !== "null" && object !== "undefined" ){ doSomething(); } 在对象上，我
C#对象/对象
C# Object/object 是值类型还是引用类型？我检查过它们可以保留引用，但是这个引用不能用于更改对象。 using System; class MyClass { public s
javascript - 通过ajax发送json - 对象 - 对象
我在通过 AJAX 发送 json 时遇到问题。 var data = [{"name": "Will", "surname": "Smith", "age": "40"},{"name": "Wil
javascript - 如何获取值[对象][对象]
当我尝试访问我的 View 中的对象 {{result}} 时(我从 Express js 服务器发送该对象)，它只显示 [object][object]有谁知道如何获取 JSON 格式的值吗？这是
java - 对象...对象[] 和格式
我有不同类型的数据(可能是字符串、整数......)。这是一个简单的例子: public static void main(String[] args) { before("one"); }
javascript - 如何修复[对象，对象]
嗨，我是 json 和 javascript 的新手。我在这个网站找到了使用json数据作为表格的方法。我很好奇为什么当我尝试使用 json 数据作为表时，我得到 [Object,Object]
JavaScript [对象][对象] 调试
已关闭。此问题需要 debugging details 。目前不接受答案。编辑问题以包含 desired behavior, a specific problem or error, and the
java - 对象==空或空==对象？
我听别人说 null == object 比 object == null check 例如: void m1(Object obj ) { if(null == obj) // Is thi
VBS教程：对象-Match 对象
Match 对象提供了对正则表达式匹配的只读属性的访问。说明 Match 对象只能通过 RegExp 对象的 Execute 方法来创建，该方法实际上返回了 Match 对象的集合。所有的
VBS教程：对象-Class 对象
Class 对象使用 Class 语句创建的对象。提供了对类的各种事件的访问。说明不允许显式地将一个变量声明为 Class 类型。在 VBScript 的上下文中，“类对象”一词指的是用
VBS教程：对象-Folder 对象
Folder 对象提供对文件夹所有属性的访问。说明以下代码举例说明如何获得 Folder 对象并查看它的属性： Function ShowDateCreated(f
VBS教程：对象-File 对象
File 对象提供对文件的所有属性的访问。说明以下代码举例说明如何获得一个 File 对象并查看它的属性： Function ShowDateCreated(fil
VBS教程：对象-Drive 对象
Drive 对象提供对磁盘驱动器或网络共享的属性的访问。说明以下代码举例说明如何使用 Drive 对象访问驱动器的属性： Function ShowFreeSpac
VBS教程：对象-FileSystemObject 对象
FileSystemObject 对象提供对计算机文件系统的访问。说明以下代码举例说明如何使用 FileSystemObject 对象返回一个 TextStream 对象，此对象可以被读
对象
我是 javascript OOP 的新手，我认为这是一个相对基本的问题，但我无法通过搜索网络找到任何帮助。我是否遗漏了什么，或者我只是以错误的方式解决了这个问题？这是我的示例代码: functio
对象
我可以很容易地创造出很多不同的对象。例如像这样: var myObject = { myFunction: function () { return ""; } };
对象
function Person(fname, lname) { this.fname = fname, this.lname = lname, this.getName = function()
javascript - JSON 返回(对象，对象)
任何人都可以向我解释为什么下面的代码给出 (object, Object) 吗？ (console.log(dope) 给出了它应该的内容，但在 JSON.stringify 和 JSON.parse
javascript - 返回 [对象，对象] 的工具提示
我正在尝试完成散点图 exercise来自免费代码营。然而，我现在只自己学习了 d3 几个小时，在遵循 lynda.com 的教程后，我一直在尝试确定如何在工具提示中显示特定数据。 This code

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

delphi - Delphi:WSDL导入无法处理对象