[ecfisa]

Hola Anubis.

La declaración POST_EVENT permite disparar un mensaje al manejador de eventos de Firebird para avisar del acontecimiento de algún cambio en la BD evitando así el poolling periódico como en otras DBMS. Los eventos se envían al manejador de eventos desde algún trigger o procedure señalando la acción que se desarrolló.

Por ejemplo: Enviar mensajes de inserción, modificación y borrado que se realicen en la tabla 'TABLA':

Código SQL [-]
SET TERM ^;

CREATE OR ALTER TRIGGER EV_TABLA_INSERT FOR TABLA
ACTIVE AFTER INSERT POSITION 10
AS
BEGIN
  POST_EVENT 'TABLA_INSERT';
END^

CREATE OR ALTER TRIGGER EV_TABLA_UPDATE FOR TABLA
ACTIVE AFTER UPDATE POSITION 10
AS
BEGIN
  POST_EVENT 'TABLA_UPDATE';
END^

CREATE OR ALTER TRIGGER EV_TABLA_DELETE FOR TABLA
ACTIVE AFTER DELETE POSITION 10
AS
BEGIN
  POST_EVENT 'TABLA_DELETE';
END^

SET TERM ;^

Una vez realizado Commit o CommitRetaining, el evento es disparado y Firebird lo notificará. Ahora hay que detectar esa notificación desde Delphi, para eso podes utilizar el componente TIBEvents (si estas usando los componentes IBX)

Ejemplo de cofiguración del componente:

Desde Object Inspector

• Propiedad Database <- tu_IBDatabase
• Propiedad AutoRegister <- False;
• propiedad Name <- evTabla
• Evento OnEventAlert <- evTablaEventAlert;

Desde código

Código Delphi [-]
...
procedure TDataModule.DataModuleCreate(Sender: TObject);
begin
  ...
  evTabla.Events.Clear;
  evTabla.Events.Add('TABLA_INSERT');
  evTabla.Events.Add('TABLA_UPDATE');
  evTabla.Events.Add('TABLA_DELETE');
  evTabla.RegisterEvents;
  ...
end;

...

procedure TDataModule.evTablaEventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  case AnsiIndexStr(EventName,['TABLA_INSERT','TABLA_UPDATE','TABLA_DELETE']) of
    0:; // Notificación de inserción
    1:; // Notificación de modificación 
    2:; // Notificación de borrado
  end;
end;

Luego podes realizar las acciones pertinentes a cada caso, como por ejemplo un Refresh sobre la tabla en cuestión.

Saludos.