国产情侣自拍网站_91免费影片_亚洲图色网站_日本成aⅴ人片日本伦_久草精品视频_日韩视频免费观看

DELPHI

更新時間：2017-01-19 17:03:43   下載量：

DELPHI代碼示例

//接口類型：達信通觸發短信接口，支持發送驗證碼短信、訂單通知短信等。
//賬戶注冊：請通過該地址開通賬戶http://sms.wx96.com/register.html
//注意事項：
//（1）調試期間，請用默認的模板進行測試，默認模板詳見接口文檔；
//（2）請使用 用戶名 及 APIkey來調用接口，APIkey在會員中心可以獲取；
//（3）該代碼僅供接入達信通短信接口參考使用，客戶可根據實際需要自行編寫；

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://106.wx96.com/webservice/sms.php?wsdl
//  >Import : http://106.wx96.com/webservice/sms.php?wsdl:0
// Encoding : utf-8
// Version  : 1.0
// (2013/11/26 10:37:24 - - $Rev: 10138 $)
// ************************************************************************ //

unit sms;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_REF  = $0080;


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

  SubmitResult         = class;                 { "http://106.wx96.com/"[GblCplx] }
  ChangePasswordResult = class;                 { "http://106.wx96.com/"[GblCplx] }
  GetNumResult         = class;                 { "http://106.wx96.com/"[GblCplx] }
  VersionInfoResult    = class;                 { "http://106.wx96.com/"[GblCplx] }



  // ************************************************************************ //
  // XML       : SubmitResult, global,    // Namespace : http://106.wx96.com/   // ************************************************************************ //   SubmitResult = class(TRemotable)   private     Fcode: Integer;     Fmsg: WideString;     Fsmsid: Integer;   published     property code:  Integer     read Fcode write Fcode;     property msg:   WideString  read Fmsg write Fmsg;     property smsid: Integer     read Fsmsid write Fsmsid;   end;      // ************************************************************************ //   // XML       : ChangePasswordResult, global,    // Namespace : http://106.wx96.com/   // ************************************************************************ //   ChangePasswordResult = class(TRemotable)   private     Fcode: Integer;     Fmsg: WideString;   published     property code: Integer     read Fcode write Fcode;     property msg:  WideString  read Fmsg write Fmsg;   end;      // ************************************************************************ //   // XML       : GetNumResult, global,    // Namespace : http://106.wx96.com/   // ************************************************************************ //   GetNumResult = class(TRemotable)   private     Fcode: Integer;     Fmsg: WideString;     Fnum: Integer;   published     property code: Integer     read Fcode write Fcode;     property msg:  WideString  read Fmsg write Fmsg;     property num:  Integer     read Fnum write Fnum;   end;      // ************************************************************************ //   // XML       : VersionInfoResult, global,    // Namespace : http://106.wx96.com/   // ************************************************************************ //   VersionInfoResult = class(TRemotable)   private     Fmsg: WideString;   published     property msg: WideString  read Fmsg write Fmsg;   end;     // ************************************************************************ //   // Namespace : http://106.wx96.com/   // soapAction: http://106.wx96.com/%operationName%   // transport : http://schemas.xmlsoap.org/soap/http   // style     : document   // binding   : smsSoap   // service   : sms   // port      : smsSoap   // URL       : http://106.wx96.com/webservice/sms.php?smsService   // ************************************************************************ //   smsSoap = interface(IInvokable)   ['{228902AE-4B53-39C9-05CA-F389FEE82174}']     function  Submit(const account: WideString; const password: WideString; const mobile: WideString; const content: WideString): SubmitResult; stdcall;     function  ChangePassword(const account: WideString; const password: WideString; const newpassword: WideString): ChangePasswordResult; stdcall;     function  GetNum(const account: WideString; const password: WideString): GetNumResult; stdcall;     function  VersionInfo: VersionInfoResult; stdcall;   end;  function GetsmsSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): smsSoap;   implementation   uses SysUtils;  function GetsmsSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): smsSoap; const   defWSDL = 'http://106.wx96.com/webservice/sms.php?wsdl';   defURL  = 'http://106.wx96.com/webservice/sms.php?smsService';   defSvc  = 'sms';   defPrt  = 'smsSoap'; 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 smsSoap);     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   InvRegistry.RegisterInterface(TypeInfo(smsSoap), 'http://106.wx96.com/', 'utf-8');   InvRegistry.RegisterDefaultSOAPAction(TypeInfo(smsSoap), 'http://106.wx96.com/%operationName%');   InvRegistry.RegisterInvokeOptions(TypeInfo(smsSoap), ioDocument);   RemClassRegistry.RegisterXSClass(SubmitResult, 'http://106.wx96.com/', 'SubmitResult');   RemClassRegistry.RegisterXSClass(ChangePasswordResult, 'http://106.wx96.com/', 'ChangePasswordResult');   RemClassRegistry.RegisterXSClass(GetNumResult, 'http://106.wx96.com/', 'GetNumResult');   RemClassRegistry.RegisterXSClass(VersionInfoResult, 'http://106.wx96.com/', 'VersionInfoResult');  end.