关于delphi中的公文包客户及服务器程序的使用

yuner5 2003-12-15 05:46:40
需要建立用户在无法连接到服务器也可以使用程序时,要使用Clientdataset的继承能力,向用户提供公文包支持。既设置clientdataset的filename特性,但我试了,网络连接不上时,并不能正常使用程序。请高手指点一下,该如何使用此功能才是正确的,
...全文
66 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
阿发伯 2003-12-15
  • 打赏
  • 举报
回复
那个FileName属性主要是供设计期使用的,在运行期充其量作为Save和Load的缺省参数,你要形成公文包,必须自己写代码。再次强调,我上面的代码无论行与不行,只是思路,真正的代码要比这复杂多了
yuner5 2003-12-15
  • 打赏
  • 举报
回复
谢谢指教,我看书上写的是设置ClientdataSet的filename属性就可以。我试试你的代码。
阿发伯 2003-12-15
  • 打赏
  • 举报
回复
补充:我上面的代码只是一个思路,运行时会出现异常,如果你要试一下,可以改一改,如:
begin
try
ClientDataSet1.Active := True; //连接到中间服务器
ClientDataSet1.SaveToFile('文件名'); //连接成功,保存到本地磁盘
except
end;
if not ClientDataSet1.Active then
try
ClientDataSet1.LoadFromFile('文件名');//否则从本地磁盘装入
except
end;
if CliectDataSet1.Active then //无论是网上还是本地获取数据成功后执行其他操作
begin
。。。
end else
ShowMessage('....');
end;

阿发伯 2003-12-15
  • 打赏
  • 举报
回复
所谓公文包形式实际是将网上的数据下载到本地磁盘,脱离网络后从本地磁盘文件装入使用。
如果没保存网上来的数据,公文包就使用不了了。
如:

begin
ClientDataSet1.Active := True; //连接到中间服务器
if ClientDataSet1.Active then //连接成功
ClientDataSet1.SaveToFile('文件名') //保存到本地磁盘
else
ClientDataSet1.LoadFromFile('文件名');//否则从本地磁盘装入
if CliectDataSet1.Active then //无论是网上还是本地获取数据成功后执行其他操作
。。。
end;

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧