Работа с 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;

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

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

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

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

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