Скачать: CL | DM;

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

← →
Ш-К   (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.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c