Как проверить связь с сервером?

← →
Ш-К (2003-05-14 21:00) [0]

В событии FormCloseQuery ставлю, например, такой код:

IBTransaction1.StartTransaction;
IBTransaction1.Commit;

Если во время работы программы произошел дисконнект с ИВ, то программу невозможно будет закрыть.
Будет постоянно вылетать:
"connection lost to database"

Как проверять связь с сервером?

← →
Senator © (2003-05-15 10:38) [1]

Использовать FIBPlus компоненты, там есть возможность отловить и обработать потерю связи

← →
Ш-К (2003-05-15 13:26) [2]

А без FIBPlus?

← →
AlexSerp © (2003-05-15 14:11) [3]

В procedure TForm1.AppException(Sender: TObject; E: Exception), объявленной в приложении заранее
procedure TFrmMDImain.AppException(Sender: TObject; E: Exception); begin if pos("connection lost to database", E.message)>0 then begin ShowMessage("Потеряна связь с сервером! Попробуйте еще раз." +#13 +"Если не получается закройте программу или перезагрузите компьютер."); DB.Connected :=False; DB.Connected :=True; exit; end; showmessage("Возникла ошибка со следующим сообщением !!! "+E.message); end;

← →
Ш-К (2003-05-15 23:10) [4]

Тоже вариант. Можно построить логику программы на переваривании Exception.

Но реально ли все-таки или проверять своеручно, или ловить дисконект еще до исключения?

Как проверить связь с сервером? Найти похожие ветки