Delphi + Firebird:

@shurik_klgd · Регистрация: 28.10.2010

Author24 — интернет-сервис помощи студентам

Кинул на форму компоненты: IBDB:TIBDatabase, IBT:TIBTransaction, IBQ:TIBQuery, TTimer.
Таймер завел на интервал 1сек, в обработчике таймера написал:
-----------

Delphi

 try
  if not DM.IBDB.Connected then begin
    DM.IBDB.Open;
  end;
  if DM.IBQ.Active then DM.IBQ.Close;
  DM.IBQ.Open;
  form1.Color:=clBtnFace;
 except
  form1.Color:=clRed;
 end;
  Application.ProcessMessages;

----------
Идея такая: соединение с БД теряется - форма красная, восстанавливается соединение - форма серая.
1) 1-й Вариант запуска проги с выключенным firebird
Форма через 1 сек становится красной. Затем я подымаю firebird, форма меняется на серую (т.е. соединение установилось). Затем я опускаю опять FB, форма становится красной. Потом что с FB не делай соединение больше не восстанавливается (форма остается красной).
2) 2-й вариант с запущенным FB. Форма остается серой, т.е. соединение активно. Потом я опускаю FB - офрма краснеет и более соединение уже никогда не восстанавливается.

Утсановлено экспериментально, что соединение не восстанавливается поскольку в программе возникает исключение EIBClientError в строке "if not DM.IBDB.Connected then begin". После всех экспериментов при закрытии прога вылетает в ошибку "Исключение неизвестное програмное исключение 0x0eedfade в приложении по адресу..." и далее EIbClientError in module Project1.exe Dataset open.

Подскажите как восстановить соединение с БД и побороть все эти исключения.
p.s. спасибо за любые наводки

Добавлено через 3 минуты
DM это Data Module на которой компоненты БД лежат

@SAMZ · 29.12.2010, 06:59

Сообщение от shurik_klgd

Вариант запуска проги с выключенным firebird

Если firebird действительно находится в выключенном состоянии, то Ваш код нормально работать не будет.
Любая строкаЮ например эта

Сообщение от shurik_klgd

if not DM.IBDB.Connected

будет порождать исключение.

@Sergiuz · 29.12.2010, 11:14

По моему в твоем случае еще нужно обработать событие в самом IBDB:TIBDatabase для потери связи что бы установить параметр Connect:=false

дело в том что может быть параметр с истины не изменился и пораждаються твои траблы.

Проверить сейчас не могу, но вечером обезательно гляну

@shurik_klgd · 29.12.2010, 12:54 **[ТС]**

Сообщение от SAMZ

Если firebird действительно находится в выключенном состоянии

ну пока FIREBIR отключен, пускай себе в except вываливается, мне важно, чтобы когда я его поднимаю (FB) соединение прошло, а оно не проходит

Сообщение от Sergiuz

По моему в твоем случае еще нужно обработать событие в самом IBDB:TIBDatabase для потери связи что бы установить параметр Connect:=false

это я тоже пробовал, не помню сейчас точный результат, но в общем, не спасает

@shurik_klgd · 30.12.2010, 14:05 **[ТС]**

up up up up

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,255
	29.12.2010, 06:59	2
	Сообщение от shurik_klgd Вариант запуска проги с выключенным firebird Если firebird действительно находится в выключенном состоянии, то Ваш код нормально работать не будет. Любая строкаЮ например эта Сообщение от shurik_klgd if not DM.IBDB.Connected будет порождать исключение. 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	29.12.2010, 11:14	3
	По моему в твоем случае еще нужно обработать событие в самом IBDB:TIBDatabase для потери связи что бы установить параметр Connect:=false дело в том что может быть параметр с истины не изменился и пораждаються твои траблы. Проверить сейчас не могу, но вечером обезательно гляну 0

@shurik_klgd 0 / 0 / 0 Регистрация: 28.10.2010 Сообщений: 4
	29.12.2010, 12:54 [ТС]	4
	Сообщение от SAMZ Если firebird действительно находится в выключенном состоянии ну пока FIREBIR отключен, пускай себе в except вываливается, мне важно, чтобы когда я его поднимаю (FB) соединение прошло, а оно не проходит Сообщение от Sergiuz По моему в твоем случае еще нужно обработать событие в самом IBDB:TIBDatabase для потери связи что бы установить параметр Connect:=false это я тоже пробовал, не помню сейчас точный результат, но в общем, не спасает 0

@shurik_klgd 0 / 0 / 0 Регистрация: 28.10.2010 Сообщений: 4
	30.12.2010, 14:05 [ТС]	5
	up up up up 0