Delphi短信接口開發(fā)示例代碼

//接口類型：互億無線觸發(fā)短信接口，支持發(fā)送驗證碼短信、訂單通知短信等。//賬戶注冊：請通過該地址開通賬戶/new/register.html//注意事項：//（1）調試期間，請使用用系統(tǒng)默認的短信內容：您的驗證碼是：【變量】。請不要把驗證碼泄露給其他人。//（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