【易语言】验证码短信接口对接DEMO示例:天天精选

(资料图片)

本文为您提供了易语言版本的验证码短信接口对接DEMO示例

//接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。 //账户注册：请通过该地址开通账户 http://user.ihuyi.com/?DKimmu //注意事项： //（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.ihuyi.com/webservice/sms.php?wsdl//  >Import : http://106.ihuyi.com/webservice/sms.php?wsdl:0// Encoding : utf-8// Version  : 1.0// (2013/11/26 10:37:24 - - $Rev: 10138 $)// ************************************************************************ //unit sms;interfaceuses 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.ihuyi.com/"[GblCplx] }  ChangePasswordResult = class;                 { "http://106.ihuyi.com/"[GblCplx] }  GetNumResult         = class;                 { "http://106.ihuyi.com/"[GblCplx] }  VersionInfoResult    = class;                 { "http://106.ihuyi.com/"[GblCplx] }  // ************************************************************************ //  // XML       : SubmitResult, global,   // Namespace : http://106.ihuyi.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.ihuyi.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.ihuyi.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.ihuyi.com/  // ************************************************************************ //  VersionInfoResult = class(TRemotable)  private    Fmsg: WideString;  published    property msg: WideString  read Fmsg write Fmsg;  end;  // ************************************************************************ //  // Namespace : http://106.ihuyi.com/  // soapAction: http://106.ihuyi.com/%operationName%  // transport : http://schemas.xmlsoap.org/soap/http  // style     : document  // binding   : smsSoap  // service   : sms  // port      : smsSoap  // URL       : http://106.ihuyi.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.ihuyi.com/webservice/sms.php?wsdl";  defURL  = "http://106.ihuyi.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.ihuyi.com/", "utf-8");  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(smsSoap), "http://106.ihuyi.com/%operationName%");  InvRegistry.RegisterInvokeOptions(TypeInfo(smsSoap), ioDocument);  RemClassRegistry.RegisterXSClass(SubmitResult, "http://106.ihuyi.com/", "SubmitResult");  RemClassRegistry.RegisterXSClass(ChangePasswordResult, "http://106.ihuyi.com/", "ChangePasswordResult");  RemClassRegistry.RegisterXSClass(GetNumResult, "http://106.ihuyi.com/", "GetNumResult");  RemClassRegistry.RegisterXSClass(VersionInfoResult, "http://106.ihuyi.com/", "VersionInfoResult");end.