![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перехват ошибок в сервисе [D5, WinXP]
AndyDN © (2002-10-21 11:10:00)Добрый день.
Как перехватить в TServiceApplication факт возникновения exceptiona в проге (наподобие события OnException у TApplication).
Зарание благодарен.
Игорь Шевченко (2002-10-21 12:56:00) [1]AndyDN (21.10.02 12:18)
Exceptions в потоках из основного тела вообще не должны перехватываются.
Учите матчасть, любезный.
Все Exceptionы в потоках должны перехватываться внутри этих потоков, например,
procedure TMyThread.Execute
begin
try
...
except
on E : Exception do
MyThreadErrorMessage := E.Message;
end;
end;
AndyDN (2002-10-21 12:18:00) [2]Так тоже не пойдет. У меня в ServiceExecute сервиса создается несколько потоков, в которых и могут возникать exception-ы,
так что этот метод не подойдет:(
Игорь Шевченко (2002-10-21 12:06:00) [3]try
Основное тело программы
except
on E : Exception do
MyCoolExceptionHandler(E);
end;
AndyDN (2002-10-21 11:38:00) [4]Нет, мне бы глобально перехватывать любой exception гдебы в коде он не возник.
Игорь Шевченко (2002-10-21 11:15:00) [5]try
...
except
on E : Exception
MyCoolExceptionHandler (E);
end;