[ASAPLTDA]

Hola, en prueba de capturar los eventos generados en firebird Utilice FDEventAlerter para registrar los eventos, pero la gran sorpresa en que no registro todos los eventos generados en firebird 2.5 delphi version 10.1 update 2 Berlin solo captura 90% o menos de los eventos realizados en forma masiva.

Efectue otra prueba con los componentes devart UniAlerter y este si registro todos los eventos

Código Delphi [-]
procedure TForm1.UniAlerter1Event(Sender: TDAAlerter; const EventName,
  Message: string);
begin
  inc(NOMENSAJES);   // contar el numero de mensajes recibidos
  ClientDataSet1.Append ;
  ClientDataSet1.FieldByName('TEXTO').AsString := DateTimeToStr(now);
  ClientDataSet1.Post;
end;

// poblar tabla

Código SQL [-]
create or alter procedure AAPRUEBATABLAPROCEDURE
as
declare variable W_I integer = 0;
begin

  WHILE ( W_I < 50 ) DO BEGIN
    in autonomous transaction do  BEGIN
    INSERT INTO AAPRUEBATABLA ( COMENTARIO) VALUES(:W_I);
    END
    W_I = W_I + 1;
  END 
   suspend;
end

// generar evento

Código SQL [-]
CREATE OR ALTER trigger aapruebatabla_ai0 for aapruebatabla
active after insert position 0
AS
begin
 POST_EVENT 'PRUEBA';
end