用Delphi开发Web服务数据库程序

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

在Delphi的IDE中选择“文件|新建|其他...”，然后在WebServices页面中选择Soap服务器应用程序图标。

然后在“新建Soap服务器应用程序”对话框中选择“Web App调试器可执行文件”。

点击OK按钮后，Delphi将自动生成一个WebModule，它将包含三个WebServices控件。

然后，在WebServices页面中选择Soap服务器数据模块图标。确定后，Delphi弹出Soap数据模块向导对话框。

输入类名:D6DBDataModule1。点击确定后，Delphi会自动生成一个SOAP数据模块，并在该模块中添加tdatabase、tquery、tdatasetprovider和三个控件。

设置每个控件的属性与之前的Delphi数据库应用基本相同，其中TdataSetProvider是一个DataAccess控件，提供对远程调用的支持。

编译应用程序并注册它。完成服务器端的应用程序设计。

步骤2:编写客户端应用程序。

添加一个新的应用项目，并在Form窗体中添加TDBNavigator、TDBGrid控件。

然后，添加一个数据模块，并向其中添加TSaopConnection、TclientDataSet和TdataSource控件。

TSaopConnection控件是使用SOAP协议与远程服务器连接的接口。

http://web服务器的地址/web服务的应用程序名称/soap/SoapServerDataModule的名称

然后设置TclientDataSet控件的属性，将RemoteServer的属性设置为TsaopConnection控件的名称，点击ProviderName。

接下来，将以下代码添加到表单所在的单元格中:

unit Unit4
接口
使用
窗口、消息、系统工具、变体、类、图形、控件、表单、
对话框、ExtCtrls、DBCtrls、网格、DBGrids
type
t form 4 = class(t form)
dbgrid 1:TDBGrid；
dbnavigator 1:TDB navigator；
私有
{私有声明}
公共
{公共声明}
end；
var
form 4:t form 4；
实现
使用Unit5，DB；//引用DataModule所在的单元；
{$R *。dfm}
end。

设置tdbnavigator，tdbgri控件DataSource的属性为dmDemo1.dsDemo1，其中dmDemo1是数据模块的名称，dsDemo1是数据模块中TdataSource控件的名称。

将TclientDataSet的Active属性激活为True，编译项目组，将客户端程序复制到网络上的任意一台计算机上，即可执行。完成了一个Web服务的数据库应用实例。