* * *

Author Topic: TIBEvents seems to get nuisance alerts  (Read 232 times)

RedOctober

  • Full Member
  • ***
  • Posts: 218
TIBEvents seems to get nuisance alerts
« on: May 23, 2018, 03:40:02 am »
I have a simple "Event Monitoring" window for Firebird.  I have a TIBEvents component on the form, which is connected to a database and transaction component.
I can start the TIBEvents component as follows:

  if not fb_db.Connected then
    fb_db.Connected := True;
  fb_evt.Events.Clear;
  fb_evt.Events.AddStrings(lbxEvents.Items);
  fb_evt.Registered := True;

I stop the component as follows:

  fb_evt.Registered := False;
  fb_evt.Events.Clear;

  if fb_db.Connected then
    fb_db.Connected := False;

My fb_evtEventAlert writes out the events to a TMemo.

When I originally start the TIBEvents component, it dutifully waits until a registered event fires, then it writes out the alert to the memo.

I then stop the TIBEvents component.  Then I start the TIBEvents component again.

The TIBEvents component immediatley records that all the registered events have occurred with a count of 1.  This is not true.  These events did not actually happen in the database.

If I close the window and reopen it, it acts normally again, until my second restart, then if "fails" again.

Question:  What is causing the immediate "ghost" alerts to show on ALL SUBSEQUENT TO FIRST starts and stops?

Platform:  Lazaraus 1.8.2, FPC 3.0.4, TIBEvent 2.3.0


Thanks in advance for any help you can provide.


 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus