23 respuestas en este tema

[luk2009]

Hola como estan

Tengo una aplicacion que corre en varias maquinas a la vez  y que se conectan a un servidor con firebird 2.1.3. Me gustaria que cada vez que efectue algun cambio en una de las aplicaciones, se refleje de manera automatica en las demas. He probado haciendo un refresh, luego de hacer un update, pero prefiero hacer algo del lado del servidor para no cargar el programa.

Gracias por adelantado.

[Wilson]

Mirá este hilo, de pronto haya algo que te sirva.

Saludos

[Marc]

Además de esa información, en firebird.com.mx (un sitio muy recomendable) tienes un buen artículo que describe esta programación con eventos.

http://www.firebird.....php?storyid=35

NOTA : Ahora que todos los equipos Windows suelen llevar un cortafuegos personal (como mínimo llevaran el integrado en XP SP2), deberás recordar habilitar tu programa para que pueda recibir conexiones entrantes.

Saludos.

[luk2009]

Podria ser, pero segun entiendo, para usar esta idea de egostar, tendria que usar el zibeventalerter de zeos
crear un evento en mi caso seria cambios, algo como esto en el oncreate o en el onshow de mi formulario:

delphi

DMmonitorenred.ZIBEventAlerter1.Events.Add('cambios');
 DMmonitorenred.ZIBEventAlerter1.RegisterEvents;

tendria que hacer esto:

delphi

procedure TDMmonitorenred.ZIBEventAlerter1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName = 'cambios' then
DMmonitorenred.ZQactivas.Refresh;
end;

Con esto lograria que solo me refresque el query cuando se genere un evento y no que lo este haciendo a cada rato, hasta aqui si entiendo bien no hay problema.

Ahora bien, que debo poner en el trigger que voy a crear usando ibexpert? 
El trigger se llamara ncambio.

[fredycc]

Es muy importante que en el trigger uses:

sql

CREATE TRIGGER POST_NEW_REG FOR TABLA
AFTER INSERT
AS
 
BEGIN
 
POST_EVENT "cambios";
 
END

[luk2009]

gracias por responder a todos, Eso pensaba Fredycc pero me da el error de que no reconoce la variable cambios

[fredycc]

Q tal luk2009, prueba entonces:

POST_EVENT 'cambios';


Con el punto y coma al final, además de que comillas simples en lugar de dobles.

[luk2009]

Hola a todos, el problema aparentemente esta en que le puse comillas dobles donde dice cambios. Pero resulta que en el documento que me indico Marc esta puesto asi

delphi

2. Trigger para la modificación de registros:
 
CREATE TRIGGER CAMBIOS_EN_CLIENTE FOR CLIENTES
 
AFTER UPDATE
 
AS
 
BEGIN
 
POST_EVENT "CAMBIO_CLIENTE";
 
END

[luk2009]

Gracias Fredycc, ya me habia dado cuenta de ese error.

[luk2009]

Otra pregunta: cuales son los lugares correctos para ubicar el componente zibeventalerter de zeos: en el datamodule o en el formulario principal.  En cual evento es mejor registrar el evento: en el oncreate o en el onshow.

Hago estas preguntas porque el mismo componente tiene opciones de autoregister y para ponerle el nombre y decirle si esta registrado. Por estas razones no se si sea necesario especificar lo mismo otra vez.

Por otro lado recibi un error de memoria, pero lo estare reproduciendo mañana y poniendo la imagen en el foro, porque ya es justo que me acueste.

[cadetill]

Buenas,

Yo lo tengo puesto en un lugar accesible desde cualquier formulario (tengo un DataModule específico para realizar la conexión a la base de datos). Y es en el constructor de este DM que registro todos los eventos que necesito.

Espero te sirva

Nos leemos

[fredycc]

Q tal luk2009, estas usando Zeos sobre Lazarus?

Te pregunto esto porque yo tenía un problema similar con Zeos 6.6.6 stable, puedes descargarte un archivo zip, con demos de Zeos para Lazarus en: http://sites.google....rogbs/downloads ahí hasta la parte de abajo hay un archivo denominado Zeos_Demos.zip; dentro de este existe una carpeta denominada <Event>; ahi hay un buen ejemplo, además existe otra carpetita denominada <update> ; y dentro un archivo denominado <ZIBEventAlerter.pas>; el cual necesitas reemplazar en tu instalación de Zeos además de volver a compilar lazarus para que surta efecto, de puedo decir que a mí me funcionó, además también aplica en instalaciones lilnux.

Saludos 

[luk2009]

Gracias a todos por responder.
Cadetill voy a probar como me dices y vamos a ver como funciona.

Gracias Fredycc voy a probar lo que me dices. La verdad es que en este caso estoy trabajando en la version que tengo para delphi con zeos 6.6.6 stable, pero como tengo el mismo programa en version lazarus, me va a servir muchisimo lo que has informado y los archivos del link que has puesto.

[luk2009]

Fredycc no esta la carpeta update.

[luk2009]

este es el error que me da cuando intento registrar el evento desde delphi.
lo hice como indica egostar en el link que indica wilson y tambien segun este LINK

TZIBEventAlerter (Add On only for Firebird and Interbase) 
By using this component you are able to intercept events triggered by stored procedures of a Firebird 
database and react to them. You only have to register the event's text (string) you want to react to in property 
Events which is a stringlist. You can do this using objectinspector or inside the sourcecode. The event alerter 
is activated by registering the listed events. To do this you should call the Registerevents method because 
the Properties AutoRegister and Registered do not work properly. If you once have registered the events the 
component is able to react to them. All events are unregistered (deleted) by calling method UnregisterEvents 
and the event alertet is turned off. 
Registration of events and "activation" of the event alerter: 
:
EventAlerter.Events.Add ('Minimum Stock Level Reached');
EventAlerter.Events.Add ('Credit Limit Exceeded');
EventAlerter.RegisterEvents;
:

pero me sale este bendito error, alguien tiene alguna idea.

[fredycc]

Q extraño, bueno aquí te adjunto la parte de eventos del archivo mencionados, saludos.

Perdón por la tardanza, acabo de comer, pues llegué del trabajo, pero ya estoy de vuelta.

Archivos adjuntos

•  1970_ebfe8c50c8a9e2cda89a8ee1c60f8bbe05c96ba0.zip   107,96KB   6 descargas

[eduarcol]

Si puedes coloca el codigo y la linea donde te da ese error, por lo general sucede cuando hay objetos no creados

[luk2009]

Eduarcol has utilizado el zibeventalerter? con delphi, si la respuesta es afrimativa, dime como te ha ido y como lo has hecho?

He creado una aplicacion con un solo form donde pongo el zconnection y el sibeventalerter y desde que intento registrar el evento me da el error. voy a reproducirlo y te digo en que linea es que salta.

[egostar]

Y ya probaste con IBX ? digo, para descartar que el problema esté en la base de datos

Salud OS

[luk2009]

Con IBX si funciona 

El problema definitivamente es con zeos. Para los eventos solo tengo que poner el zibeventalerter o hay que poner algun otro como complemento de este.

La verdad es que me gustaria resolverlo con zeos. Alguna idea?