Скачать: CL | DM;

Работа с Event-ами. Их перехват приложением.   Найти похожие ветки 

← →
|Denis| ©   (2005-01-03 14:41) [0]

Здравствуйте.
Предположим, существует триггер:

create trigger bef_del_table1 for table1
active before delete
as
begin
 POST_EVENT  ‘Из первой таблицы удалена запись’;
end

Как теперь выловить это событие с помощью IBEventAlerter (IBEvents)? Что писать в сво-ве Events, ведь данное событие вроде бы не имеет уникального идентификатора?
Желательно небольшой пример. Ну, или на крайний случай – большой.

PS: К сожалению ни в книге (Фаронов), ни в справке по компонентам, либо по SQL,  принятому в IB, я ответа не нашел, посему, буду признателен за помощь.

---

← →
Deniz   (2005-01-03 15:13) [1]

Здравствую тезка!
Для начала посмотри пример из стандартной поставки Delphi c:\program files\borland\delphi7\demos\db\ibx\ibxevents\*.*
затем, если возникнут вопросы, приходи сюда.

---

← →
Zacho ©   (2005-01-03 15:18) [2]

А вообще в IB 6.x использовать ивенты не советую. И вообще их использовать не советую, разве что в проиложении, работающем локально. Ибо глюкотень это ещё та.
Правда, вроде бы в FB 1.5 они работают нормально, но я не проверял.

---

← →
PEAKTOP ©   (2005-01-03 15:48) [3]

...PS: К сожалению ни в книге (Фаронов), ни в справке по компонентам...
Правда ? Значит Новый Год удался.. :)))

Zacho ©   (03.01.05 15:18) [2]
... Ибо глюкотень это ещё та....
А ты что думал ? После сборки обработать напильником надо было. ;)))
Правда, вроде бы в FB 1.5 они работают нормально, но я не проверял.
Нормально.

----------------------------------------------
1)
create trigger bef_del_table1 for table1
active before delete
as
begin
POST_EVENT  ‘MYEVENT1’;
end

2)Кидаем на форму IBEvents и редактируем свойство Events:TStrings добявляя в него строку MYEVENT1

3)
procedure Form.OnCreate(Sender :TObject);
begin
 IBEvents.RegisterEvents;
end;

procedure Form.OnDestroy(Sender :TObject);
begin
 IBEvents.UnRegisterEvents;
end;

procedure Form.IBEventsOnEventAlert(Sender :TObject; .....);
begin
 ....
 Тута и обрабатываем
 ....
end;

---

← →
Zacho ©   (2005-01-03 16:45) [4]

PEAKTOP ©   (03.01.05 15:48) [3]
А ты что думал ? После сборки обработать напильником надо было. ;)))

Для IB 4.x, 5.x и 6.x никакой напильник не поможет :) Ну ладно, в 6.x теоритически ещё можно исходники вправить :)

---

← →
|Denis| ©   (2005-01-03 17:11) [5]

Разобрался. Всем спасибо.

PS: Новый год действительно удался =0)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c