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

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

Перехват ошибок

r13 ©   (2005-05-25 11:00:00) 

В программе происходит ошибка, а я хочу записать в файл, что это была за ошибка, например, 25.05.2005 13:40:31 Unknown picture file extension (.jpg).
я это делаю так
...
try
<код, вызвавший ошибку>
except
reportproc;
end;

procedure reportproc;
begin
<Запись ошибки в файл>
end;

Но вот, к сожалению не знаю, как узнать, какая ошибка с помощью Exception. Помогите, что делать!

---

Ega23   (2005-05-25 11:22:00) [1]

Application.OnException заменить

---

-=XP=-   (2005-05-25 11:07:00) [2]

Дополнение к [2]

procedure SaveExceptionInfo(const E: Exception);
begin
 try
   // Использование информации из E
 except
 end;
end;

А то можно вообще вылететь с треском.

---

-=XP=-   (2005-05-25 11:06:00) [3]

procedure SaveExceptionInfo(const E: Exception);
begin
 // Использование информации из E
end;

...

try
 // Глюкокод
except
 on E: Exception do SaveExceptionInfo(E);
 raise;
end;

---

Гаврила   (2005-05-25 11:02:00) [4]

try
...
except
 on E: Exception do
   Запись в файл (e.Message, E.ClassName)
end

---

Наверх