查看: 3496|回复: 7
Delphi XE6教程 - 创建DataSnap客户端链接DataSnap服务器
主题帖子积分
论坛元老, 积分 4400, 距离下一级还需 9995599 积分
论坛元老, 积分 4400, 距离下一级还需 9995599 积分
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
本帖最后由 曾经拥有 于
14:05 编辑
(64.57 KB, 下载次数: 214)
14:00 上传
点击文件名下载附件
本文章介绍了Delphi XE6教程 - 创建DataSnap客户端链接DataSnap服务器，这篇文章是接上面的一篇文章，该附件包含服务端以及客户端段的代码，运行datasnap服务程序，客户端就可以看到数据，当然DataSnap需要重新配置服务器的地址账号密码等。
客户端的程序就简单很多，直接复制下面的代码，拷贝到程序界面：
object DSProviderConnection1: TDSProviderConnection
&&ServerClassName = 'TDSServerModule_EMPLOYEE'
&&Connected = True
&&SQLConnection = SQLConnection1
&&Left = 184
&&Top = 112
end
object SQLConnection1: TSQLConnection
&&DriverName = 'DataSnap'
&&LoginPrompt = False
&&Params.Strings = (
& & 'DriverUnit=Data.DBXDataSnap'
& & 'HostName=localhost'
& & 'Port=211'
& & 'CommunicationProtocol=tcp/ip'
& & 'DatasnapContext=datasnap/'
& &
& && &'DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland' +
& && &'.Data.DbxClientDriver,Version=19.0.0.0,Culture=neutral,PublicKey' +
& && &'Token=91d62ebb5b0d1b1b')
&&Connected = True
&&Left = 96
&&Top = 104
end
object ClientDataSet1: TClientDataSet
&&Active = True
&&Aggregates = &&
&&Params = &&
&&ProviderName = 'DataSetProvider_EMPLOYEE'
&&RemoteServer = DSProviderConnection1
&&Left = 84
&&Top = 216
end
object DataSource1: TDataSource
&&DataSet = ClientDataSet1
&&Left = 184
&&Top = 200
end
object BindSourceDB1: TBindSourceDB
&&DataSet = ClientDataSet1
&&ScopeMappings = &&
&&Left = 176
&&Top = 272
end
object BindingsList1: TBindingsList
&&Methods = &&
&&OutputConverters = &&
&&Left = 300
&&Top = 117
&&object LinkFillControlToField1: TLinkFillControlToField
& & Category = 'Quick Bindings'
& & Control = ListBox1
& & Track = True
& & FillDataSource = BindSourceDB1
& & FillDisplayFieldName = 'C_NAME'
& & AutoFill = True
& & BufferCount = -1
& & AutoBufferCount = False
& & FillExpressions = &&
& & FillHeaderExpressions = &&
& & FillBreakGroups = &&
&&end
end
object ListBox1: TListBox
&&Align = alClient
&&Height = 567.000000
&&TabOrder = 0
&&Width = 384.000000
&&DefaultItemStyles.ItemStyle = 'listboxitemnodetail'
&&DefaultItemStyles.GroupHeaderStyle = ''
&&DefaultItemStyles.GroupFooterStyle = ''
end
复制代码
然后直接将ClientDataSet1组件的Active=True即可.
无标题.png (19.59 KB, 下载次数: 310)
14:05 上传
转载请保留当前帖子的链接： 谢谢！
搜索简单，分享不易，且分享且珍惜，您难道不想分享下您的心得？如果觉得本文章好的话，您可以在我们网站上注册，然后发布您的好的心得，让大家共同进步，谢谢！
主题帖子积分
新手上路, 积分 8, 距离下一级还需 42 积分
新手上路, 积分 8, 距离下一级还需 42 积分
可以在win平台下运行，没法再手机上运行啊
主题帖子积分
新手上路, 积分 26, 距离下一级还需 24 积分
新手上路, 积分 26, 距离下一级还需 24 积分
学习了..........
主题帖子积分
新手上路, 积分 16, 距离下一级还需 34 积分
新手上路, 积分 16, 距离下一级还需 34 积分
这里有很多老师滴
主题帖子积分
论坛元老, 积分 4400, 距离下一级还需 9995599 积分
论坛元老, 积分 4400, 距离下一级还需 9995599 积分
这里有很多老师滴
都是互相学习的
主题帖子积分
注册会员, 积分 64, 距离下一级还需 136 积分
注册会员, 积分 64, 距离下一级还需 136 积分
沒錯一起加油
主题帖子积分
新手上路, 积分 40, 距离下一级还需 10 积分
新手上路, 积分 40, 距离下一级还需 10 积分
在真机上运行，提示com.ema.....意外终止，求指教
主题帖子积分
论坛元老, 积分 4400, 距离下一级还需 9995599 积分
论坛元老, 积分 4400, 距离下一级还需 9995599 积分
在真机上运行，提示com.ema.....意外终止，求指教
该程序我只是在windows上测试过，没有在手机里测试哦
Powered by查看: 574|回复: 7
XE6 用DATASNAP 开发安卓三层结构，在安卓机器上黑屏
主题帖子积分
注册会员, 积分 74, 距离下一级还需 126 积分
注册会员, 积分 74, 距离下一级还需 126 积分
Delphi XE6&
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
XE6 用DATASNAP 开发安卓三层结构，在安卓机器上黑屏，看到高勇资料上写的是请取消该窗口的自动生成，否则黑屏，该窗口是datamodule吗？求教给位大虾，我测试了好几次都是黑屏
转载请保留当前帖子的链接： 谢谢！
搜索简单，分享不易，且分享且珍惜，您难道不想分享下您的心得？如果觉得本文章好的话，您可以在我们网站上注册，然后发布您的好的心得，让大家共同进步，谢谢！
主题帖子积分
注册会员, 积分 74, 距离下一级还需 126 积分
注册会员, 积分 74, 距离下一级还需 126 积分
调试了，是DATAMODULE的问题。设置了DATAMODULE 不加载，就能 运行程序了。现在问题是手动加载，就卡死
主题帖子积分
中级会员, 积分 353, 距离下一级还需 147 积分
中级会员, 积分 353, 距离下一级还需 147 积分
用kbmMW做三层，没有这样的问题。
只能说明，datasnap对android支持不好，可以用调试状态跟踪建立datasnap过程中哪行出错来查原因了。
主题帖子积分
新手上路, 积分 31, 距离下一级还需 19 积分
新手上路, 积分 31, 距离下一级还需 19 积分
XE7做一个简单的Android应用，使用& &
& & con1: TFDC
& & fdphysqltdrvrlnk1: TFDPhysSQLiteDriverL
& & fdqry1: TFDQ
& & fdgxwtcrsr1: TFDGUIxWaitC
再用一组TFDConnection，TFDQ连接另一个数据库文件，在Android里启动就黑屏（模拟器，真机都是如此），当然在win64，win32下一点问题都没有。
试过，一个conn,几个query没问题，就是两个conn就不行了
另建一个form，在哪个form连接这个form的conn，也会黑。
不知道怎么回事。
黑的原因应该是死循环了。长久不反应，cpu100%
主题帖子积分
新手上路, 积分 31, 距离下一级还需 19 积分
新手上路, 积分 31, 距离下一级还需 19 积分
简单拖拖都如此
主题帖子积分
新手上路, 积分 12, 距离下一级还需 38 积分
新手上路, 积分 12, 距离下一级还需 38 积分
我也遇到此问题，后来发现把所有有关数据库的连接全部关闭，也就是设计期打开的连接，全部关闭，然后再生成apk，就好了
主题帖子积分
金牌会员, 积分 1077, 距离下一级还需 1923 积分
金牌会员, 积分 1077, 距离下一级还需 1923 积分
主题帖子积分
注册会员, 积分 66, 距离下一级还需 134 积分
注册会员, 积分 66, 距离下一级还需 134 积分
不知道六楼的是否正解？
Powered by开发环境&x6&win7&64位，没有打update1补丁，怕打了破解不了，开发出的程序再win32&bebug文件夹中应该是32位的吧
刚学习datasnap，服务器就是用DataSnap&server做的，选的Forms&Application-&vcl&appliction-&tcp/ip&http&sample&methods-&TDSServerModule,创建完毕后再ServerMethodsUnit1里面放了个tadoconnection-&tadoquery-&tdatasetprovidor
客户端先创建了一个vcl&application,然后new-&other-&DataSnap&Client&Module-&Local&server-&DataSnap&stand&alone&server-&tcp/ip,然后再ClientModuleUnit1上放了SQLConnetion1-&TDSProviderConnection-&TClientDataSet,设置好连接属性，主窗体上放个Tdbgrid-&TDataSet,dataset连ClientDataSet，然后open就能从服务器查询adoquery中查询的数据了
在win7下一切正常，不过客户端在xp下报地址错误
服务器&&&&&&&&&&客户端
win7&ok&&&&&&&&win7&ok
win7&ok&&&&&&&&xp&&&error
xp&&&&&&&&&&&&&&&&&&win7&ok
用pa再win7上调试，报错断点到Datasnap.DBClient里的红色地方
procedure&TCustomClientDataSet.InternalCheck(Status:&DBResult);
&&UTF8ErrorMessage:&NativeUI
&&ErrMsg:&
&&ErrMsgBuffer:&array&of&B
&&if&Status&&&&0&then
&&&&SetLength(ErrMsgBuffer,&2049);
&&& &FDSBase.GetErrorString(Status,&Pointer(@ErrMsgBuffer[0]));
&&&&FDSBase.GetProp(dspropUTF8ERRORMSG,&@UTF8ErrorMessage);
&&&&if&LongBool(UTF8ErrorMessage)&then
&&&&&&ErrMsg&:=&TMarshal.ReadStringAsUtf8(TPtrWrapper.Create(ErrMsgBuffer)).Trim
&&&&&&ErrMsg&:=&TMarshal.ReadStringAsAnsi(TPtrWrapper.Create(ErrMsgBuffer)).T
&&&&raise&EDBClient.Create(ErrMsg,&Status);
求高手帮助，是要打补丁还是设置什么参数？
我只试了把数据源从ado换成dbexpress还是报错
回复讨论(解决方案)
好吧，终于找出来了，是因为Midas的问题，xp上我装了d7，估计直接拿d7里的Midas用了，后来再客户端上加上Midaslib编译就ok了，哈哈delphi xe3 的datasnap 性能和稳定性真的这么差吗_百度知道
delphi xe3 的datasnap 性能和稳定性真的这么差吗
提问者采纳
DataSnap的前身是MIDAS。在Delphi 6中，MIDAS改名为DataSnap。DataSnap不但强化了MIDAS原有的功能，更加入了许多新的元件，让程序员可以使用它开发出更为强劲的应用系统，此外DataSnap也改善了MIDAS的执行效率，让使用它的应用程式能够执行得更快速。Developing Datasnap Application 开发Datasnap应用程序
来自团队：
其他类似问题
为您推荐：
delphi的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁盒子 - XE6&DataSnap&回叫功能实例（服务器、客户端）编程体会与源码
盒子资源分类
XE6&DataSnap&回叫功能实例（服务器、客户端）编程体会与源码
关键字：delphi XE DataSnap 回叫 服务器 客户端
来　自：原创
平　台：Win2K/2003/NT/XP,Vista/WIN7
下载所需：0 火柴
深浅度：中级
完成时间：<font color="#14-5-22
发布者： (奖励50火柴)
发布时间：<font color="#14-5-29
编辑器：DelphiXE5/6
语　　种：简体中文
下载浏览：<font color="#7/7521
登陆以后才能下载
自动登陆(30天有效)
上述代码均XE6&编译通过：回叫功能的服务器、客户端实例二个例子：（1）服务器与客户端之间的回叫演示（2）服务器与客户端之间，客户端与客户端之间回叫演示。包含学习体会，以及服务器、客户端调试方法。
输入您的搜索字词
提交搜索表单
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请！
　相关文章
没有相关文章
共有评论54条
当前显示最后3条评论
<font color="#14-6-17 15:36:24
非常好的例子
<font color="#14-9-24 10:52:35
有一定的参考价值，谢了
<font color="#15-5-29 2:36:08
DELPHI盒子版权所有