设为首页 加入收藏

TOP

XE5 搭建DataSnap服务(一)
2019-08-23 00:31:38 】 浏览:34
Tags:XE5 搭建 DataSnap 服务

1   准备工作

1.1 环境准备

XE5或XE7,操作系统Windows7(64位)操作系统。

数据库MSSQL选择SQLServer2008。

如果数据库服务没有在开发电脑上,则需要在开发电脑上安装Microsoft SQL Server 2008 Native Client。因为是64位开发环境,所以需要下载64位的安装包[1]

X64 包下载地址:

http://download.microsoft.com/download/9/9/d/99de4110-04b7-4e0e-8375-b04234fff0d8/sqlncli.msi

如果是32位开发环境,则安装X86安装包,对应下载地址:

http://download.microsoft.com/download/b/b/2/bb22098a-c071-415f-9269-2eb26cefb562/sqlncli.msi

当然,也可以将本实例中的组件SQLConnection---SQLDataSet---DataSetProvider更改为:

TFDPhysMSSQLDriverLink---TFDConnection---TFDQuery---TDataSetProvider

另外一种服务端连接数据库的替代方案是常用的 TADOConnection---TADOQuery---TDataSetProvider

当然,如果是客户端即连接数据库又进行显示的话,将TDataSetProvider换为TDataSource---TDBGrid即可,即 TADOConnection---TADOQuery---TDataSource---TDBGrid
 

2   搭建数据库服务

在一台电脑上搭建MSSQLServer2008或MSSQLServer2005数据库。

2.1 数据库信息

IP地址

192.168.0.123

用户名

test

密码

123

数据库

xxx

数据库中的表

T_Bug

 

3   开发DataSnap服务

3.1 新建工程(以XE5为例)

File->New->Other…->Delphi Projects->DataSnap Server->DataSnapServer,点击OK

 

 

 

1向导中选择“VCL Forms Application”->Next>>

 

 

2向导中选择 TCP/IP、HTTP、Server Methods Class ->Next>>

 

 

3向导中选择默认端口211,单击测试若出现成功,则可以使用;否则自己设定一个端口,确保正常即可->Next>>

 

 

4向导中选择“TDSServerModule”->Finish

 

 

 

然后保存工程到指定路径。

3.2 测试DataSnap服务

浏览器中输入

http://192.168.0.198:8080/datasnap/rest/TServerMethods1/EchoString/TestData

返回结果应为{"result":["TestData"]}

 

 

 

3.3 配置数据库

使用DBExpress的DBX控件连接数据库

 

 

打开ServerMethodUnit1单元,添加组件:

(1)SQLConnection
(2)SQLDataSet
(3)DataSetProvider

3.3.1 SQLConnection设置

 

 

最后设置Connection为ture进行连接测试,如果不行,检查配置已经数据库服务器是否添加了针对数据库服务的防火墙例外。

为了支持客户端数据库语句操作,需要对DataSetProvider的以下几个属性进行配置,poAutoRefresh,poPropogateChange,poAllowCommandText设置为true。

 

 

3.3.2 SQLDataSet设置

 

 

3.3.3 DataSetProvider设置

 

 

3.3.4 搭建完成

编译,启动起来,待客户端开发时连接使用。

 

4   开发DataSnap客户端

4.1 新建工程(以XE5为例)

File->New->VCL Forms Application – Delphi

 

 

上述工程建好后,再添加SnapClient。步骤如下:

4.1.1 添加DataSnapClient

File->New->Other…->Delphi Projects->DataSnap Server->DataSnapClient Module,点击OK

  

 

 向导中选择“Remote server”->Next>>

 

 

向导中选择“DataSnap stand alone server”->Next>>

 

 

向导中选择“TCP/IP”->Next>>

 

 

向导中填写信息“Host Name”填写本机的IP地址“192.168.0.198”

 

 

端口填写服务的端口“211”, 点击Test Connection成功后,点击Finish。

添加成功后,配置信息已经写入SQLConnection的属性中

 

 

4.2 添加连接服务端的组件DSProviderConnection

在tool palette中,找到“DataSnap Client”下的TDSProviderConnection,将其放在ClientModuleUnit1这个单元里。

 

 

4.2.1 配置DSProviderConnection

配置SQLConnection,双击即可。在ServerClassName中填写服务端对应DataSnap服务的类的名字TServerMethods1

 

 

最后,需要进行连接,双击Connected。

 

 

如果没有连接成功,请检查配置。

4.3 测试程序代码

4.3.1 在主单元中增加ClientModuleUnit1

 

 

在Unit1这个form里,增加控件,在Tool Palette中找到“Data Access”,在其下的TClientDataSet、TDataSource两个组件放入Form。同时在DataControl这个组中,找到TDBGrid放到Form上,用于显示数据。

为了能够共
XE5 搭建DataSnap服务(一) https://www.cppentry.com/bencandy.php?fid=86&id=229765

首页 上一页 1 2 下一页 尾页 1/2/2
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇Delphi 开发微信公众平台 (二)-.. 下一篇selenium 元素可以定位到,但是无..