Показать сообщение отдельно
  #7  
Старый 12.09.2011, 16:58
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Цитата:
Сообщение от 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 не сразу был готов (только через пару минут).
Ответить с цитированием