| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с Event-ами. Их перехват приложением. [D7, IB6.x]

|Denis| ©   (2005-01-03 14:41:00) 

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

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

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

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

---

|Denis|   (2005-01-03 17:11:00) [1]

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

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

---

Zacho   (2005-01-03 16:45:00) [2]

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

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

---

PEAKTOP   (2005-01-03 15:48:00) [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 15:18:00) [4]

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

---

Deniz   (2005-01-03 15:13:00) [5]

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

---

Наверх