用Delphi 6开发Web Service初探

【Xine】中文站 — Thu, 01 Jun 2006 08:45:00 GMT

用Delphi 6开发Web Service初探

��介：“网�l�就是计��机�Q��Y件就是服务”的思想已经逐步深入人心。由于Web Services能够通过�|�络把服务直接递送给�l�端用户�Q�而且�׃��多主��厂商所支持和描�l�的��好前景也让我们心动不已。据有关报告预计�Q?002�q�多��C��业将会对于Web服务产生兛_��。另外，�?004�q�Fortune 2000家企业引�q�的应用软�g解决�Ҏ��之中�Q�Web服务��占很大的比重。最�q�，关于如何建立Web Service的文章较多，但大多是用VS.NET完成的，而关于如何用Delphi 6开发的文章较少。本文介�l�了一个用Delphi 6开发Web Service的简单的例子�Q�以辑ֈ�抛砖引玉之效果。�?br />一、 Web Service概述
��管关于Web Service是什么有各种各样的理解，但下面的定义有助于读者从不同侧面、不同层�ơ了解Web Service。第一�Q�Web Service��是一个应用程序。它通过WEB向外界提供了如何调用自��n功能/服务的说明（WSDL�Q�。这可以让�Q何�h从�Q何地方��用它所提供的这些服务。或者这栯��Q�Web Service是指可以通过Web技术实现动态联动的软�g。�?br />�W�二�Q�Web Service是新兴的电子商务应用�Q�IBM公司高��副总裁��D�Y仉��执行官Steve Mills语）。Web Service使在Web上的彼此互联和交互更�Ҏ��、更有效�Q��ƈ可以大大降低目前在B2B�{�环境下�q�行�~�码定制时所需的时间。第三：Web Services是透过�|�络享用�q�程服务的一�U�概��c��第四：Web Services是徏立可互操作的分布式应用程序的新��^台。Web Services的主要目标是跨��^台的可互操作性。Web Services�q�_��是一套标准，它定义了应用�E�序如何在WEB上实��C��操作性。第五：Web Services是指一套��Y件工��P��以及一�U�旨在��软�g通过互联�|�发挥类似拼装玩具作用的整体处理方式。第六：Web Service是一�U�想把全世界的Internet/Intranet变成一个虚拟计��环境的观念和技术。第七：Web 服务是一个被包装成单一实体�Q�且被发布以供其它程序��用的功能集合�Q�或者说Web 服务是Internet上一�p�d��能够以编�E�的方式调用的相关的应用�E�序功能。还有一些其它的说法�Q�但通过�q�些定义�Q�我们可以看出Web Services的基本理忉|��Q�把软�g做成服务�Q��ƈ且遵从相应的标准�Q�让不同的系�l�可以跨��^収ͼ�彼此�怺�兼容�Q�具有进行无�~�通信和数据共享的能力。�?br />接着�Q�我们看看关于Web Services的几个核心概��c��第一�Q�Web Services若要让异构��^��C��不同�pȝ��可以�怺�通信和共享数据，那数据在WEB上传输必��M��一定的标准和格式进行，�q�个表示数据的标准就是XML�Q�所以微软称之�ؓXML Web Services�Q�。第二：不同�pȝ��遵从什么协议发送和接收�q�些标准的XML数据从而达到相互通信的目的呢�Q�这个必��遵守的协议��是SOAP�Q�Simple Object Access Protocol��单对象访问协议）。SOAP是在2000�q?�?日由Microsoft 和IBM�{�公司参与制定的规范。SOAP不与��M��一�U�对象模式（如DCOM、CORBA�{�）相关�Q�它是一�U�独立的、通用的、基于XML标准的、文本的对象间访问协议。简而言之，SOAP是运用 XML 技术之�q�程�q�程调用 ( Remote Procedure Call) 的通讯协议。SOAP把对象间的访问请求和响应都打包成XML文档�Q�在对象间传递。由于SOAP传递的消息都以XML文��形式发送和接收�Q�它最理想、最自然的实现方式就是HTTP�Q�所以客��L��仅需具备基本 TCP/IP �|�络环境�Q�即可��n用全球各处之 Web Services。第三：其他�pȝ��如何知道你的Web Services是完成什么功能的�Q�你如何让其他系�l�知道你的Web Services提供了哪些服务？解决办法��是WSDL�Q�Web Service Description Language�Q�Web 服务描述语言�Q�。它用机器可阅读的格式描�q�C��你的Web Services�Q�从而让其他�pȝ��可以调用你所提供的服务。只要我们能够取得特定Web Service的WSDL�Q�就可以从其中了解它提供的服务，以及如何呼叫�q�个Web Service。WSDL也是 XML �Q�只是有一定的规范要求。服务端提供 WSDL 文�g最重要的用途就是向客户端提供服务端接口的描�q�。第四：你的Web Services如何发布以便让世界上��M��一个地点的人或�pȝ��得知你有�q�项服务从而调用它�Q�或者作为服务请求者，你如何搜索你需要的Web Services呢？�q�个概念为UDDI�Q� Universal Description, Discovery, Integration�Q�通用描述、发��C��集成�Q�。类��g��yahoo提供的搜索网站的引擎和B2B电子商务的��品目录搜索，Web Service的提供者必��d��UDDI注册中心注册�Q�而服务的��h��者若搜烦某项服务�Q�可到UDDI注册中心查询。UDDI注册中心扮演了服务的代理者的角色。现在有商业的UDDI�q�营商和公众UDDI注册中心。三者的关系如下图所�C�：

�? 服务提供者、服务请求者、服务代理者的关系

UDDI与XML、SOAP(��单对象访问协�?以及WSDL(Web服务描述语言)一��h��为Web Services的事实上的核心标准。 �?br />二、如何用Delphi 6开发Web Services
Web Service可以�׃�Q何的技术开发，Delphi6作�ؓMicrosoft Window�q�_��的Web Services 基础环境与开发工��P�� RAD便利性带入Web Services 开发领域，��化了开发Web Services应用�E�序复杂度，让开发�h员专注于应用面的开发，而无��顾及繁琐的Web Services规格面制作。下面我们以一个简单的例子说明如何用Delphi 6开发Web Services。这个例子中我们提供了查询成�l�的服务�Q�客��L��Q�服务请求者——可以是��览器、Windows�E�序甚或Linux�E�序�Q�在�q�里�Q��ؓ了简单�v见，我们用了传统的Windows�E�序�Q�可以输入学��P��查询出相应的成�W来。�?br />1、创建服务�?br />首先我们要徏立一个成�l�表�Q�名�U�CؓGrade。我们在SQL SERVER里面建立一个TEST库，在其下徏立Grade表，它有三个字段�Q�分别�ؓStudentID、Name、Grade。随后我们随便向里面��d��一些数据。然后我们配�|�一下ODBC�Q�在�pȝ��DSN中添加一个数据源�Q�名�U��v为Grade�Q�指向我们刚才徏立的TEST库。如图二所�C?

�? 配置ODBC

接着我们在Delphi6里启动New | Web Services | Soap Server Application�Q�确定后�Q�在接下来的对话框中选择Web App Debugger executable。我们选择�q�种�c�d��制作Web Services是因��个�Ş态可以让我们在开发时便于调试。设�|�其CoClass Name为MyWebServicesTest1�Q�如下图所�C�：

�? 建立Web Services

�q�时Delphi会自动给我们生成一个Form和一个WebModule�Q�WebModule中的几个�l��g是帮助我们用SOAP�q�行通信和发布WSDL的，有了它们�Q�我们就可以开始集中精力编写实际的应用代码了。现在我们New一个Data Module �Q�在File菜单里选择New|Data Module�Q�在其上攄��一个ADOQuery以连接我们的数据�Q�设�|�其ConnectionString属性�ؓProvider=MSDASQL.1;Password=sa;Persist Security Info=True;User ID=sa;Data Source=Grade�Q�选择Build�Q�然后选择微��Y提供的ODBC驱动�Q�选下一步，使用指定的数据源名称Grade�Q�输入用户名�U�和密码��定卛_��Q�。将该单元保存�ؓdm。如图所�C�：

�? �q�数据源

现在我们要定义要存储学生信息的结构。我们New一个Unit�Q�在file菜单里选择New|Unit�Q�写上如下的代码�Q��?br />unit DataType;
interface
Uses InvokeRegistry;
Type
TStudentInfo=Class(TRemotable)
Private
FName : String;
FGrade : Single;
published
Property Name : String Read FName Write FName;
Property Grade : Single Read FGrade Write FGrade;
end;
implementation
Initialization
RemClassRegistry.RegisterXSClass(TStudentInfo);
Finalization
RemClassRegistry.UnRegisterXSClass(TStudentInfo);
end.
因�ؓ学生信息需要传递到客户端，所以它必须从 TRemotable �c�L��生。将�q�个Unit保存为DataType。 �?br />接着�Q�我们要建立用户��h��服务的接口，�q�个接口只有一个取得成�l�的功能。New一个Unit�Q�写上如下的代码�Q��?br />unit ServicesInterface;
interface
Uses InvokeRegistry,DataType;
Type
ISoapGrade=Interface(IInvokable)
['{9884ADA8-8FDC-4002-94A3-2370A269018F}'] //注意�Q�要�l�这个接口分�?/一个GUID�Q�在Delphi里用Crtl+Shift+G产生。�?br />Function GetGrade(Number:Integer):TStudentInfo;StdCall; //调用�q�个接口函数
//��返回一个TstudentInfo�c�d��的数据。�?br />End;
implementation
Initialization
InvRegistry.RegisterInterface(TypeInfo(ISoapGrade));
end.
��这个单元保存�ؓServicesInterface。�?br />然后我们要编写这个接口的实现�c�R��在Unit2�Q�WebModule单元�Q�里��d��实现�cȝ��定义。完整的代码如下�Q��?br />unit Unit2;
interface
uses SysUtils, Classes, HTTPApp, WSDLPub, SOAPPasInv, SOAPHTTPPasInv, SoapHTTPDisp, WebBrokerSOAP;
type
TWebModule2 = class(TWebModule)
HTTPSoapDispatcher1: THTTPSoapDispatcher;
HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
WSDLHTMLPublish1: TWSDLHTMLPublish;
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule2: TWebModule2;
implementation
uses WebReq,InvokeRegistry,DataType,ServicesInterface,dm;
Type
TSoapGrade=class(TInvokableClass,ISoapGrade)
Protected
Function GetGrade(Number:Integer):TStudentInfo;StdCall;
End; //定义�q�个接口�c��?br />Function TSoapGrade.GetGrade(Number:Integer):TStudentInfo;StdCall;
Begin
Result:=TStudentInfo.Create;
If ( Not Assigned( DataModule3)) Then
DataModule3:=TDataModule3.Create(Nil); //如果DataModule3没有创徏�Q�则创徏它。�?br />Try
With DataModule3.ADOQuery1 Do
Begin
active:=false;
sql[0]:='select * from Grade where StudentID='+inttostr(Number)+';
active:=true;
//�Ҏ��用户输入的学号和数据库连接。�?br />If (Not Eof) Then
Begin
Result.Name:=FieldByName('Name').AsString;
Result.Grade:=FieldByName('Grade').AsFloat;
//从数据库里取得合适的值给要传递的信息。�?br />End
Else
Begin
Result.Name:='未查询到!'; Result.Grade:=0;
End;
Close;
End;
Finally
DataModule3.Free; DataModule3:=Nil;
End;
End;
initialization
WebRequestHandler.WebModuleClass:=TWebModule2;
InvRegistry.RegisterInvokableClass(TSoapGrade);
end.
到现在，我们已经创徏了一个Web Services�Q�保存，�~�译�Q�运行，卛_��Web App Debugger那里完成了此Web Services的注册工作。那么我们这个Web Services提供了什么功能？如何调用它？�q�些问题可以通过看看它的WSDL来看到。我们启动Web App Debugger�Q�在Tools菜单下）�Q�然后启IE�Q�在地址栏里输入�Q?img style="CURSOR: pointer" onclick="javascript:window.open(this.src);" src="http://www.blogcn.com/images/aurl.gif" onload="javascript:if(this.width>500)this.style.width=500;" align="absBottom" border="0" />http://localhost:1024/server.MyWebServicesTest1/wsdl/IsoapGrade�Q�即可看到用XML语言写成的WSDL�Q�有了它�Q�服务请求者就可以调用我们的服务了�?/font>
2、实现客��L��Q�调用服务�?br />我们建立一个普通的应用�E�序�Q�在form上面攄��3个label�?个edit�?个button以及一个HTTPRIO1�Q�在WebServices�l��g��里�Q�，��HTTPRIO1的URL属性设�?img style="CURSOR: pointer" onclick="javascript:window.open(this.src);" src="http://www.blogcn.com/images/aurl.gif" onload="javascript:if(this.width>500)this.style.width=500;" align="absBottom" border="0" />http://localhost:1024/server.MyWebServicesTest1/soap�Q�以便利用SOAP通信。界面如下图所�C�：

�? 客户端的传统windows�E�序界面

接着��Z��让这个客��L��E�序知道我们刚才建立的Web Services的WSDL以便��h��服务�Q�我们必��d��客户端那里导入WSDL以便获得服务的接口。幸�q�的是，我们�Ҏ��不必很麻烦的自己�~�程�Q�Delphi已经�l�我们做了。启动New | Web Services |Web Services Importer�Q�然后输入WSDL所在URL地址为：500)this.style.width=500;" align="absBottom" border="0" />http://localhost:1024/server.MyWebServicesTest1/wsdl/IsoapGrade�Q�接着��定产生�Q�Delphi自动会�ؓ我们产生两个unit�Q�这��h��口的事情��全部交�l�Delphi�Q�我们就不必��了。如图所�C�：

�? 引入WSDL

最后，在Form1的确定按钮的OnClick事�g里添加如下的代码�Q��?br />procedure TForm1.Button1Click(Sender: TObject);
Var
Student:TStudentInfo;
begin
Student:=(HTTPRIO1 As ISoapGrade).GetGrade(StrToInt(Edit1.Text));
If (Assigned(Student)) Then
Begin
Edit2.Text:=Student.Name;
Edit3.Text:=floattostr(Student.Grade);
End;
end;
�q�注意要在unit1的uses中添加unit2和unit3。保存，�~�译。至此我们的客户端程序开发完毕，调用Web Services是不是很��单？下图是客��L��调用的结果：

�? 调用的执行结�?br />
目前互联�|�上已经有一些网站罗列了许多Web Services�Q�例�?img style="CURSOR: pointer" onclick="javascript:window.open(this.src);" src="http://www.blogcn.com/images/aurl.gif" onload="javascript:if(this.width>500)this.style.width=500;" align="absBottom" border="0" />http://www.xmethods.com�Q�上面有关于各个Web Services说明以及WSDL的描�q�ͼ�读者若有兴��可以自��q��写客��L��E�序引入上面的WSDL。当读者能够利用自��q��写的客户端跨��各�U��^台和�|�络�l�构�Q�调用地球另一侧的��Z��许用java写成的Web Services�Ӟ��怿�你一定�ؓWeb Services的强大而欢�ƣ鼓舞。�?br />三、小�l��?br />从上面的例子我们可以看到�Q�只要理解了Web Services的概念，熟悉了Web Services的开发步骤，在Delphi的帮助下�Q�开发Web Services��不是一件很困难的事情。Web Services最适合用于开发跨�q�_��和跨�|�络�q�行通信�Q�因��Z��用http协议为防火墙所允许�Q�的�E�序�Q�可以跨��异质架构，联系客户、供应商、企业伙伴以及企业内部之信息�pȝ��Q�是电子商务B2B集成的最佳选择。各个公司只要把商务逻辑“暴霜y��出来，成�ؓWeb Service�Q�就可以让�Q何指定的合作伙伴调用�q�些商务逻辑�Q�而不��他们的�pȝ��在什么��^��C��q�行�Q��用什么开发语�a�。但也没有必要把所有的软�g都做成Web Services�Q�正如“尺有所短，寸有所镎쀝一��P��传统的windows�E�序也大有用武之地。Web Services是目前很热门也是正在�q�速发展着的一��Ҏ��术，本文只是作者在学习中的一点小体会�Q�肯定有理解不深�ȝ��或错误的地方�Q�欢�q�大家予以指正。�?br />

【Xine】中文站 2006-06-01 16:45 发表评论

亚洲人成网站色在线入口,亚洲黄色片在线观看,亚洲伊人久久大香线蕉啊

用Delphi 6开发Web Service初探

Delphi 6用戶端應用程式藉由THTTPRIO呼叫遠端Web Service

怎么判断一个文件是不是文本�c�d��文�g?