DelphiSOAP技術的實現一、開發SOAP服務端1、打開:[文件]/[新建]/[其他]，出現以下界面：2、選擇ISAPI/INSAPIDynamicLinkLibrary3、在ServiceName中輸入接口名，如：現輸入媒體發送接口SendMedia4、出現SendMediaInf和SendMediaImpl兩個Pas文件，其中SendMediaInf是COM接口描述的文件，SendMediaImpl是接口的實現在SendMediaInf文件中出現ISendMedia=interface(IInvokable)的接口類型定義，現在接口類型描述中增加兩個函數：0。functionechoSendSM(constSMContent,PhoneNum:String):integer;stdcall;、獲取短信發送次數。functionechoGetSendTimes:integer;stdcall;代碼：type{InvokableinterfacesmustderivefromIInvokableISendMedia=interface(IInvokable)['{A5D12FE2-EF42-401C-9C4A-9E4A322E74B4}']functionechoSendSM(constSMContent,PhoneNum:String):integer;stdcall;functionechogetSendTimes:integer;stdcall;end;5、SendMediaImplSendMediaInf函數描述，保持與接口中定義的函數保持同步type{TSendMedia}TSendMedia=class(TInvokableClass,ISendMedia)PublicfunctionechoSendSM(constSMContent,PhoneNum:String):integer;stdcall;functionechogetSendTimes:integer;stdcall;end;6、在SendMediaImpl文件中完成函數的實現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;//私有函數：寫日志前初始化procedureInitLogFile;varLogFile:String;beginLogFile:='C:\SendSM.log';ifFileExists(LogFile)thenbeginFileHandle:=FileOpen(LogFile,fmOpenReadWrite);FileSeek(FileHandle,0,2);endelsebeginFileHandle:=FileCreate(LogFile);end;end;//私有函數：寫日志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服務器，并獲取WSDL文件。1、安裝IIS后，打開Internet信息服務2、右擊默認網站，新建虛擬目錄3、輸入DLL存放路徑3、點擊完成。4SendSM教本資源訪問選擇教本和可執行文件]5、打開瀏覽器，訪問虛擬目錄中的SendMedia.dll,會發現有echoSendSM和echoGetSendTimes（注：下圖內容不太準確。6IsendMediaWSDLWSDLSendMedia.wsdl.7IsendMediaWSDLWSDLSendMedia.wsdl.三、創建訪問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、調用SOAP中的函數、短信發送函數ProcedureTForm1.SendTimesClick(Sender:TObject);BeginifSendSM.echoSendSM('HUAWEINJRESEARCH')=0thenShowMessage('ShortMessageSendOK!');End;、獲取短信發送次數函數Proce