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

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

TThread + OnException [D7, XP]

Страницы:   < 1 2 >

Darvin ©   (2008-10-17 10:36:00) 

Здравствуйте!
Есть приложение, состоящее из формы и дополнительного потока TThread. В приложении обрабатывается OnException:


procedure TForm1.ApplicationEventsException(Sender: TObject; E: Exception);
begin
 ShowMessage ( E.Message );
end;


Код потока:


procedure TChange.Execute;
begin
 repeat
   Synchronize(Send);
   Write(5);
 until Terminated;
end;

procedure TChange.Send;
begin
 Form1.Label1.Caption := IntToStr(StrToInt(Form1.Label1.Caption) + 1);
end;


Так вот Write(5) в потоке не вызывает обращение к OnException, а подвешивает поток. Как сделать так, стобы при исключениях в потоке срабатывало Application.OnException?

---

Darvin   (2008-10-17 10:44:00) [21]

залогировать сбой.

---

Сергей М.   (2008-10-17 10:40:00) [22]

> Write(5) в потоке не вызывает обращение к OnException


И не должно.


> подвешивает поток


Нет, не подвешивает. Происходит исключительная ситуация, и поток завершает работу.


> Как сделать так, стобы при исключениях в потоке срабатывало
> Application.OnException?


А смысл какой в этом ?

---

Страницы:   < 1 2 >

Наверх