VPF::Zeos обработка ошибок - Форум программистов

zverzver

Дата 14.8.2009, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.12.2008

Репутация: нет
Всего: нет

Вобщем суть проблемы такая необходимо обработать исключение при коннекте к БД (валидность логин/пароль и правильность указания настроек подключения путь к бд и имя сервера(вариант для firebird).
Работа происходит с ZEOSDBO-6.6.5. БД firebird.
В самой компаненте есть обработка ошибок давольно не плохая на мой взгляд но вот причесать ее под данный механизм не получилось.

Вот как у меня сейчас:

Код


User:=UserComboBox.Items.Strings[UserComboBox.ItemIndex];
Pass:=PassEdit.Text;
Url:=Format('zdbc:%s://%s:%d/%s?UID=%s;PWD=%s', ['interbase-6', ServerName,3050, Path, User, Pass]);
  Connection:=DriverManager.GetConnectionWithParams(Url, nil);
  Connection.SetAutoCommit(True);
  Connection.SetTransactionIsolation(tiReadCommitted);

  try
  Connection.Open;
  except
  MessageBox(0, 'Ошибка подключения к БД. Проверьте параметры подключения.', nil, MB_ICONHAND);
  exit;
  end;

  if ((Assigned(Connection)) and (not Connection.IsClosed)) then
    begin
    AuthForm.Hide;
    Connection.Close;
    MainForm.ShowModal;
    end

Но хотелось бы сделать обработку средствами команенты.

Romikgy

Дата 15.8.2009, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

у зеоса есть (как я понял ) глобальный класс

Код


{** The common driver manager object. }
  DriverManager: IZDriverManager;

у него есть два метода

Код


 procedure AddLoggingListener(Listener: IZLoggingListener);
    procedure RemoveLoggingListener(Listener: IZLoggingListener);

при добавлении слушающего все внутрение мессаги будут ему , слушай выбирай что нужно и реагируй
Удачи

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »