IBEvents registra ultimo evento (dispara todos)

[Kipow]

Saludos amigos foreros

Tengo un problema con los ibevents utilizo
Delphi 2009 Update 2,
Firebird 2.1.1 32bits
Vista 64bits.

El entorno es el siguiente:

Tengo en mi formulario un componente TIBEvents al cual le asigno corretamente las propiedades que necesito siendo asi la base de datos y 3 eventos distintos. Al abrir el formulario los registro con

Código Delphi [-]
IBEvents1.Registered := True;

y al cerrar el formulario pues hago lo contrario

Código Delphi [-]
IBEvents1.Registered := False;

El problema es que solamente me registra el ultimo evento de la lista y obvio que el evento OnEventAlert solamente se dispara al con este ultimo.
peeero se dispara para los 3 eventos de la lista. algo raro pero no doy que puede ser me imagino que algun tipo de incompatibilidad de las IBX para con el Firebird pero no se, acabo de instalar las Zeos para realizar las pruebas a ver como me va.

Saludos

[[Lepe]]

Al menos con los MDO me pasaba lo mismo. Así que probablemente sea un problema de los IBX.

La solución fué añadirlos en tiempo de ejecución y olvidarme de ponerlos en tiempo de diseño:

Código Delphi [-]
ibevents.add(const_nombreEvento);
ibevents.add(const_nombreEvento2);
ibevents.Registered := True;

Saludos.

[Kipow]

Gracias por contestar Lepe, pues si ya he probado esa forma de asignarlos e igual solamente me registra el ultimo y me dispara todos jaja, por el momento he optado por crear ibevents de forma dinamica para cada evento (ya se que es chapuz pero tengo que entregar el proyecto de urgencia) lo raro es que acaban de actualizar el delphi y no se ha corregido este bug (si es que lo fuera).

[[Lepe]]

Hay algo que no entiendo en tu mensaje.

El ibevents lanza el evento OnEvents para todas las alertas que tenga registradas, en dicho evento tiene el parámetro EventName (hablo de MDO pero en Interbase debe ser igualito) que te indica el evento que se ha disparado realmente.

Supongo que usaras un if EventName = evento1 then... else if EventName = evento2 ... ¿no?

Saludos

[Kipow]

Aclarando, yo registro 3 eventos distintos ya sea en runtime o designtime. al parecer solo queda registrado el ultimo y al lanzar ese evento el procedimiento OnEventAlert se dispara 3 veces 1 para cada evento de los que teoricamente registre. no se si me explico. los eventos si los identifico con el parametro "eventname".

[[Lepe]]

siendo benévolo.... usas IBX con FB 2.1, en principio no se garantiza la compatibilidad...pero ya digo, siendo benévolo .

Saludos

[Gallosuarez]

He estado utilizando los eventos de Firebird, lo que he notado es que los eventos se disparan despues de un commit. Creo que por ahí podría estar la explicación a tu problema. Ejemplo: se tiene un evento que se dispara despues de una inserción y si haces tres inserciones, pues los eventos se registrarán en la aplicación despues de que hayas hecho un commit, es decir, se dispararía tres veces despues de un solo commit. Si lo que quieres es que inmediatamente se dispare el evento despues de la primera inserción (o cualesquiera que se la condición para que se dispare el evento), debes de hacer un commit inmediatamente, me explico?

Bueno, espero que de algo sirva esto. No dejes de contarnos como solucionaste el problema.

Saludos,
Gerardo Suárez

[Kipow]

Gracias por la intencion pero si efectivamente es un bug de los ibevents. pues nada que lo solucione a mi manera ibevent * evento.