безостановочное обслуживание для любого исключения

Question

как я могу убедиться, что служба никогда не будет прекращена по какой-либо причине
за исключением случаев, когда она остановлена ​​пользователем.
Я пробовал это, но не получилось.

OnExecute:

Count := 0; 
while not Terminated do 
begin 
    Inc(Count); 
    While Count >= SecBetweenRuns do 
    Begin 
    Try 
     Count := 0; 
     ... 
    Except 
     on E: exception do 
     Begin 
     JFCLogFile1.LogText := E.Message; 
     Break; 
     End; 
    End; 
    End; 
    Sleep(1000); 
    ServiceThread.ProcessRequests(False); 
end; 

Если какое-либо исключение происходит служба перестает работать, и нужно запустить его снова вручную.
Я хочу разбить цикл и начать все сначала, когда исключение происходит без какого-либо вмешательства пользователя.

Answer 1

Единственный способ, который может произойти, заключается в том, что возникает исключение, которое не было обнаружено, и разрешено покидать обработчик OnExecute. Таким образом, вы, очевидно, не поймаете все, что считаете себя.

Лично я предлагаю не использовать событие OnExecute вообще. Переместите вашу логику в отдельный рабочий поток, который запускается в событии OnStart и завершен в событии OnStop. По крайней мере, так, если поток выйдет из строя, он не остановит службу. Вы можете переопределить метод TThread.DoTerminate(), чтобы проверить свойство TThread.FatalException, чтобы узнать, не уничтожил ли это нечеткое исключение поток.