Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

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 ???


---

← →
Dimedrol ©   (2002-07-25 15:59) [5]

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

---

← →
Dimedrol ©   (2002-07-26 22:46) [6]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c