Восстановление подключения к IB в BDE

← →
ACampball © (2002-10-28 15:32) [0]

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

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

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

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

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

← →
Desdechado © (2002-10-28 15:45) [1]

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

← →
ACampball © (2002-10-28 16:10) [2]

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

Это понятно !

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

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

Как быть ?

Восстановление подключения к IB в BDE Найти похожие ветки