database name missing

[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

[mRoman]

Empezado por 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

No...lo haré.

[Casimiro Noteví]

El puerto que usa firebird es el 3050, no el 6050 como has puesto antes, supongo que habrá sido un lapsus al teclearlo.
De todas formas, mira este enlace, es algo antiguo pero el funcionamiento es el mismo, ahí te explica puertos y demás.

[mRoman]

Ya lo hice...y no marca error...pero sigue sin ejecutar el código del evento EventAlert.

Seguiré buscando...