Проверка соединения с бд interbase

[vbn1]

Для подключения к бд я использую компонент IBDatabase при открытие программы из inf файла добавляется ip сервера,путь к бд, логин и пароль для подключения к бд.Мне нужно реализовать так чтобы при не найденном пути выдавалась форма для указывания пути бд. Думал реализовать отслеживания ошибки но чего то не получается ругается на EIBDataBaseError

IBDatabase1.DatabaseName:=IniFile.ReadString('connection_settings','ip_server','Setup.ini')+':'+IniFile.ReadString('connection_settings','path','Setup.ini');
IBDatabase1.Params.Add(IniFile.ReadString('connection_settings','user_name','Setup.ini'));
IBDatabase1.Params.Add(IniFile.ReadString('connection_settings','password','Setup.ini'));

try
IBDatabase1.Connected:=true;
except
on E: EIBDataBaseError do
if E.ErrorCode = тут не знаю какой код then
begin
Form2.Show;
exit;
end

[Stilet]

ругается на EIBDataBaseError

А может быть нужен EIBClientError
?

[vbn1]

не всё равно ругается может надо в uses что то подключить

[Stilet]

А может надо хелп почитать?
Всмысле мануал по телепатору. Раздел "Как подключить свой телепатор по блюпупу, чтоб остальные поняли что я имею ввиду" не?

[vbn1]

Не понятна объяснил суть задачи что ли?

Ясно кароче самому как обычно нужно разбираться

[Stilet]

Не понятна объяснил суть задачи что ли?

Фраза "всё равно ругается" по твоему информативна?

Ясно кароче самому как обычно нужно разбираться

Угу. Удачи.

[vbn1]

Undeclared identifier: 'EIBDataBaseError'

тоже самое и с EIBClientError
так понятно теперь?

[Stilet]

Наконец то... Прям клещами информацию вытягивать пришлось.
Вот теперь открывай хелп своего Делфи и смотри в каком модуле эти классы. Они от версии к версии могли кочевать то туда то сюда.
А вообще универсальный способ:Exception

Вот как делаю я и не парюсь по поводу строгостей классов:

function Tfb.Connect(Host: String; path: String): boolean;
begin
  with d do begin
      DatabaseName:=host+Path; 
       UserName:='sysdba';
       Password:='masterkey';

      with Params do begin  Clear;
       Add('user_name=sysdba');add('password=masterkey');add('lc_ctype=WIN1251');
      end;

      try
       Open;
       Result:=true;
      except
         on E: Exception do begin
          FError:=E.Message;
          Result:=false;
         end;
      end;

  end;
end;

[vbn1]

хотел попробовать твой код вставить так он ругается
Undeclared identifier: FError
в справке искал не смог найти

[Stilet]

Это моя переменная. Я просто пример дал, не более. Его не копипастить нужно а анализировать.