在Delphi下SOAP技術(shù)的實(shí)現(xiàn)

DelphiSOAP技術(shù)的實(shí)現(xiàn)一、開發(fā)SOAP服務(wù)端1、打開:[文件]/[新建]/[其他]，出現(xiàn)以下界面：2、選擇ISAPI/INSAPIDynamicLinkLibrary3、在ServiceName中輸入接口名，如：現(xiàn)輸入媒體發(fā)送接口SendMedia4、出現(xiàn)SendMediaInf和SendMediaImpl兩個(gè)Pas文件，其中SendMediaInf是COM接口描述的文件，SendMediaImpl是接口的實(shí)現(xiàn)在SendMediaInf文件中出現(xiàn)ISendMedia=interface(IInvokable)的接口類型定義，現(xiàn)在接口類型描述中增加兩個(gè)函數(shù)：0。functionechoSendSM(constSMContent,PhoneNum:String):integer;stdcall;、獲取短信發(fā)送次數(shù)。functionechoGetSendTimes:integer;stdcall;代碼：type{InvokableinterfacesmustderivefromIInvokableISendMedia=interface(IInvokable)['{A5D12FE2-EF42-401C-9C4A-9E4A322E74B4}']functionechoSendSM(constSMContent,PhoneNum:String):integer;stdcall;functionechogetSendTimes:integer;stdcall;end;5、SendMediaImplSendMediaInf函數(shù)描述，保持與接口中定義的函數(shù)保持同步type{TSendMedia}TSendMedia=class(TInvokableClass,ISendMedia)PublicfunctionechoSendSM(constSMContent,PhoneNum:String):integer;stdcall;functionechogetSendTimes:integer;stdcall;end;6、在SendMediaImpl文件中完成函數(shù)的實(shí)現(xiàn)functionTSendSM.echoSendSM(constSMContent,PhoneNum:String):integer;varStr:pchar;beginStr:=pchar('Sendto:['+PhoneNum+']Content:['+SMContent+']');WriteLog(Str);result:=0;end;functionTSendSM.echogetSendTimes:integer;beginresult:=GetSendTimes;end;varFileHandle:Thandle;SendTimes:integer;//私有函數(shù)：寫日志前初始化procedureInitLogFile;varLogFile:String;beginLogFile:='C:\SendSM.log';ifFileExists(LogFile)thenbeginFileHandle:=FileOpen(LogFile,fmOpenReadWrite);FileSeek(FileHandle,0,2);endelsebeginFileHandle:=FileCreate(LogFile);end;end;//私有函數(shù)：寫日志procedureWriteLog(constlog:pchar);varlogStr:Pchar;beginInitLogFile;logStr:=Pchar(log+#13#10);FileWrite(FileHandle,logStr^,length(logStr));FileClose(FileHandle);incTimes;end;procedureincTimes;begininc(SendTimes);end;7、編譯成功，完成SOAPSendMedia.dllDLL文件二、 將DLL文件掛載到IIS服務(wù)器，并獲取WSDL文件。1、安裝IIS后，打開Internet信息服務(wù)2、右擊默認(rèn)網(wǎng)站，新建虛擬目錄3、輸入DLL存放路徑3、點(diǎn)擊完成。4SendSM教本資源訪問選擇教本和可執(zhí)行文件]5、打開瀏覽器，訪問虛擬目錄中的SendMedia.dll,會發(fā)現(xiàn)有echoSendSM和echoGetSendTimes（注：下圖內(nèi)容不太準(zhǔn)確。6IsendMediaWSDLWSDLSendMedia.wsdl.7IsendMediaWSDLWSDLSendMedia.wsdl.三、創(chuàng)建訪問SOAP接口的客戶端1、通過WSDL文件獲取SOAP接口WSDLImporterWSDLSendMedia接口的Pas文件，其中有定義訪問SOAP接口的方法functionGetISendSM(UseWSDL:Boolean;Addr:string;HTTPRIO:THTTPRIO):IsendMedia;constdefURL ='6/SendSM/SendMedia.dll/soap/IsendMedia';defSvc ='ISendSMservice';defPrt ='ISendSMPort';Begin……….End2、連接SOAP接口VarSendSM:ISendMedia;SendSM:=ISendMedia.GetISendSM(false,'',nil);3、調(diào)用SOAP中的函數(shù)、短信發(fā)送函數(shù)ProcedureTForm1.SendTimesClick(Sender:TObject);BeginifSendSM.echoSendSM('HUAWEINJRESEARCH')=0thenShowMessage('ShortMessageSendOK!');End;、獲取短信發(fā)送次數(shù)函數(shù)Proce