幾種捕獲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異常的窗體之前建立。