中华网络安全联盟    作者：dfly    来源：delphi共和国    时间：2006-4-3

第一步：编写服务器的应用程序

首先在Delphi的IDE中选择”File|New|Other…”,然后在WebServices页面中选择SoapServerApplication图标。

然后在NewSoapServerApplication对话框中选择WebAppDebuggerexecutable。

点击OK按钮之后,Delphi会自动生成一个WebModule,在这个Module中会包含三个WebServices的控件。

然后然后在WebServices页面中选择SoapServerDataModule图标,OK后,Delphi弹出SoapDataModuleWizard对话框。

在ClassName中输入类名：D6DBDataModule1.点击OK后,Delphi会自动产生一个SOAP数据模块,在该模块中加入TdataBase,Tquery,TdataSetProvider,三个控件。

设置各控件的属性,跟以往的Delphi数据库应用程序的设置基本上相同,其中,TdataSetProvider是一个DataAccess控件,提供远程呼叫的支持。

编译执行该应用程序,使之注册.完成服务器端的应用程序设计.

第二步：编写客户端的应用程序

添加一个新的应用程序项目,在Form窗体中添加TDBNavigator,TDBGrid控件。

然后添加一个数据模块,在其中加入TSaopConnection,TclientDataSet和TdataSource控件。

其中的TSaopConnection控件就是利用SOAP协议与远程服务器端相联的接口。

http://WebServer的地址/WebService的应用程序名称/soap/SoapServerDataModule的名称

然后设置TclientDataSet控件的属性,设置RemoteServer的属性为TsaopConnection控件的名字,点选ProviderName.

接下来,在窗体所在的单元添加如下代码：

unitUnit4;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,ExtCtrls,DBCtrls,Grids,DBGrids;

type

TForm4=class(TForm)

DBGrid1:TDBGrid;

DBNavigator1:TDBNavigator;

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form4:TForm4;

implementation

usesUnit5,DB;//引用DataModule所在单元;

{$R*.dfm}

end.

设置TDBNavigator,TDBGri控件的DataSource的属性为dmDemo1.dsDemo1,其中,dmDemo1是数据模块的名字,dsDemo1为数据模块中的TdataSource控件的名字。

激活TclientDataSet的Active属性为True，编译该项目组,把客户端程序复制到网络上的任一台计算机,都可执行.一个WebServices的数举库应用程序例子完成。