Events in IB/FB

← →
Dimedrol © (2002-07-19 18:18) [0]

Коллеги, подскажите пожалуйста, как правильно хэндлить ивенты...

Есть процедура на сервере :

CREATE PROCEDURE CALL_EVENT AS BEGIN POST_EVENT "test_event"; END;

В моем приложении я использую TIBEvents.
AutoRegister=true Database=MyDBName Events= {Requested events : 1 - test_event} Registered=false

Исполняю процедуру... ОК !
procedure TForm1.SPExecClick(Sender: TObject); begin SP.Prepare;SP.ExecProc; end;

Пытаюсь отловить ивент.... НИФИГА ! Не реагирует...
procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String; EventCount: Integer; var CancelAlerts: Boolean); begin showmessage("EventName=""+EventName+"", EventCount="+inttostr(EventCount)); end;

Где же я накозлил ?

← →
kaif © (2002-07-20 01:16) [1]

Database=MyDBName ?
Это экземляр TIBDatabase?
У него Connected = True или нет?
вообще-то должно работать.
У меня Event-ы работают с IBX и Firebird. Правда я их редко использую.

← →
Dimedrol © (2002-07-23 19:01) [2]

Да с самой базой все ОК.
Я вообще весь проэкт взял из статьи IBPhoenix...
Там просто открывается демо-база..
Я ее на Линух положил - все рулИт !

Простой респонд от процедуры я могу получить.
Строчку простую, в кач-ве ответа и т.п.,
а вот отреагировать на событие... никак ;-(

← →
Johnmen © (2002-07-24 09:37) [3]

Ну во-первых евент надо регистрить,
а во-вторых, не забывать про var CancelAlerts: Boolean

← →
Dimedrol © (2002-07-24 23:45) [4]

У мня в компоненте стоит
AutoRegister=true
Это не то ?

а что с
var CancelAlerts: Boolean ???

Коллеги, ну неужели никто не работал с Events в Delphi ?!

Совсем никто ???!! 8888-\

Events in IB/FB Найти похожие ветки