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却要在一个过程中捕捉所有异常,不如第一种方法方便

你可能感兴趣的:(ClientDataSet控件ApplyUpdates的异常触发)