Fórum Verificar conexão Com firebird #288310

Ini := TIniFile.create(´.\conexao.ini´);
  with Ini do
  try


    sqlconnection1.Params.Values[´DriverName´] := ReadString(´CONEXA1´,´DriverName´,´´);
    sqlconnection1.Params.Values[´BlobSize´] := ReadString(´CONEXA1´,´BlobSize´,´´);
    sqlconnection1.Params.Values[´CommitRetain´] := ReadString(´CONEXA1´,´CommitRetain´,´´);
    sqlconnection1.Params.Values[´Database´] :=ReadString(´CONEXA1´,´Database´,´´);
    sqlconnection1.Params.Values[´ErrorResourceFile´] :=ReadString(´CONEXA1´,´ErrorResourceFile´,´´);
    sqlconnection1.Params.Values[´LocaleCode´] :=ReadString(´CONEXA1´,´LocaleCode´,´´);
    sqlconnection1.Params.Values[´Password´] :=ReadString(´CONEXA1´,´Password´,´´);
    sqlconnection1.Params.Values[´RoleName´] :=ReadString(´CONEXA1´,´RoleName´,´´);
    sqlconnection1.Params.Values[´ServerCharSet´] :=ReadString(´CONEXA1´,´ServerCharSet´,´´);
    sqlconnection1.Params.Values[´SQLDialect´] :=ReadString(´CONEXA1´,´SQLDialect´,´´);
    sqlconnection1.Params.Values[´Interbase TransIsolation´] :=ReadString(´CONEXA1´,´Interbase TransIsolation´,´´);
    sqlconnection1.Params.Values[´User_Name´] :=ReadString(´CONEXA1´,´User_Name´,´´);
    sqlconnection1.Params.Values[´WaitOnLocks´] :=ReadString(´CONEXA1´,´WaitOnLocks´,´´);

  finally
    Ini.free;
  end;

  try
    sqlconnection1.Connected:=true;
  except
    showmessage(´Não Foi Possivel Conectar !´);
    application.Terminate;
  end;