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

← →
AndyDN (2002-10-21 11:10) [0]

Добрый день.
Как перехватить в TServiceApplication факт возникновения exceptiona в проге (наподобие события OnException у TApplication).
Зарание благодарен.

← →
Игорь Шевченко (2002-10-21 11:15) [1]

try
...
except
on E : Exception
MyCoolExceptionHandler (E);
end;

← →
AndyDN (2002-10-21 11:38) [2]

Нет, мне бы глобально перехватывать любой exception гдебы в коде он не возник.

← →
Игорь Шевченко (2002-10-21 12:06) [3]

try
Основное тело программы
except
on E : Exception do
MyCoolExceptionHandler(E);
end;

← →
AndyDN (2002-10-21 12:18) [4]

Так тоже не пойдет. У меня в ServiceExecute сервиса создается несколько потоков, в которых и могут возникать exception-ы,
так что этот метод не подойдет:(

← →
Игорь Шевченко (2002-10-21 12:56) [5]

AndyDN (21.10.02 12:18)

Exceptions в потоках из основного тела вообще не должны перехватываются.
Учите матчасть, любезный.

Все Exceptionы в потоках должны перехватываться внутри этих потоков, например,
procedure TMyThread.Execute
begin
try
...
except
on E : Exception do
MyThreadErrorMessage := E.Message;
end;
end;

Перехват ошибок в сервисе Найти похожие ветки