VPF::NOTIFY и LISTEN в PostgreSQL - Форум программистов

RockClimber

Дата 1.9.2009, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: нет
Всего: 15

Прочитал в доках по постгресу про две команды - NOTIFY и LISTEN. Вроде бы с помощью них можно получать от СУБД уведомления о заранее определенных событиях... Например, у меня есть таблица table1 с полем id, которое является первичным ключом. Нужно отловить изменение этого поля и среагировать на него (например, обновить датасет). А как это в коде будет выглядеть?

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

Slam23

Дата 6.5.2010, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.4.2010

Репутация: нет
Всего: нет

Поддерживаю
RockClimber, неужели никто не работал с командами LISTEN/NOTIFY, в нете про них почти нет инфы, есть описание синтаксиса команд, а как их применить на практике хотелось бы узнать, если кто поможет буду признателен.

Asm64D

Дата 10.5.2010, 10:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 9.8.2008

Репутация: нет
Всего: нет

Все зависит от компонентов доступа, например для MicroOLAP PostgresDAC

Цитата(TPSQLNotify)

TPSQLNotify provides the interface to PostgreSQL Asynchronous Notification functionalities. To learn how does PostgreSQL Asynchronous Notification work, please see Asynchronous Notification section of PostgreSQL documentation.

Use TPSQLNotify to organize notifications between client applications about their actions through Postgres database server.

To use TPSQLNotify you should do the following:

1. Create a rule for table on which changes you want to be notified:

Код


create rule InsertDetect as on INSERT to notify_test do notify recinsert

2. Add recinsert to ListenList property of TPSQLNotify component;
3. Write event handler for OnNotify event:

Код


procedure TForm1.PSQLNotify1Notify(Sender: TObject; Event: String; Pid : Integer);
begin
   if PID <> DB.GetBackendPID then  // If it is not me...
      Memo1.Lines.Add(
      Format('Client (PID=%d) just modified (event = %s) table notify_test. Press Refresh',
      [PID, Event]));
end;

4. Link Database property of TPSQLNotify component to PSQLDatabase component;
5. To begin listen notifications, set Active property of TPSQLNotify to True.
After compilation you can see rows insertions in Memo1 component when other clients make inserts in notify_test table. Also you can do the same for DELETE and UPDATE events.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »