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

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

Не генерируется событие TDatabase.OnAfterDisconnect [D5, MSSQL]


SergeyB ©   (2004-04-14 15:25:00) 

Помогите советом - не генерируется событие TDatabase.OnAfterDisconnect для TDatabase, которую я создаю в runtime. При разрыве соединеия (физическим отключением LAN) и поптыке писать в базу при помощи TQuery.ExecSQL() свойство TDatabase.Connected остается true.
!!! В такой же ситуации компонент на форме (т.е. сделанный в desingtime) генерирует сообщение, отличие по свойствам я не нашел.
Подскажите, как с этим бороться?
Спасибо


Vlad   (2004-04-14 15:59:00) [1]


> SergeyB ©   (14.04.04 15:55) [2]

Обработчик вызывается только тогда, когда проперть Connected устанавливается в False. Это и происходит при закрытии программы.
При физическом разрыве соединения этого не происходит.


SergeyB   (2004-04-14 15:55:00) [2]

Код такой:
 Database.AfterDisconnect:=OnDBDisconnect;
где
 procedure Txxx.OnDBDisconnect(Sender: TObject);
 begin
  ...
 end;

Но обрабочик вызвавается когда завершается программа.
Прошу обратить внимание, что Database.Connected остается равным true.
С чем это еще может быть связано?


Johnmen   (2004-04-14 15:45:00) [3]

Как назначается обработчик ? Код.


Наверх

Титульная страница Поиск, карта сайта Написать письмо