Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Eventos firebird (https://www.clubdelphi.com/foros/showthread.php?t=94568)

IVAND 07-04-2020 04:26:10

Eventos firebird
 
Hola a todos

estoy tratand de usar eventos en delphi 2009 con firebird 2.5.

estoy haciendo todo lo que dice en las ayudas pero no puedo hacer que funcione

esto es lo que hago

en la base de datos la tabla se llama alertas_mensajes

en su propiedas after insert coloco el nombre del evento
Código SQL [-]
CREATE OR ALTER trigger alertas_mensajes_ai0 for alertas_mensajes
active after insert position 0
AS
begin
   post_event 'NEW_ALERTA' ;
end
en la pantalla coloco un componente IBEVENT1 tal cua lo cojo de la paleta de interbase

en el evento show de la form (solo es una) escribo lo siguiente

Código Delphi [-]
// Iniciamoes los eventos
IBEvents1.Events.Add('NEW_ALERTA');
IBEvents1.RegisterEvents ;
en el evento EventAlert del componente IBEVENT1
Código Delphi [-]
procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName='NEW_ALERTA' then
     ShowMessage('Hola');
Jamas se ejecuta nada por favor me podrian dar alguna luz , este aplicativo solo se ejecuta en una solo maquina cliente-servidor que mas puedo revisar

Nota : Es importante saber que otra aplicacion inserta datos a esta tabla

Gracias

IVAND 07-04-2020 05:06:18

Nota adicional tambien he intentado insertando el dato desde el ibexpert grabando y nada no se refleja la accion o no se dispara ese evento en la pantalla donde esta el evento :eek::(:(:(:(

Casimiro Notevi 07-04-2020 10:07:19

Mira si te sirven los enlaces similares, abajo del todo de esta página.

ecfisa 07-04-2020 12:52:23

Hola.

Todo lo referente a eventos en Firebird lo vas a encontrar aquí.

Saludos :)

Casimiro Notevi 07-04-2020 13:06:49

Aquí también encuentras un pdf con información y ejemplos de pruebas.

IVAND 07-04-2020 20:35:34

Gracias a todos , pero no he podido hacer funcionar esos eventos en delphi 2009


Cojo la base de datos y hago un pequenio programa en delphi 6 y funciona sin problemas en una maquina virtual , lo curioso es que hace algun tiempo yo probe en delphi 2009 y funciono bien ,

Algjuien de uds tiene un pequenio ejemplo en delphi2009 le quedarte eternamente agradecido

Casimiro Notevi 07-04-2020 21:05:05

¿Y qué diferencia hay entre el programa delphi 6 y el 2009?

ecfisa 07-04-2020 21:23:48

Hola.

¿ Estas usando la misma versión de IBX en ambos casos ?

Saludos :)

IVAND 07-04-2020 21:39:43

No claro que no las ibx que vienen con delphi 2009 en su compobente alert solo tienen una propiedad diferente Autoregister
Eso y el manejo de errores , es lo unico pero como les indique algun momento yo probe los eventos en delphi2009 no me acuerdo que hice porque ese disco se danio , por eso le preguntaba a ustedes si han echo alguna prueba funcional

En espera de sus respuestas quedo como siempre agradecido

IVAND 07-04-2020 22:28:34

Leia en otro post que el firewall bloquea el puerto hice lo mismo que dicen puse RemoteAuxPort = 6050 le quite el antivirus karsperky , le active el firewall abri el puerto 6050 , utilizo windows 10 tambien , ya no se que mas hacer firebird 2.5

IVAND 09-04-2020 02:55:07

Hola todos

Instale nuevos componentes UIB y funciona sin problemas , abri los puertos que indica y funciona sin problemas , pero porque no funciona IBEVENT alguien tiene una experiencia como la mia , Gracias

Casimiro Notevi 09-04-2020 10:49:24

En el firewall, en lugar de permitir puertos, dale permisos a firebird, use el puerto que sea. Ten e cuenta que el puerto usado para esos casos no siempre es el mismo.

IVAND 09-04-2020 15:35:28

Estimados amigos , gracias por su tiempo he decidido abandonar la idea de usar IBEVENT , he utilizado el componente UIB y en ellos tiene un manejador de eventos que ha trabajado perfectamente , de seguro faltara algo al componente de IBX

De antemano gracias por su tiempo

Casimiro Notevi 09-04-2020 20:16:38

Pues cuidado, porque creo que llevan ya 10 años sin actualizarlos.

IVAND 09-04-2020 20:58:35

Cita:

Empezado por Casimiro Notevi (Mensaje 536680)
Pues cuidado, porque creo que llevan ya 10 años sin actualizarlos.

Te refieres a la IBX o A los UIB (estis tienen soporta para firebird 3 segun lo que lei)

Casimiro Notevi 09-04-2020 21:16:47

Pues me extraña porque los últimos cambios son de 2005



IVAND 09-04-2020 22:45:30

https://www.firebirdnews.org/delphi-...-firebird-2-5/

Casimiro Notevi 09-04-2020 23:03:38

Pues eso, en github está la última versión, que es de hace 10 años, aunque está editada la instalación para que funcione con firebird 3.
https://github.com/hgourvest/uib




La franja horaria es GMT +2. Ahora son las 23:10:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi