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

yuner5 2003-12-15 05:46:40
需要建立用户在无法连接到服务器也可以使用程序时,要使用Clientdataset的继承能力,向用户提供公文包支持。既设置clientdataset的filename特性,但我试了,网络连接不上时,并不能正常使用程序。请高手指点一下,该如何使用此功能才是正确的,
...全文
7 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
阿发伯 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;

回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1566

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告