Title: Sending integer with IB Events
Question: How to send integer parameter with POST_EVENT?
Answer:
You can use Eventcount parameter that counts posted Events since last commit and passes this info to the TIBEvent (IBX) EventAlert Event.
We can use a loop to post event as many times as the value of integer that we want to pass to client application.
This code can be used in PSQL (stored procedures or triggers).
"i" is local integer variable and "value" is parameter we want to send with STATE event.
i=0;
while (ido begin
POST_EVENT 'STATE';
i=i+1;
end
In Delphi client application, use OnEventAlert handling for TIBEvent component like this.
procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: string;
EventCount: Integer; var CancelAlerts: Boolean);
begin
if 'STATE'=EventName then begin
(* "EventCount" is our variable comming from SQL
Do something useful here
*)
end;
end;
Eventcount will contain integer value you posted from your SQL stored procedure code.