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

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

Обработка исключительных ситуаций [D7, WinXP]


Ozone ©   (2005-03-15 13:17:00) 

Добрый день!

Поиск по моему вопросу ничего не дал, поэтому решил запостить сюда (если ошибаюсь, ткните носом).

Есть задача: вести лог-файл ошибок возникших во время выполнения программы. Причем, лог должен соодержать как имя класса, так и имя метода где это исключение было сгенерировано.

Написание простого класса с классовым методом для перекрытия Application.OnException не дало нужных мне результатов.

Пока делаю так - on E: Exception do raise Exception.Create(E.Message + Method_Name), но кажется, что это не есть правильно и существует более рациональное решение.

Вот код класса:

Error = class
   class procedure ErrorCatch(Sender: TObject; E: Exception);
end;

class procedure Error.ErrorCatch(Sender: TObject; E: Exception);
var
  F: TextFile;
begin
    beep;
    AssignFile(F,'C:\test.log');
    {$I-} Append(F); {$I+}
    if IOResult <> 0 then ReWrite(F);
    Writeln(F,Exc.Message + Sender.ClassName);
    CloseFile(F);
end;


Erik1   (2005-03-17 12:22:00) [1]

А пример посмотреть, религия непозволяет? jcl\examples\vcl\debug\framestrack\FramesTrackExample.dpr


Ozone   (2005-03-16 14:39:00) [2]

>  [7] TUser ©   (16.03.05 12:28)
Да, спасибо. JclLastExceptStackListToStringsкак раз от туда.


TUser   (2005-03-16 12:28:00) [3]

JclDebug.pas


Ozone   (2005-03-16 10:43:00) [4]

Чё т прет меня сегодня... там же хелп есть :)


Ozone   (2005-03-16 10:29:00) [5]

Поставил JCL и нашел функцию:

JclLastExceptStackListToStrings

Все работает. Спасибо.

Возник вопрос - есть ли более-менее полное описание этой библиотеки (хотя бы что касается Debug)?


Ozone   (2005-03-16 06:36:00) [6]

> [1] VMcL ©   (15.03.05 14:46)

Нет, я думаю.


Ozone   (2005-03-16 05:54:00) [7]

> [2] Erik1 ©   (15.03.05 15:53)

А как модуль называется не помшишь? Может есть документация по этому поводу?


Erik1   (2005-03-15 15:53:00) [8]

Придется подключать дополнительную библиотеку JCL называется. Там есть модуль для получения нетолько номера строки на которой произошло исключение, но и стек вызово в тексторовм виде и строка на которой произошло исключение. Только надо после инсталяции библиотеки в мену projects поставить галочку на "Insert JCL debug data".


VMcL   (2005-03-15 14:46:00) [9]

>> Ozone ©   (15.03.05 13:17)

Assert подойдёт?


Наверх

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