用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服务的数据库应用实例。
位律师回复
0条评论