DelphiのTDataSetProviderに必要な情報
-
05-07-2019 - |
質問
サーバーのRemoteDataModuleの1つでTDataSetProviderを使用するMidasプロジェクトがあります
現在、次のイベントを利用しています
- BeforeApplyUpdates-オブジェクトを作成する
- BeforeUpdateRecord-オブジェクトを使用する
- AfterApplyUpdates-オブジェクトを破壊する
質問:
ウィル‘ AfterApplyUpdates’が更新エラーであっても常に呼び出されますか?
解決
ソースコードを見ると:
function TCustomProvider.DoApplyUpdates(const Delta: OleVariant; MaxErrors: Integer;
out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant;
begin
SetActiveUpdateException(nil);
try
try
if Assigned(FOnValidate) then
FOnValidate(Delta);
DoBeforeApplyUpdates(OwnerData);
Self.OwnerData := OwnerData;
try
Result := InternalApplyUpdates(Delta, MaxErrors, ErrorCount);
finally
OwnerData := Self.OwnerData;
Self.OwnerData := unassigned;
end;
except
on E: Exception do
begin
SetActiveUpdateException(E);
raise;
end;
end;
finally
try
DoAfterApplyUpdates(OwnerData);
finally
SetActiveUpdateException(nil);
end;
end;
end;
Yoは、DoAfterApplyUpdatesがfinallyブロックで呼び出されることを確認します。これは、常に例外の尊重と呼ばれることを意味します。
所属していません StackOverflow