ClientDataSet控件ApplyUpdates的异常触发

在使用ClientDataSet控件时，在关联的TDBGrid控件插入不合法的字段，再执行ClientDataSet的ApplyUpdates方法，数据插入失败

但在客户端没有报异常，try...except...end 无法捕捉到。

在网上找到了几种解决方法

第一种是在中间服务层的DataSetProvider控件中加入OnUpdateError事件

在事件中加入如下代码：

procedure TSvrProb.DataSetProvider1UpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  raise E;  // 就是这一行代码
end;

客户端程序的ClientDataSet控件的方法就能在try...except...end就能正常触发异常了。

 

第二种看起来比较复杂 ，我没试过，方法是在公共单元中放入一个ApplicationEvent控件

在ApplicationEvent控件加入OnException事件

贴上网上找到的具体代码：

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);

 错码太长了，不过我大致看了一下，跟第一种方法对比，我还是比较中意第一种方法

第一种方法能随时捕捉到ClientDataSet中的异常，而ApplicationEvent却要在一个过程中捕捉所有异常，不如第一种方法方便

转载于:https://www.cnblogs.com/skyblue-Mr/archive/2013/03/15/2961859.html