Delphi短信接口开发示例代码

//接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。//账户注册：请通过该地址开通账户/new/register.html//注意事项：//（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。//（2）请使用用户名及APIkey来调用接口，APIkey在会员中心可以获取；//（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；//************************************************************************////Thetypesdeclaredinthisfileweregeneratedfromdatareadfromthe//WSDLFiledescribedbelow://WSDL:http://106./webservice/sms.php?wsdl//>Import:http://106./webservice/sms.php?wsdl:0//Encoding:utf-8//Version:1.0//(2013/11/2610:37:24--$Rev:10138$)//************************************************************************//unitsms;interfaceusesInvokeRegistry,SOAPHTTPClient,Types,XSBuiltIns;constIS_OPTN=$0001;IS_REF=$0080;type//************************************************************************////Thefollowingtypes,referredtointheWSDLdocumentarenotbeingrepresented//inthisfile.Theyareeitheraliases[@]ofothertypesrepresentedorwerereferred//tobutnever[!]declaredinthedocument.Thetypesfromthelattercategory//typicallymaptopredefined/knownXMLorBorlandtypes;however,theycouldalso//indicateincorrectWSDLdocumentsthatfailedtodeclareorimportaschematype.//************************************************************************////!:int-"/2001/XMLSchema"[Gbl]//!:string-"/2001/XMLSchema"[Gbl]//!:srting-"/2001/XMLSchema"[Gbl]SubmitResult=class;{"http://106./"[GblCplx]}ChangePasswordResult=class;{"http://106./"[GblCplx]}GetNumResult=class;{"http://106./"[GblCplx]}VersionInfoResult=class;{"http://106./"[GblCplx]}//************************************************************************////XML:SubmitResult,global,//Namespace:http://106.///************************************************************************//SubmitResult=class(TRemotable)privateFcode:Integer;Fmsg:WideString;Fsmsid:Integer;publishedpropertycode:IntegerreadFcodewriteFcode;propertymsg:WideStringreadFmsgwriteFmsg;propertysmsid:IntegerreadFsmsidwriteFsmsid;end;//************************************************************************////XML:ChangePasswordResult,global,//Namespace:http://106.///************************************************************************//ChangePasswordResult=class(TRemotable)privateFcode:Integer;Fmsg:WideString;publishedpropertycode:IntegerreadFcodewriteFcode;propertymsg:WideStringreadFmsgwriteFmsg;end;//************************************************************************////XML:GetNumResult,global,//Namespace:http://106.///************************************************************************//GetNumResult=class(TRemotable)privateFcode:Integer;Fmsg:WideString;Fnum:Integer;publishedpropertycode:IntegerreadFcodewriteFcode;propertymsg:WideStringreadFmsgwriteFmsg;propertynum:IntegerreadFnumwriteFnum;end;//************************************************************************////XML:VersionInfoResult,global,//Namespace:http://106.///************************************************************************//VersionInfoResult=class(TRemotable)privateFmsg:WideString;publishedpropertymsg:WideStringreadFmsgwriteFmsg;end;//************************************************************************////Namespace:http://106.///soapAction:http://106./%operationName%//transport:/soap/http//style:document//binding:smsSoap//service:sms//port:smsSoap//URL:http://106./webservice/sms.php?smsService//************************************************************************//smsSoap=interface(IInvokable)['{228902AE-4B53-39C9-05CA-F389FEE82174}']functionSubmit(constaccount:WideString;constpassword:WideString;constmobile:WideString;constcontent:WideString):SubmitResult;stdcall;functionChangePassword(constaccount:WideString;constpassword:WideString;constnewpassword:WideString):ChangePasswordResult;stdcall;functionGetNum(constaccount:WideString;constpassword:WideString):GetNumResult;stdcall;functionVersionInfo:VersionInfoResult;stdcall;end;functionGetsmsSoap(UseWSDL:Boolean=System.False;Addr:string='';HTTPRIO:THTTPRIO=nil):smsSoap;implementationusesSysUtils;functionGetsmsSoap(UseWSDL:Boolean;Addr:string;HTTPRIO:THTTPRIO):smsSoap;constdefWSDL='http://106./webservice/sms.php?wsdl';defURL='http://106./webservice/sms.php?smsService';defSvc='sms';defPrt='smsSoap';varRIO:THTTPRIO;beginResult:=nil;if(Addr='')thenbeginifUseWSDLthenAddr:=defWSDLelseAddr:=defURL;end;ifHTTPRIO=nilthenRIO:=THTTPRIO.Create(nil)elseRIO:=HTTPRIO;tryResult:=(RIOassmsSoap);ifUseWSDLthenbeginRIO.WSDLLocation:=Addr;RIO.Service:=defSvc;RIO.Port:=defPrt;endelseRIO.URL:=Addr;finallyif(Result=nil)and(HTTPRIO=nil)thenRIO.Free;end;end