Lo mismo te interesa
debugview que captura lo que envías a outputdebugstring.
Vuelvo a copiar la respuesta del chatgpt, yo he usado esas opciones en distintos proyectos. (Por eso te lo copio, tendría que estar proyecto a proyecto buscando, copiando, etc. así que aquí va un resumen).
Con
Firebird puedes registrar lo que se ejecuta desde un programa Delphi (u otro cliente) de varias maneras. Aquí te explico las
opciones disponibles para
auditar sentencias como SELECT, INSERT, UPDATE y DELETE, especialmente si quieres guardar esa información en una tabla propia.
🔐 1. Triggers para INSERT, UPDATE, DELETE
Firebird permite crear
triggers en cada tabla para registrar lo que ocurre.
Ejemplo:
CREATE TABLE tbauditoria ( id BIGINT GENERATED BY DEFAULT AS IDENTITY PRIMARY KEY, fecha TIMESTAMP DEFAULT CURRENT_TIMESTAMP, tabla VARCHAR(50), operacion VARCHAR(10), usuario VARCHAR(50), datos TEXT ); En cada tabla que quieras auditar:
CREATE TRIGGER tr_aud_ins BEFORE INSERT ON clientes AS BEGIN INSERT INTO tbauditoria(tabla, operacion, usuario, datos) VALUES ('clientes', 'INSERT', CURRENT_USER, 'nombre=' || NEW.nombre); END Lo mismo puedes hacer para UPDATE y DELETE.
✅ Ventajas:
- Rápido de implementar
- Guarda la información dentro de la misma BD
❌ Limitaciones:
- No captura los SELECT
- Puede impactar el rendimiento si no se gestiona bien
🔍 2. Firebird Trace API (desde 2.5+)
La
Trace API permite capturar TODAS las operaciones ejecutadas (incluso SELECT), sin modificar el código ni las tablas.
Puedes crear un perfil de trace y usarlo así:
fbtracemgr -se localhost:service_mgr -user SYSDBA -password masterkey -start -name mi_trace -config trace.cfg Archivo trace.cfg de ejemplo:
database=<path o nombre de tu base de datos> { enabled = true log_connections = true log_statement_start = true log_statement_finish = true log_errors = true time_threshold = 0 include_filter = "" }
✅ Ventajas:
- Captura todo: SELECT, EXECUTE PROCEDURE, INSERT, etc.
- No requiere cambiar el esquema de la BD
- Puedes guardarlo en archivo o procesarlo desde una app
❌ Limitaciones:
- No guarda en tabla directamente (tienes que parsear el log si lo deseas)
- Solo disponible en Firebird 2.5+
🧩 3. Firebird External Engine / Middleware
Otra opción más compleja es usar:
- Middleware (como un proxy) entre Delphi y Firebird
- Procedimientos almacenados que usen EXECUTE STATEMENT y a la vez logueen
Esto es más raro y complejo, pero viable si usas acceso centralizado a la BD.
💡 Consejo si usas Delphi
Si accedes a Firebird
a través de una capa común en Delphi (por ejemplo una clase o función que centraliza las consultas), puedes añadir
logging desde Delphi mismo, y guardar en una tabla tipo tbauditoria.
procedure EjecutarSQL(const SQL: string); begin GuardarAuditoria(SQL); // Guarda en tabla con usuario, fecha, etc. IBQuery.SQL.Text := SQL; IBQuery.ExecSQL; end;
🧠 En resumen:
Opción ¿Captura SELECT? ¿Guarda en tabla? Complejidad Triggers ❌ No ✅ Sí Baja Trace API ✅ Sí ❌ No (pero se puede procesar) Media Logging en Delphi ✅ Sí ✅ Sí Baja (si tienes control del código) Middleware/Proxy ✅ Sí ✅ Sí Alta