几种捕获ClientDataSet.ApplyUpdates和SocketConnection异常的方法比较

如何捕获ClientDataSet.ApplyUpdates的错误,不用ReconcileError
常见网上有人提这个问题,之前也曾深为此无奈,现在终于解决了。贴上以为他人之用!

问题如下:
var
cdsEmp:TClientDataSet;
//保存
procedure  TfrmEmp.btnSave(Sender:  TObject);
begin
  cdsEmp.RemoteServer.AppServer.BegTrans;
  try
    cdsEmp.ApplyUpdates(0);  //更新错误在这一句发生,但是我却永远也捕获不到,
                             //我想自已在异常处理里显示这里发生的错误信息该怎么办?
    cdsQrObj.RemoteServer.AppServer.ComTrans;
  except
    on  E:Exception  do
    begin
      cdsEmp.RemoteServer.AppServer.RobTrans;
      Application.MessageBox(pchar('存盘失败!'+#13#10+'错误信息:'+E.Message),'提示',MB_OK+MB_ICONEXCLAMATION);
      Abort;
    end;
  end;
end;

//如果用这个错误处理,我的事务回滚却不知放在何处才妙,并且我不是想用这个错误处理
procedure  TfrmEmp.cdsEmpReconcileError(
   DataSet:  TCustomClientDataSet;  E:  EReconcileError;
   UpdateKind:  TUpdateKind;  var  Action:  TReconcileAction);
begin
   HandleReconcileError(DataSet,  UpdateKind,  E);
   Action:=raAbort;
end;

解答一:
//---------------------------------------------------------------
//据我所知,只能用ReconcileError 可以用下面的方法判断是否错误
...
BeginTransaction;
if cdsMaster.ApplyUpdates(0)+cdsDetail.ApplyUpdates(0)=0  then
  CommitTransaction
else
  RollbackTransaction;

ApplyUpdates方法返回更新时遇到的错误数量.
...
//---------------------------------------------------------------

 

解答二:
//---------------------------------------------------------------
在DataSetProvider的onUpdateError
raise  E;
然后就可以在客户端的
try
  ClientDataSet1.ApplyUpdates(0);
except
  on  e:Exception  do
  ...
end;
//----------------------------------------------------------------

解答三:
    其实真正的捕获ClientDataSet.ApplyUpdate异常的方法应该是在Apllication的异常中捕获并处理它。因为ClientDataSet抛出的异常为线程(进程?)异常,在ClientDataSet的ApplyUpdate中用try...except...end;是无法捕获的。

    具体方法为:在公共单元如DataModule中放置一个ApplicationEvent件,在该控件的OnException事件中捕获异常,该窗体应在所有有可能产生ApplyUpdate或Connection异常的窗体之前创建。

procedure TClient_RDataForm.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
  if (E is ESocketConnectionError) or (E is ESocketError) then
  begin
    if not Is_OK then
    begin
      Application.MessageBox(PChar('考试应用服务器或网络连接失败!请退出后重新启动考试系统!  '),
                      '服务器连接中断', MB_OK + MB_ICONERROR);
      Application.Terminate;
      Exit;
    end;

    while not ReConnect_Srv do //重新连接又失败了
    begin
      if Application.MessageBox(PChar('考试服务器或网络连接失败!请立即与监考老师联系!  '+#13+'要重新搜索服务器请按[是],强制退出请按[否]!  '),
                      '服务器连接失败', MB_YESNO + MB_ICONSTOP) <> IDYES then
        if (Application.MessageBox('真的要强制退出考试系统吗?  ','强制退出确认', MB_YESNO + MB_ICONWARNING + MB_DEFBUTTON2) = IDYES) then
        begin
           Application.Terminate;
           Exit;
        end;
    end;
    if MyConnection.Connected then
    begin
      Application.MessageBox('考试应用服务器恢复连接成功!','连接成功',MB_OK+MB_ICONINFORMATION);
      Exit;
    end;
  end else
    raise Exception.Create('考试系统发生异常错误!退出后请重新启动考试系统继续考试!');
    //ShowMessage(e.Message);

end;
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在Delphi 6中,提升ClientDataSet的Locate方法效率可以考虑以下几点: 1. 设置适当的索引:为ClientDataSet创建适当的索引是提高Locate方法效率的重要步骤。通过设置合适的索引,可以减少查找所需的时间。在使用Locate方法之前,可以使用IndexFieldNames属性设置需要比较的字段,或者使用AddIndex方法手动创建索引。 2. 限制比较的字段:只选择必要的字段进行比较,可以减少比较的时间。可以通过设置ClientDataSet的IndexFieldNames属性限制需要比较的字段。如果只需要在单个字段上进行定位,可以将IndexFieldNames设置为该字段名称。 3. 使用合适的定位选项:Locate方法有两个定位选项,即loCaseInsensitive和loPartialKey。根据具体情况选择合适的选项。如果不需要区分大小写,可以使用loCaseInsensitive选项来提高效率。如果需要在字段的部分值上进行定位,可以使用loPartialKey选项。 4. 考虑使用其他查找方法:如果ClientDataSet的Locate方法效率不够高,可以考虑使用其他更适合的查找方法,例如使用SQL查询或遍历数据集进行查找。根据实际情况选择最优的查找方式。 5. 数据集优化:对数据集进行优化也可以提高Locate方法的效率。可以通过设置FetchOptions属性调整数据集的缓存大小、设置Filtered属性进行过滤等。 需要注意的是,以上建议适用于Delphi 6中的ClientDataSet,具体的优化策略还需根据实际应用场景进行调整和测试,以获得最佳的效率提升。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值