| Subject | Events in IBO (5.10.1 2808) |
|---|---|
| Author | |
| Post date | 2019-05-10T12:05:44Z |
Hi
After upgrading my Delphi from 2010 til 10.2 and my IBO to version 5.10.1 2808, I have a problem getting events in firebird to work.
In firebird I have this stored procedure:
SET TERM ^^ ;
CREATE OR ALTER PROCEDURE SENDONLINEBESKED (
P1 VarChar(50))
AS
begin
POST_EVENT :P1;
suspend;
end ^^
SET TERM ; ^^
CREATE OR ALTER PROCEDURE SENDONLINEBESKED (
P1 VarChar(50))
AS
begin
POST_EVENT :P1;
suspend;
end ^^
SET TERM ; ^^
If I have a TIB setup like this:
DB1_TIB.Open;
event1_TIB.Events.CLear;
event1_TIB.Events.Add('Test1');
event1_TIB.Events.Add('Test2');
event1_TIB.RegisterEvents;
event1_TIB.Events.CLear;
event1_TIB.Events.Add('Test1');
event1_TIB.Events.Add('Test2');
event1_TIB.RegisterEvents;
I have registered to events. Test1 and Test2.
If I then open another connection using TIB, and execute an SQL where I do this:
Execute Procedure SendOnlineBesked('Test1')
Then I something OnEvertAlert.
If I do the same using
TIBODatabase
TIB_Events
I do get nothing in the OnEvertAlert.
And If I via TIBOQuery do the execute procdeure niether database gets an OnEventAlert.
All this worked in D2010 with IBO version 4.9.9.
I have made a very small testprogram, where in only database connection should be changed and have a firebird (2.5) database with the above stored procedure in.
This can be downloaded here:
Its made in Delphi 10.2.
I will also appriciate a very small program, that demonstrates how I can use events with D10.2 and IBO and firebird.
Regards