Fórum Ponteiros de Eventos x Interfaces #231867

  //interface de mapeamento
  IAdaptadorDeEventos = interface
  [´{D40B150D-8E97-4FF2-B405-81CE35917A3A}´]
    procedure AfterUpdateRecord(Sender: TObject; SourceDS: TDataSet;
      DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind);
    procedure BeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet;
      DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var         Applied: Boolean);
    procedure OnUpdateData(Sender: TObject; DataSet:  TCustomClientDataSet);
    procedure OnUpdateError(Sender: TObject; DataSet: TCustomClientDataSet;
      E: EUpdateError; UpdateKind: TUpdateKind; var Response: TResolverResponse);
    procedure AfterApplyUpdates(Sender: TObject; var OwnerData: OleVariant);
    procedure BeforeApplyUpdates(Sender: TObject; var OwnerData: OleVariant);
  end;

//classe que mapeia seus eventos
function TCustomProvedorPacotes.AplicaAtualizacoes(Delta: OleVariant;
  Adaptador: TCustomAdaptadorDeEventos): OleVariant;
var ErrorCount : integer;
begin
  with FProvider do
    begin
      //Mapeia os métodos do adaptador nos eventos do provider
      BeforeUpdateRecord := Adaptador. BeforeUpdateRecord;  //erro aqui
      AfterUpdateRecord := Adaptador.AfterUpdateRecord;
      OnUpdateData := Adaptador.OnUpdateData;
      OnUpdateError := Adaptador.OnUpdateError;
      BeforeApplyUpdates := Adaptador.BeforeApplyUpdates;
      AfterApplyUpdates := Adaptador.AfterApplyUpdates;
      //aplica as atualizações e retorna o pacote atualizado
      Result := ApplyUpdates(Delta,0,ErrorCount);
    end;
end;