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

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

Восстановление подключения к IB в BDE [D5, IB5.x, IB6.x, FireBird]

ACampball ©   (2002-10-28 15:32:00) 

Здравствуйте !

Может кто-то решал данный вопрос и сможет поделится.

Необходимо в ходе работы программы контролировать подключени
к IB и в случае потери коннекта предложить восстановить.

Важно!!Работа с IB через BDE стандартными компонентами Delphi

Заранее спасибо

---

ACampball   (2002-10-28 17:03:00) [1]

Ну попробовал я поставить событие.
Дело в том, что если загасить сервис то никакого сообщения
не возникает.

Как быть ?

---

ACampball   (2002-10-28 16:10:00) [2]

>> not lUserDisconnect ) then
>> ShowWarning( rc_ServerDisconnect );

Это понятно !

>> if( not TryConnect() ) then
Это можно расписать ?

---

Desdechado   (2002-10-28 15:45:00) [3]

например, так
{----- обработка обрыва соединения -----}
procedure TLioDataModule.LioDataBaseAfterDisconnect( Sender: TObject );
begin
if( not lUserDisconnect ) then
begin
ShowWarning( rc_ServerDisconnect );
if( not TryConnect() ) then
DropLio(); // выйти из программы
end;
end;

---

Наверх