Event - Delphi 2005
Добавлено: 16 дек 2010, 12:43
Привет всем!
Использую FB2.1
На тригерах вешаю post_event 'RefreshDB';
На клиенте
По умолчанию IBEvents1.Registered == False
При активации формы IBEvents1.RegisterEvents;
На клиенте Event ловится, но вешает программу везде кроме того клиента откуда событие генерируется (я знаю, что генерирует сервер:-))
Использую FB2.1
На тригерах вешаю post_event 'RefreshDB';
На клиенте
Код: Выделить всё
procedure TfZakaz.IBEvents1EventAlert(Sender: TObject; EventName: string;
EventCount: Integer; var CancelAlerts: Boolean);
begin
try
// ShowMessage('Поймал');
BuildSQL(False); // Переоткрыть запрос
if not IBEvents1.Registered then IBEvents1.RegisterEvents;
except
end;
end;
По умолчанию IBEvents1.Registered == False
При активации формы IBEvents1.RegisterEvents;
На клиенте Event ловится, но вешает программу везде кроме того клиента откуда событие генерируется (я знаю, что генерирует сервер:-))