补充:我上面的代码只是一个思路,运行时会出现异常,如果你要试一下,可以改一改,如:
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
ClientDataSet1.Active := True; //连接到中间服务器
if ClientDataSet1.Active then //连接成功
ClientDataSet1.SaveToFile('文件名') //保存到本地磁盘
else
ClientDataSet1.LoadFromFile('文件名');//否则从本地磁盘装入
if CliectDataSet1.Active then //无论是网上还是本地获取数据成功后执行其他操作
。。。
end;