在Delphi下SOAP技术的实现

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