Всем привет!


Я использую: Delphi7, MySQL 5.0.6, ZeosDBO-6.6.3. Компонент для соединения ZConnection библиотеки ZeosDBO.
Никак не получается с try / except... Как только не пробывал делать!!!

form1.Zconnection1.connect;
try
showmessage('server connect');
except
form1.Zconnection1.disconnect;
showmessage('server error connect');
end;

Все равно вылазиет системная ошибка типа: project raised exception class ezsqlexception with message 'can't connect mysql server on 192.168.1.202 (10065). process stoped.'
С try / finally таже самая фигня. Если этот код использовать для открытия обычного файла на диске, то все прекрасно работает. Правда для этого надо будет еще директивы использовать {$I- или +}. А с коннектом никак не хочет.
Может там код ошибки можно как нибудь вручную сбросить, типа error:=0 если программно никак нельзя перехватить системное сообщение?

Да я вкурсе что нет маршрута к хосту... я сам шнурок втыкаю! =)))
Как перехватить ошибку эту? кто нибудь пользовался ZEOSDBO вообще?

не работает, то что он ответил. Поэтому и спрашиваю!
Ерунду в таком случае просьба не предлагать, все глупые варианты уже давно были проверены.

to Lavrenty идея интересная, сразуже проверил.
Физическое соединение оставил не тронутым(кабель), т.е. коннект всегда есть. Теперь вручную остановил службу MySQL сервера.
при попытке соединиться с сервером программа все равно выдает ошибку соединения. Точно такую же, только код изменился с 10065 на 10061. А так все равно не получается перехватить. ХЕЛП!!! :(

Простите, но даже если запускать приложение не из Делфи, а из самой Винды екзешник, то все
равно выдает ошибку типа Showmessage с выше упомянутым содержимым. Т.е. как говорил товарищ
"х77" недолжно быть... но призапуске не из среды эксепшн все равно есть, причем с
шовмессажем.

Про отключенный флажок "Stop on Delphi exceptions" ничего сказать не могу, т.к. вообще не
могу найти где он находится... В опциях проекта не увидел и в категории меню ТУЛС тоже не
нашел. Подскажите мне глупому где его найти... =) У меня седьмая делфа.

Может у кого рабочий исходник есть с использованнием ZEOSDBO, а то я уже несколько дней
бьюсь в пустую казалось бы над глупыми ошибками. Стабильность в работе приложения
просто нужна, вот и долбаюсь над разными проверками ситуаций.

то "ДжекНепотрошитель" ... Связку try\exception не использую, т.к. вы правильно сказали про
второе исключение. Использую try\finally.

Спасибо всем за бурные обсуждения в топике, уповаю на вашу помощь! ;)

blackapple, спасибо попробую!

to BLACKAPPLE... Не смешно!!! :( Код точно такойже как и твой. За тем исключением, что
настройки сервера уже установлены в свойствах компонента Zconnection.
Код такой:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
ZConnection1.Connect;
ShowMessage('Соединение установлено!');
except
showMessage('Ошибка!');
end;
end;

В результате выполнения вылазиет злосчастная ошибка эксепшн, а из своих сообщений из кода
ничего не появляется. Она сразу все стопорит. Если не секрет, ты сам пробовал этот код в
случаях: 1-когда нет физического соединения (выдернули шнур сетки); 2- остановлена вручную
служба MySQL сервера (типа сервер сбоит, но при этом соединение аппаратное все равно есть)?
Просто интересно...

Я уже даже переустановил компоненты ZEOSDBO до версии 6.6.5. Вдруг там жуки есть, мало ли
что. И все равно таже фигня. К сожалению версии MySQL 5.1. и Delphi2007 у меня нет.

Anatoly PodgoretskyКроме исключение, что еще на экран выскакивает?


вылазиет системная ошибка типа: project raised exception class ezsqlexception with message 'can't connect mysql server on 192.168.1.202 (10065). process stoped.'. Ошибка в виде окна типа - DialogMessage. Программа делает аварийное завершение работы с нажатием CTRL+F2 для возврата в нормальный режим.

На форме расположен только один компонент ZEOSDBO ZConnection. Нужно убрать всплывающую ошибку данного типа, если сеть повреждена или сервер MySQL остановлен.
При рабочем сервере и сетке все прекрасно работает!!! Но задача отловить ошибку в случае разрыва соединения или сбоя на сервере. Тупо один try\except или try\finally не помогает.