分享
 
 
 

DELPHI 6 抢先研究-- BizSnap/SOAP/WebService 之三 -- 用 SOAP 实现三层数据库应用

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

DELPHI 6 抢先研究-- BizSnap/SOAP/WebService 之三

-- 用 SOAP 实现三层数据库应用

在前面的例子(见 《DELPHI 6 抢先研究 -- BizSnap/SOAP/WebService 之一 -- 一个 Hello world! 的例子》 《DELPHI 6 抢先研究-- BizSnap/SOAP/WebService 之二 -- 通过 SOAP 传递自定义类型数据》 )中我们看到了 SOAP 的强大功能,特别是第二个例子。如上一个例子所示,我们只要利用 Midas/DataSnap 的 Provide/Resovle 架构,将 Data/Delta 包做成自定义类型,在 Web services 与客户端之间传递,便可以通过 SOAP 实现三层数据库应用。这固然是一个方法,但未免麻烦一些,其实 Delphi 6 早已为我们准备好了,而且她做得更好,她将 IAppServer 接口进行 SOAP 封装,使得我们可以用和 Midas/DataSnap 一样的方式来开发基于 SOAP 的多层数据库应用。

当然还是以一个例子来说明:

服务端:

1.New|WebServices|Soap Server Application ,如下图:

这次我们用 Web App Debugger (详见《DELPHI 6 抢先研究 -- Web 应用开发及调试》),设置其 CoClass Name 为 wadSoapDemo3 , 如下图:

2.SaveAll , Unit2 命名为: SvrWMMain , Unit1 不改名, Project1 命名为: Demo3 ;

3.New|WebServices|Soap Server Data Module ,如下图:

在弹出的对话框中输入 Class Name 为 SoapDemo3DM ,如下图:

确定后将此单元保存为 SvrDMSoap ;

4.在 SoapDemo3DM 中放入三个控件: SQLConnection1, SQLDataSet1, DataSetProvider1 ,如下图:

其属性设置为:

SQLConnection1

ConnectionName := IBLocal;

LoginPrompt := false;

Params.Values['Database'] := '[...]\Examples\Database\Employee.gdb';

// 上面的 [...] 为你的 InterBase 安装路径

SQLDataSet1

SQLConnection := SQLConnection1;

CommandText := 'select EMP_NO, FULL_NAME, PHONE_EXT from EMPLOYEE';

DataSetProvider1

DataSet := SQLDataSet1;

5.服务端就这样完成了,不用写一行代码,编译并运行,然后退出即完成 Web App Debugger 应用的注册。

启动 Web App Debugger ,再启动浏览器,在地址栏输入: http://localhost:1024/Demo3.wadSoapDemo3/wsdl 即可看到三个接口:

Port Type

Namespace URI

Documentation

WSDL

IWSDLPublish

urn:WSDLPub-IWSDLPublish

WSDL for IWSDLPublish

IAppServer

urn:Midas-IAppServer

WSDL for IAppServer

ISoapDemo3DM

urn:SvrDMSoap-ISoapDemo3DM

WSDL for ISoapDemo3DM

这其中除了有 DataModule 的接口 ISoapDemo3DM 以外,最重要的是多了一个 IAppServer 接口,只要有这个接口,就有 Midas/DataSnap 。

接下来做客户端:

1.New|Application 新建一个一般 VCL 应用程序;

2.SaveAll , Unit1 命名为 ClnMain , Project1 命名为 Client ;

3.在 Form1 上放上 SoapConnection1(在 WebService 页中的最后一个), ClientDataSet1, DataSource1, DBNavigator1, Button1, DBGrid1 等控件,如下图:

设置各自的属性如下表,如果设置正确的话,应该如上图那样在 DBGrid1 中显示出数据来:

SoapConnection1

URL := 'http://localhost:1024/demo3.wadsoapdemo3/soap';

ClientDataSet1

RemoteServer := SoapConnection1;

ProviderName := 'DataSetProvider1';

Active := true;

DataSource1

DataSet := ClientDataSet1;

DBNavigator1

DataSource := DataSource1;

DBGrid1

DataSource := DataSource1;

Button1

Caption := 'Apply';

4.双击 Button1 输入下面的程序:

procedure TForm2.Button1Click(Sender: TObject);

begin

ClientDataSet1.ApplyUpdates( -1 );

end;

5.至此,客户端程序也完成了,编译并运行(确定 Web App Debugger 已运行),可以看到服务端运行一会儿,它的窗体闪现几秒钟后客户端程序即可取得数据并显示出来。现在可以通过 DBNavigate/DBGrid 对数据进行操作,操作完成后按 Apply 按钮即可将数据修改提交到服务端,此操作会运行服务端程序。

就这样,我们只写了一行程序就完成了一个基于 SOAP 的多层数据库应用。

http://msrc.126.com 猛禽 Oct.20-01

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有