DELPHI网站如何实现短信验证码功能？

学习编程的第N天，发现一个超简单验证码短信接口对接DEMO示例

// ************************************************************************ //

// 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;

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.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.

————————————————

//账户注册：请通过该地址开通账户http://user.ihuyi.com/?t9nyDN

//注意事项：

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

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

实测可用，支持短信发送，回执状态推送，余额查询接口，10分钟就能对接成功，