[ZAlex]

Есть проблема: работаю с удаленной базой данных, связь не стабильна, пробую проверить наличие соединения при помощи конструкции типа:
try
ADOConnection.Connected := True;
except
on E : Exception do
ShowMessage(E.ClassName+' '+E.Message);
но except не срабатывает, выскакивает системная ошибка. Подскажите почему. Или кто-нибудь знает другой способ проверки связи?

[lmikle]

Сообщение от ZAlex

Есть проблема: работаю с удаленной базой данных, связь не стабильна, пробую проверить наличие соединения при помощи конструкции типа:

"А мужики-то и не знают" (с) реклама.
Тут ровно таже ситуация. Вообще, компонент не знает о том, что связь сломалась. Надо попробоавть выполнить любой запрос, который гарантированно пройдет в обычном случае и не будет при этом возврашять пол бызя, например

Код:

select count(1) from [любая_существующая_таблица] where 1=2

[NumLock]

ZAlex, а если exe запустить отдельно, не из под Delphi?

[ZAlex]

NumLok, естесственно проверяется отдельный ехе

[AlexSku]

Сообщение от ZAlex

Есть проблема: работаю с удаленной базой данных, связь не стабильна, пробую проверить наличие соединения при помощи конструкции типа:
try
ADOConnection.Connected := True;
except
on E : Exception do
ShowMessage(E.ClassName+' '+E.Message);
но except не срабатывает, выскакивает системная ошибка. Подскажите почему. Или кто-нибудь знает другой способ проверки связи?

Я работал не с ADO, но, возможно, ситуация аналогичная.
Во-первых, вопрос: в каком месте выскакивает системная ошибка?

Теперь опишу свой случай. После Connected:=true не факт, что, если связь не получилась, будет исключение (и какая-нибудь ошибка). Ошибка будет позже при проведении, например, запроса к базе, с которой нет связи.
Поэтому
1) exception бесполезен
2) после попытки связи (или перед любой операцией) делайте проверку: if Connected ...
Кстати, в Help'е так и сказано:

Код:

with ADOConnection1 do begin
  Open;
  if Connected then
    { connection successful }
  else
    { connection unsuccessful };

[ZAlex]

AlexSku

Если не трудно, о каком Help вы говорите? Я бы с удовольствием посмотрел. А в вашем коде все равно при попытке выполнить if Connected при отсутствии связи будет возникать системная ошибка, которую я и пытаюсь перехватить.

[AlexSku]

Сообщение от ZAlex

AlexSku

Если не трудно, о каком Help вы говорите? Я бы с удовольствием посмотрел. А в вашем коде все равно при попытке выполнить if Connected при отсутствии связи будет возникать системная ошибка, которую я и пытаюсь перехватить.

1) Кидаю на форму компонент:
ADOConnection1: TADOConnection;
Мышкой встаю на последнее слово и жму F1, открывается Help. Открываю окно Properties, в нём щёлкаю на Connected и - вуаля, пример, который я скопировал.

2) Вот как я делал:

Код:

  try
    IBDatabase1.Connected:= true;
  except
  end;

  if IBDatabase1.Connected then
  begin

Это я делал в событии OnTimer. Т.к. программа запускалась в автостарте, а InterBase не сразу был готов (только через пару минут).

[ZAlex]

Спасибо, коллеги, проблему кажется решил. Может по идее Connected и достаточно, но исключение перехватывается, толко если делаешь какой-нибудь простой select. Я поставил в try строку ADOQuery.Open и она вышла на обычный EOleException. Еще раз спасибо.