![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Обработка исключительных ситуаций [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 подойдёт?