(1)生成DataSnap服务器的框架
初学者都是呆子,还是用向导吧,主菜单“File”->“New”->“Other…”得到“New Items”向导对话框。见图一。
一般选择有窗口的Forms程序,如果是正式场合,建议Service程序。见 图二。
如果服务器程序运行在Windows平台就选“VCLapplication”,如果要跨平台,还是选“FireMonkeyapplication”,但生成的文件要大一些。见图三。
默认TCP/IP为通讯协议,简单快速,菜鸟专用的Sample Methods用于测试,见图四。
缺省211端口,别忘了“Test Port”一下更健康,见图五。
不要使用默认的“TComponent”,而用TDSServerModule作为数据服务提供主体,非常方便以后变更为能挣钱的Service应用服务。
Finish这个向导后,硬盘一阵轰鸣,自动生成了工程及其三个主文件,图七:
ServerContainerUnit1.pas放的是网络服务相关控件,非高手莫入。
ServerMehtodsUnit1.pas就是我们第二步主要的活动场所。
我们来做个简单的数据库连接测试.
在上个学习的基础上,我们打开Server的ServerMethodUnit1模块,在设计界面放上三个控件:
SQLConnection1: TSQLConnection;
SQLDataSet1: TSQLDataSet;
DataSetProvider1: TDataSetProvider;
注意:
1、如果使用sa,如果没有密码的话会连接失败,需要建立一个带密码的用户或者将sa设置上密码.
2、如果连接SQL Server时报告错误,可以尝试安装一下MS SQL Server 2008 Native Client,这个包同样可以应用在SQL Server 2000中.
然后将SQLDataSet1的SQLConnection设置为SQLConnection1,并且在CommandText中输入命令,比如:select * from jobs (连接到pubs数据库),设置Active为True.
最后一步,将DataSetProvider1的DataSet设置为SQLDataSet1.
OK,我们的服务器就设计完成了,编译运行.
接下来, 我们来做一个客户端.在以前的DataSnap版本中(D7中好像是这样,其他版本没有测试),像刚才我们设计的东西要放在Remote Data Modul中,在连接的时候要使用DCOMConnection或者SocketConnection,现在不用了.
再打开我们上次设计的客户端程序,在窗体上放置几个数据处理控件,来吧,像一般的数据应用程序那样放入数据感知控件:
DBGrid1: TDBGrid;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
然后我们要放入其他连接远程应用要用到的控件:
SQLConnection1: TSQLConnection;
DSProviderConnection1: TDSProviderConnection;
设置SQLConnection1的Driver为DataSnap,Connected为True(注意运行服务器),设置DSProviderConnection1的SQLConnection为SQLConnection1,注意,下面是很重要的一步,即在ServerClassName中输入TServerMethods1,不知道Delphi为什么没有自动取出,这里需要手工录入.
再设置ClientDataSet1的RemoteServer为DSProviderConnection1,现在就可以在ProviderName中选择DataSetProvider1了,如果没有上面那一步,这里将没有列出.
好了,设置ClientDataSet1的Active为True,设置DataSource1的DataSet为ClientDataSet1,设置DBGrid1的DataSource为DataSource1(这些活都太熟了吧?)
我们已经可以在网格中看到取回的数据来了.