database name missing

[mRoman]

Hola buenas tardes.

Trabajo con: FB 2.0, Delphi6, Win10

Explico, estoy tratando de usar el componente IBEvent para "refrescar" un query q está enlazado en DBGrid de un 1 equipo en RED, la idea es q en este equipo se este actualizando el GRID con los movimientos de inserción que se hagan en las otras terminales.

Me he documentado con el uso del componente y he consultado los siguientes links, entre otro:

https://stackoverflow.com/questions/49918075/firebird-events-and-firewall-issue-tibevents
https://www.clubdelphi.com/foros/showthread.php?t=44493

Lo anterior porque me esta presentando el siguiente problema:

Database name missing

Ya configure lo q dicen los links: Abrir el puerto en el Firewall, especifiqué el 6050 asi como en el archivo Firebird.conf )

El componente lo tengo en un formulario MDI que es como el monitor donde el usuario deberá ver los registros que se estén INSERTANDO.

Ya defini el trigger como sigue:

Código SQL [-]
CREATE TRIGGER TRG_ALERT_NEW_COMANDA FOR COMANDA_MAESTRO
ACTIVE AFTER INSERT POSITION 1
AS
begin
  POST_EVENT 'NEW_COMANDA';
end

En el IBEvent en su propiedad "Database" lo tengo enlazado al componente IBDatabase q se encuentra en un Datamodule.
En la propiedad "Name" del IBEvent, tengo registrado el mismo nombre que tengo definido en el trigger (NEW_COMANDA)
Y en "Registered", lo tengo en TRUE.

Al momento de seleccionar el formulario donde se encuentra el componente IBEvent, me salta el error...

Asi mando llamar al formulario:

Código Delphi [-]
procedure TfrmMenuPrincipal.Registro1Click(Sender: TObject);
begin
     if FindComponent('frmMesasAbiertas2') = nil then
           frmMesasAbiertas2:=TfrmMEsasAbiertas2.Create(self);
      frmMEsasAbiertas2.Show;
end;

Usando el Trace, se detiene en esta linea:

Código Delphi [-]
           frmMesasAbiertas2:=TfrmMEsasAbiertas2.Create(self);

Y es aquí donde muestra el mensaje del "Database name missing".

en tiempo de diseño, hago los siguientes cambios en las propiedades del IBEvent: Database hago en enlace al IBDatabase del Datamodule (Esta bien definido), Name escribo "NEW_COMANDA", Registered a True;

Me pudieran orientar...que mas hará falta configurar???

[ecfisa]

Hola.

En el TIBEvents pon la propiedad Registered a False.

Saludos

[mRoman]

Empezado por ecfisa

Hola.

En el TIBEvents pon la propiedad Registered a False.

Saludos

Ok, gracias ecfisa por contestar....

Lo haré asi como me comentas.

[mRoman]

Empezado por mRoman

Ok, gracias ecfisa por contestar....

Lo haré asi como me comentas.

Hola...lo aplique como me sugeriste y NO manda ningun error, ya quedó...pero ahora el código q puse en la propiedad IBEventsEventAlert, no se ejecutan

Código Delphi [-]
procedure TfrmMesasAbiertas2.IBEvents1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
     qryComandero.Refresh;
     FormShow(Sender);
     ShowMessage('Actualizar grid');
end;

Se supone que las 3 lineas dentro de este procedure, se deberían de ejecutar, pero no lo hace. Que otra debo considerar

[mRoman]

Empezado por mRoman

Hola...lo aplique como me sugeriste y NO manda ningun error, ya quedó...pero ahora el código q puse en la propiedad IBEventsEventAlert, no se ejecutan

Código Delphi [-]
procedure TfrmMesasAbiertas2.IBEvents1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
     qryComandero.Refresh;
     FormShow(Sender);
     ShowMessage('Actualizar grid');
end;

Se supone que las 3 lineas dentro de este procedure, se deberían de ejecutar, pero no lo hace. Que otra debo considerar

Estoy consultando un hilo de eficsa....sobre esto.
http://www.clubdelphi.com/~marcsc/fo...ad.php?t=78629

...pero creo que no me ayudó mucho, fue un error de declaración del evento. uff...seguire buscando.

[ecfisa]

Hola de nuevo.

¿ Registraste los eventos en tiempo de ejecución ?

Código Delphi [-]
  IBEvents1.Database     := IBDatabase1;  
  IBEvents1.AutoRegister := True; 
  IBEvents1.Events.Clear;
  IBEvents1.Events.Add( 'NEW_COMANDA' );
  ...
  IBEvents1.RegisterEvents;

Saludos

[Casimiro Notevi]

Empezado por mRoman

Abrir el puerto en el Firewall, especifiqué el 6050

No me suena ese puerto.

[mRoman]

Empezado por Casimiro Notevi

No me suena ese puerto.

Hola Casimiro, entre la documentación consultada, lo mencionan también el 3051....pero no sé si es correcto ambos o solo el 3051.