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

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

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

然后在NewSoapServerApplication对话框中选择WebAppDebuggerexecutable

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

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

在ClassName中输入类名DDBDataModule点击OK后Delphi会自动产生一个SOAP数据模块在该模块中加入TdataBaseTqueryTdataSetProvider三个控件

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

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

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

添加一个新的应用程序项目在Form窗体中添加TDBNavigatorTDBGrid控件

然后添加一个数据模块在其中加入TSaopConnectionTclientDataSet和TdataSource控件

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

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

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

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

unitUnit;

interface

uses

WindowsMessagesSysUtilsVariantsClassesGraphicsControlsForms

DialogsExtCtrlsDBCtrlsGridsDBGrids;

type

TForm=class(TForm)

DBGrid:TDBGrid;

DBNavigator:TDBNavigator;

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form:TForm;

implementation

usesUnitDB;//引用DataModule所在单元;

{$R*dfm}

end

设置TDBNavigatorTDBGri控件的DataSource的属性为dmDemodsDemo其中dmDemo是数据模块的名字dsDemo为数据模块中的TdataSource控件的名字

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