1566
社区成员
- 主页
关于delphi中的公文包客户及服务器程序的使用
需要建立用户在无法连接到服务器也可以使用程序时，要使用Clientdataset的继承能力，向用户提供公文包支持。既设置clientdataset的filename特性，但我试了，网络连接不上时，并不能正常使用程序。请高手指点一下，该如何使用此功能才是正确的，
...全文
当前发帖距今超过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;
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;
如果没保存网上来的数据，公文包就使用不了了。
如：
begin
ClientDataSet1.Active := True; //连接到中间服务器
if ClientDataSet1.Active then //连接成功
ClientDataSet1.SaveToFile('文件名') //保存到本地磁盘
else
ClientDataSet1.LoadFromFile('文件名');//否则从本地磁盘装入
if CliectDataSet1.Active then //无论是网上还是本地获取数据成功后执行其他操作
。。。
end;
