i tried your product-demo with Delphi 2007 and Firebird 2.1.3 SuperServer. I created the Database and everything works fine. But the Alerter-Demo doesn't work.
First I clicked the Open-Button. Then the Create-Button. I can see in Flamerobin that the Create-Scripts are done (one Stored-Procedure and three Trigger-Events for the table DEPT). But when I press the Register-Button the Applications freeze.
I also tried to make an new Projekt with only an Alerter for the Triggerevents. It also freeze.
When I debug, I can see that it freeze at this position:
Code: Select all
procedure TAlerterFrame.btRegisterClick(Sender: TObject);
procedure RegisterFor(Alerter: TIBCAlerter; Proc: TIBCStoredProc);
begin
Alerter.Stop;
if rbTriggers.Checked then
Alerter.Events.Text := edTrEvent.Text
else
Alerter.Events.Text := edPrEvent.Text;
Alerter.Start;
Proc.Prepare; >
Proc.ParamByName(PrEvent).ParamType := ptInput;
Proc.ParamByName(PrEvent).AsString := edPrEvent.Text;
end;
begin
Connect;
RegisterFor(IBCAlerter1, IBCStoredProc1);
RegisterFor(IBCAlerter2, IBCStoredProc2);
SetControlsEnabled(False);
end;
Thanks for help.
Chris