Исключительные ситуации

← →
Мак (2003-08-12 15:31) [0]

Уважаемые мастера! Подскажите каким образом можно осуществлять протоколирование исключительных ситуаций. Если можно, то с примерчиком

← →
Плохиш_ (2003-08-12 15:34) [1]

Например, писать в файл.

← →
Мак (2003-08-12 15:35) [2]

Ну.. да, а есть ли какой-нибудь для этого компонент?

← →
Юрий Федоров © (2003-08-12 15:44) [3]

Application.OnException - и пиши в файл

← →
Reindeer Moss Eater © (2003-08-12 16:39) [4]

Ну.. да, а есть ли какой-нибудь для этого компонент?
Скоро два целых без компонента сложить не смогут.

← →
jack128 © (2003-08-12 17:31) [5]

А вот мне интересно, можно ли протоколировать обработанные исключ ситуации(те, которые в try except end; заключены)?

← →
Плохиш_ (2003-08-12 17:45) [6]

>>jack128 © (12.08.03 17:31) [5]

а смайлик или ты это на полном суръёзе?

← →
Е-Моё имя © (2003-08-12 18:02) [7]

в инди есть компонент нужный ;)

← →
jack128 © (2003-08-12 18:08) [8]

> а смайлик или ты это на полном суръёзе?

Ты хорошо себе прдставляешь, что такое исключение?
Я - нет, потому и спрашиваю...

← →
Плохиш_ (2003-08-12 18:16) [9]

>>jack128 © (12.08.03 18:08) [8]

Ok, тогда кто мешает добавить в except ... end ещё и запись в файл?

← →
Е-Моё имя © (2003-08-12 18:17) [10]

2 jack128
только в блоке обработки и можно

← →
jack128 © (2003-08-12 18:25) [11]

> Плохиш_ (12.08.03 18:16) [9]

> Е-Моё имя © (12.08.03 18:17) [10]

Ну до этого я додумался, слава богу ;-)

Но это нужно в КАЖДЫЙ блок except end ставлять код...
Наверно нужно(если можно) перехватить вызов RaiseException().. Ну да ладно, это не к спеху..

← →
Толик © (2003-08-12 18:29) [12]

А как насчёт того, чтобы протокол вёл сам объект исключения? Создать некий EProtcolException и rais"ить его в нужный момент. А в конструкторе этого объекта организовать например запись в файл или что-нибудь ещё. И не надо будет каждый try except отлавливать.

>>Толик © (12.08.03 18:29) [12]
Тогда только свои исключения будут протоколироваться, а системные пролетят мимо протокола.

Я вот думаю, если ExceptProc подменить, получится что-нибудь дельное? Никто так не делал?

на этом сайте есть статейка по подмемну ExceptProc...
вот только не помню как зовется...

не подменяют... но все равно по теме...
http://www.delphimaster.ru/articles/errors/index.html

>>Palladin © (12.08.03 19:20) [15]
Спасибо за ссылку

Все таки я думаю, что перехватить все исключения(например для протоколирования), в том числе те, которые пойманы в try - except как-то можно, ведь делает же это отладчик delphi

Попробуйте
type TObjProc=procedure(self:TObject); var old:pointer; procedure Our(self:TObject); begin writeln("Exception ",self.classname); TObjProc(old)(self); end; procedure ReplaceAfterConstruction(Cls:TClass; proc:pointer); var q:cardinal; begin VirtualProtect(pointer(integer(Cls)+vmtAfterConstruction),4,PAGE_READW RITE,q); old:=ppointer(integer(Cls)+vmtAfterConstruction)^; ppointer(integer(Cls)+vmtAfterConstruction)^:=proc; VirtualProtect(pointer(integer(Cls)+vmtAfterConstruction),4,q,q); end; begin try ReplaceAfterConstruction(Exception,@our); ReplaceAfterConstruction(EAccessViolation,@our); pinteger(nil)^:=2; except readln; end; end.

Исключительные ситуации Найти похожие ветки