Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Можно ли перехватить сообщение об ошибке


Sirus ©   (2002-11-29 12:42:00) 

Привет Мастера...
Есть вопрос: Можно ли перехватить сообщение об ошибке типа "General SQL Error"и вывести свое сообщение???


Victor_Cr   (2002-11-29 14:46:00) [1]

Да и еще нашел на http://www.atrussk.ru/delphi/5/bd/bd5204.htm
такую штуку:

Процедура DBIError( ErrorCode: DBIResult );
--------------------------------------------------------------------------------
Модуль: DBTables

Описание
Процедура вызывает исключение EDBEngineError для кода ошибки BDE (Borland Database Engine), переданного в параметре ErrorCode
-------------------------------------------------------------------------------
Пишешь цикл с защищенным блоком, и генеришь в нем ошибки. А в файл в это же время записываешь код и текст ошибки. Главное запускать сам ехе-шник, а то... ]:=)> ногу сломит. Идею дарю в вечное пользование. :-)


Victor_Cr   (2002-11-29 14:13:00) [2]

Мануал, мануал и еще раз мануал.
Поищи книгу Стив Тейксейра и Ксавье Пачеко "Delphi 5. Руководство разработчика" в двух томах.


Alexandr   (2002-11-29 14:12:00) [3]

это ошибки IB.
И искать их надо в документации к IB.


BorisUK   (2002-11-29 14:05:00) [4]

Запускаю делфи хелп
Пишу EDBEngineError
или ErrorCode
Что то находит, но нигде не видно такого чтоб
Код - расшифровка
Что не так делаю?
Вот и хотел уточнить где искать...?


Alexandr   (2002-11-29 14:00:00) [5]

что сказать?
Ну в документации они.
Мне что их тут все привести? Так их же....


BorisUK   (2002-11-29 13:33:00) [6]

Да ... А вот где взять все эти коды?
Расшифровки я имею в виду!
Понимаю, что в документации, но если не трудно сказать буду благодарен!


Victor_Cr   (2002-11-29 12:58:00) [7]


try
...
except
on E: EDBEngineError do
begin
for i := 1 to E.ErrorCount do
if E.Errors[i-1].ErrorCode = 13059 then
//Долгожданная ошибка General SQL Error
end;
end;

Может где-то ошибся, но код ошибки точный :-).


Наверх

Титульная страница Поиск, карта сайта Написать письмо