DONGSHENG6/WebService/DyxtService.pas

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://www.yydy.com/GacoWebService/DyxtService.asmx?WSDL
// Encoding : utf-8
// Version  : 1.0
// (2013-04-25 18:45:19 - $Revision:   1.9.1.0.1.0.1.9  $)
// ************************************************************************ //

unit DyxtService;

interface

uses InvokeRegistry, Types, XSBuiltIns,DBClient;

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 Borland types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"
  // !:string          - "http://tempuri.org/"
  // !:boolean         - "http://www.w3.org/2001/XMLSchema"

  ds_dyCtn             = class;                 { "http://tempuri.org/" }
  SyncDyxtImbillXlfInfoResult = class;          { "http://tempuri.org/" }
  ds_dyImbill          = class;                 { "http://tempuri.org/" }
  SyncDyxtImbillInvoInfoResult = class;         { "http://tempuri.org/" }
  ds                   = class;                 { "http://tempuri.org/" }
  GetDypsYbnoResult    = class;                 { "http://tempuri.org/" }
  GetEirInfoResult     = class;                 { "http://tempuri.org/" }
  GetCtnChargeResult   = class;                 { "http://tempuri.org/" }
  GetBackFCtnInfoResult = class;                { "http://tempuri.org/" }
  GetEnterPortInfoResult = class;               { "http://tempuri.org/" }
  GetCusediInfoResult  = class;                 { "http://tempuri.org/" }



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  ds_dyCtn = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  SyncDyxtImbillXlfInfoResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  ds_dyImbill = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  SyncDyxtImbillInvoInfoResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  ds = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  GetDypsYbnoResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  GetEirInfoResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  GetCtnChargeResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  GetBackFCtnInfoResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  GetEnterPortInfoResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;



  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // ************************************************************************ //
  GetCusediInfoResult = class(TRemotable)
  private
    Fs_schema: String;
  published
    property s_schema: String read Fs_schema write Fs_schema;
  end;


  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // soapAction: http://tempuri.org/%operationName%
  // transport : http://schemas.xmlsoap.org/soap/http
  // binding   : DyxtServiceSoap
  // service   : DyxtService
  // port      : DyxtServiceSoap
  // URL       : http://www.yydy.com/GacoWebService/DyxtService.asmx
  // ************************************************************************ //
  DyxtServiceSoap = interface(IInvokable)
  ['{B3555125-FB2D-4634-8DBE-5FE0A2C7C0FE}']
    function  SyncDyxtImbillXlfInfo(const s_Key: String; const ds_dyCtn: ds_dyCtn): SyncDyxtImbillXlfInfoResult; stdcall;
    function  SyncDyxtImbillInvoInfo(const s_Key: String; const ds_dyImbill: ds_dyImbill): SyncDyxtImbillInvoInfoResult; stdcall;
    function  SyncDyxtImbillCtnInfo(const s_Key: String; const ds: ds): Boolean; stdcall;
    function  GetDypsYbno(const s_Key: String): GetDypsYbnoResult; stdcall;
    function  GetEirInfo(const s_caragt: String; const s_key: String; const s_billno: String): GetEirInfoResult; stdcall;
    function  GetCtnCharge(const s_caragt: String; const s_key: String; const s_billno: String; const s_ctnno: String; const s_tp: String): GetCtnChargeResult; stdcall;

    //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
    function  GetCtnChargeXml(const s_caragt: String; const s_key: String; const s_billno: String; const s_ctnno: String; const s_tp: String): WideString; stdcall;
    function  GetBackFCtnInfo(const s_caragt: String; const s_key: String; const s_billno: String; const s_ctnno: String; const s_tp: String): GetBackFCtnInfoResult; stdcall;
    //<2F><>ȡ<EFBFBD><C8A1><EFBFBD>䷵<EFBFBD><E4B7B5><EFBFBD><EFBFBD>Ϣ
    function  GetBackFCtnInfoXml(const s_caragt: String; const s_key: String; const s_billno: String; const s_ctnno: String; const s_tp: String): WideString; stdcall;
    function  GetEnterPortInfo(const s_caragt: String; const s_key: String; const s_billno: String; const s_ctnno: String; const s_tp: String): GetEnterPortInfoResult; stdcall;
    //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
    function  GetEnterPortInfoXml(const s_caragt: String; const s_key: String; const s_billno: String; const s_ctnno: String; const s_tp: String): WideString; stdcall;
    //<2F><>ȡ<EFBFBD><C8A1>װ<EFBFBD><D7B0>Ϣ
    function  GetLoadCargoInfoXml(const s_caragt: String; const s_key: String; const s_billno: String; const s_ctnno: String; const s_tp: String): WideString; stdcall;
    //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
    function  GetCusediInfoXml(const s_caragt: String; const s_key: String; const s_billno: String): WideString; stdcall;
    function  GetCusediInfo(const s_caragt: String; const s_key: String; const s_billno: String): GetCusediInfoResult; stdcall;
    //<2F><>ȡ<EFBFBD>»<EFBFBD>ֽ<EFBFBD><D6BD>Ϣ
    function  GetBillInfo(const s_caragt: WideString; const s_key: WideString; const s_billno: WideString): Boolean; stdcall;
    function  GetLoadCtnInfo(const s_ctnope: String; const s_key: String; const s_billno: String): String; stdcall;
  end;

function GetDyxtServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''): DyxtServiceSoap;


implementation
  uses SOAPHTTPClient;

function GetDyxtServiceSoap(UseWSDL: Boolean; Addr: string): DyxtServiceSoap;
const
  defWSDL = 'http://www.yydy.com/GacoWebService/DyxtService.asmx?WSDL';
  defURL  = 'http://www.yydy.com/GacoWebService/DyxtService.asmx';
  defSvc  = 'DyxtService';
  defPrt  = 'DyxtServiceSoap';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  RIO := THTTPRIO.Create(nil);
  try
     if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
    Result := (RIO as DyxtServiceSoap);
  finally
    if Result = nil then
      RIO.Free;
  end;
end;


initialization
  InvRegistry.RegisterInterface(TypeInfo(DyxtServiceSoap), 'http://tempuri.org/', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(DyxtServiceSoap), 'http://tempuri.org/%operationName%');
  InvRegistry.RegisterInvokeOptions(TypeInfo(DyxtServiceSoap), ioDocument);//<2F><>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>û<EFBFBD><C3BB>

  RemClassRegistry.RegisterXSClass(ds_dyCtn, 'http://tempuri.org/', 'ds_dyCtn');
  RemClassRegistry.RegisterXSClass(SyncDyxtImbillXlfInfoResult, 'http://tempuri.org/', 'SyncDyxtImbillXlfInfoResult');
  RemClassRegistry.RegisterXSClass(ds_dyImbill, 'http://tempuri.org/', 'ds_dyImbill');
  RemClassRegistry.RegisterXSClass(SyncDyxtImbillInvoInfoResult, 'http://tempuri.org/', 'SyncDyxtImbillInvoInfoResult');
  RemClassRegistry.RegisterXSClass(ds, 'http://tempuri.org/', 'ds');
  RemClassRegistry.RegisterXSClass(GetDypsYbnoResult, 'http://tempuri.org/', 'GetDypsYbnoResult');
  RemClassRegistry.RegisterXSClass(GetEirInfoResult, 'http://tempuri.org/', 'GetEirInfoResult');
  RemClassRegistry.RegisterXSClass(GetCtnChargeResult, 'http://tempuri.org/', 'GetCtnChargeResult');
  RemClassRegistry.RegisterXSClass(GetBackFCtnInfoResult, 'http://tempuri.org/', 'GetBackFCtnInfoResult');
  RemClassRegistry.RegisterXSClass(GetEnterPortInfoResult, 'http://tempuri.org/', 'GetEnterPortInfoResult');
  RemClassRegistry.RegisterXSClass(GetCusediInfoResult, 'http://tempuri.org/', 'GetCusediInfoResult');

//  RemClassRegistry.RegisterXSClass(GetDataSetResult, 'http://tempuri.org/', GetDataSetResult);
//  RemClassRegistry.RegisterXSClass(updateSet, 'http://tempuri.org/', 'updateSet');


end.