Delphi 2005程序设计及其应用开发教学课件李存斌第11章创建ASP.NET Web 服务.ppt

《Delphi 2005程序设计及其应用开发教学课件李存斌第11章创建ASP.NET Web 服务.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第11章创建ASP.NETWeb服务本章要点11.1Web服务概述11.2创建ASP.NETWeb服务11.3Web服务方法的调用本章要点什么是Web服务如何创建ASP.NETWeb服务Web服务方法的调用返回本章首页11.1Web服务概述什么是Web服务Web服务是指由企业发布的完成其特别商务需求的在线应用服务，其他公司、合作伙伴的应用软件能够通过Internet/Extranet来动态访问并使用这些在线服务。Web服务具有以下特征：完好的封装性。松散耦合。使用规约的规范性。使用标准协议规范。高度可集成能力。开放性。Web服务的技术支持1.XML和

2、XSD2.SOAP3.WSDL4.UDDI5.远程过程调用RPC与消息传递11.1Web服务概述11.1Web服务概述Web服务的运行模式返回本章首页11.2创建ASP.NETWeb服务在Delphi2005的IDE中选择“File

3、New

4、Others”菜单命令，打开“NewItems”对话框，选择创建ASP.NETWebServiceApplication在下图输入Web服务应用程序的名称11.2创建ASP.NETWeb服务系统自动创建的Web服务应用模板11.2创建ASP.NETWeb服务Web服务方法的声明和定义[WebMethod]func

5、tionContractInfo(ContractNo:String):string;[WebMethod]functionTWebService1.ContractInfo(Money:int;Period:int;Rate:float):string;在在代码文件的TWebService1类的定义中，声明以下两个WebService方法：11.2创建ASP.NETWeb服务在单元文件的代码实现部分加入Web服务方法的实现代码[WebMethod]functionTWebService1.ContractInfo(Contract:string):

6、string;varstrSql:string;Conn1:SqlConnection;...MyDataRow:DataRow;beginMyDataSet:=DataSet.Create;tryConn1:=SqlConnection.Create('integratedsecurity=SSPI;datasource="ECON-IBM-T40-G7";initialcatalog=LoanContract');strSql:='select*fromContractInfoWhereContractNo='''+Contract+'''';…

7、end;11.2创建ASP.NETWeb服务[WebMethod]functionTWebService1.MonthlyPay(Money:integer;Period:integer;Rate:single):string;varAnnuity:Single;Months:Integer;mRate:Single;CIF:Single;i:integer;beginMonths:=Period*12;mRate:=Rate/1200;CIF:=1;fori:=1toMonthsdoCIF:=CIF*(1+mRate);Annuity:=mRate

8、*CIF*Money/(CIF-1);Result:=format('%8.2f',[Annuity]);end;11.2创建ASP.NETWeb服务运行Web服务程序11.2创建ASP.NETWeb服务ContractInfo方法的测试程序11.2创建ASP.NETWeb服务ContractInfo方法的测试结果11.2创建ASP.NETWeb服务MonthlyPay方法的测试程序11.2创建ASP.NETWeb服务MonthlyPay方法的测试结果11.2创建ASP.NETWeb服务返回本章首页11.3Web服务方法的调用首先创建一个VCLFor

9、ms应用程序添加Web引用在Delphi2005中选择“Project

10、AddWebReference”菜单命令，打开AddWebReference对话框11.3Web服务方法的调用导入Web服务11.3Web服务方法的调用编写代码调用Web服务procedureTForm1.Button2Click(Sender:TObject);varClient:TWebService1;Capital:Integer;nYears:Integer;yRate:Single;beginCapital:=StrToInt(Edit2.Text);nYears:=

11、StrToInt(Edit3.Text);yRate:=StrToFloat(Edit4.Text);Cli