DELPHI对接验证码短信接口DEMO示例

DELPHI短信插件

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

//接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。//账户注册：请通过该地址开通账户 /?9vXc7//注意事项：//（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。//（2）请使用用户名及 APIkey来调用接口，APIkey在会员中心可以获取；//（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；// ************************************************************************ //// The types declared in this file were generated from data read from the// WSDL File described below:// WSDL: /webservice/sms.php?wsdl// >Import : /webservice/sms.php?wsdl:0// Encoding : utf-8// Version : 1.0// (/11/26 10:37:24 - - $Rev: 10138 $)// ************************************************************************ //unit sms;interfaceuses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;constIS_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 - "/2001/XMLSchema"[Gbl]// !:string- "/2001/XMLSchema"[Gbl]// !:srting- "/2001/XMLSchema"[Gbl]SubmitResult = class; { "/"[GblCplx] }ChangePasswordResult = class; { "/"[GblCplx] }GetNumResult = class; { "/"[GblCplx] }VersionInfoResult = class; { "/"[GblCplx] }// ************************************************************************ //// XML : SubmitResult, global, // Namespace : /// ************************************************************************ //SubmitResult = class(TRemotable)privateFcode: Integer;Fmsg: WideString;Fsmsid: Integer;publishedproperty code: Integerread Fcode write Fcode;property msg: WideString read Fmsg write Fmsg;property smsid: Integerread Fsmsid write Fsmsid;end;// ************************************************************************ //// XML : ChangePasswordResult, global, // Namespace : /// ************************************************************************ //ChangePasswordResult = class(TRemotable)privateFcode: Integer;Fmsg: WideString;publishedproperty code: Integerread Fcode write Fcode;property msg: WideString read Fmsg write Fmsg;end;// ************************************************************************ //// XML : GetNumResult, global, // Namespace : /// ************************************************************************ //GetNumResult = class(TRemotable)privateFcode: Integer;Fmsg: WideString;Fnum: Integer;publishedproperty code: Integerread Fcode write Fcode;property msg: WideString read Fmsg write Fmsg;property num: Integerread Fnum write Fnum;end;// ************************************************************************ //// XML : VersionInfoResult, global, // Namespace : /// ************************************************************************ //VersionInfoResult = class(TRemotable)privateFmsg: WideString;publishedproperty msg: WideString read Fmsg write Fmsg;end;// ************************************************************************ //// Namespace : /// soapAction: /%operationName%// transport : /soap/http// style: document// binding : smsSoap// service : sms// port: smsSoap// URL : /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;implementationuses SysUtils;function GetsmsSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): smsSoap;constdefWSDL = '/webservice/sms.php?wsdl';defURL = '/webservice/sms.php?smsService';defSvc = 'sms';defPrt = 'smsSoap';varRIO: THTTPRIO;beginResult := nil;if (Addr = '') thenbeginif UseWSDL thenAddr := defWSDLelseAddr := defURL;end;if HTTPRIO = nil thenRIO := THTTPRIO.Create(nil)elseRIO := HTTPRIO;tryResult := (RIO as smsSoap);if UseWSDL thenbeginRIO.WSDLLocation := Addr;RIO.Service := defSvc;RIO.Port := defPrt;end elseRIO.URL := Addr;finallyif (Result = nil) and (HTTPRIO = nil) thenRIO.Free;end;end;initializationInvRegistry.RegisterInterface(TypeInfo(smsSoap), '/', 'utf-8');InvRegistry.RegisterDefaultSOAPAction(TypeInfo(smsSoap), '/%operationName%');InvRegistry.RegisterInvokeOptions(TypeInfo(smsSoap), ioDocument);RemClassRegistry.RegisterXSClass(SubmitResult, '/', 'SubmitResult');RemClassRegistry.RegisterXSClass(ChangePasswordResult, '/', 'ChangePasswordResult');RemClassRegistry.RegisterXSClass(GetNumResult, '/', 'GetNumResult');RemClassRegistry.RegisterXSClass(VersionInfoResult, '/', 'VersionInfoResult');end.

//接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。

//账户注册：请通过该地址开通账户 /?9vXc7

//注意事项：

//（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。

//（2）请使用用户名及 APIkey来调用接口，APIkey在会员中心可以获取；

//（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；