CODEWITHSUNDEEP
delphidelphi-2006
Charles Faiga
Charles Faiga

Reputation: 11753

Information required on TDataSetProvider in Delphi

I have Midas project that uses a TDataSetProvider in one of RemoteDataModules in the Server

Currently I am making use of the following events

Question:

Will ‘ AfterApplyUpdates’ always be called even if the is an update error ?

Upvotes: 2

Views: 980

Answers (1)

Toon Krijthe
Toon Krijthe

Reputation: 53366

If you look at the sourcecode:

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;

Yoy see that DoAfterApplyUpdates is called in the finally block. This means it is always called regardles of any exception.

Upvotes: 11

Related Questions