第一步:编写
服务器的应用程序
首先在
Delphi的IDE中选择”File|New|Other…”,然后在Weervices页面中选择SoaerverAlication图标
。 然后在NewoaerverAlication对话框中选择WeADebuggerexecutable
。 点击OK按钮之后,
Delphi会自动生成一个WebModule,在这个Module中会包含三个Weervices的控件。
然后然后在Weervices页面中选择SoaerverDataModule图标,OK后,Delphi弹出SoaDataModuleWizard对话框。
在Claame中输入类名:D6DBDataModule1.点击OK后,Delphi会自动产生一个SOAP数据模块,在该模块中加入TdataBase,Tquery,TdataSetProvider,三个控件。
设置各控件的属性,跟以往的Delphi数据库应用程序的设置基本上相同,其中,TdataSetProvider是一个DataAcce控件,提供远程呼叫的支持。
编译执行该应用程序,使之注册.完成
服务器端的应用程序设计.
第二步:编写客户端的应用程序
添加一个新的应用程序项目,在Form窗体中添加TDavigator,TDBGrid控件。
然后添加一个数据模块,在其中加入TSaopCoection,TclientDataSet和TdataSource控件。
其中的TSaopCoection控件就是利用SOAP协议与远程服务器端相联的接口。
http://Weerver的地址/Weervice的应用程序名称/soap/SoaerverDataModule的名称
然后设置TclientDataSet控件的属性,设置RemoteServer的属性为TsaopCoection控件的名字,点选ProviderName.
接下来,在窗体所在的单元添加如下代码:
unitUnit4;
interface
uses
Windows,Meages,ysUtils,Variants,Claes,Graphics,Controls,Forms,
Dialogs,ExtCtrls,DBCtrls,Grids,DBGrid
type
TForm4=cla(TForm)
DBGrid1:TDBGrid;
Davigator1:TDavigator;
private
{rivatedeclaratio#125;
public
{ublicdeclaratio#125;
end;
var
Form4:TForm4;
implementation
useUnit5,D//引用DataModule所在单元;
{#36;R*.dfm}
end.
设置TDavigator,TDBGri控件的DataSource的属性为dmDemo1.dsDemo1,其中,dmDemo1是数据模块的名字,dsDemo1为数据模块中的TdataSource控件的名字。
激活TclientDataSet的Active属性为True
,编译该项目组,把客户端程序复制到网络上的任一台计算机,都可执行.一个Weervice的数举库应用程序例子完成。