TService и его перезапуск SCM
От: maximilliangreat  
Дата: 23.09.09 10:13
Оценка:
Вообщем ситуациия такая:
1)есть небольшой проект на delphi, отсновой его явяляется компонент TService
2)основной цикл программы находится в TService.ServiceExecute, в цикле один раз на итерацию вставлена ServiceThread.ProcessRequests(False)
3)переодически в программе возникают анхандлед эксепшеоны (где-то внутри компонентов, я с ними ещё до конца не разобрался , программа в стадии альфа, обработку таких ситуаций планируется прикрутить позже) и SCM их успешно фиксирует в логе.

Теперь проблемма:
В свойствах сервиса стоит "перезапускать при падении", но этого не происходит
Если прибить сервис из диспетчера задач, то SCM его успешно перезапускает.

Сообственно хочется узнать, что надо сделать чтобы сервис перезапускался.
tservice
Re: TService и его перезапуск SCM
От: Danchik Украина  
Дата: 23.09.09 11:33
Оценка:
Здравствуйте, maximilliangreat, Вы писали:

[Skip]

M>Сообственно хочется узнать, что надо сделать чтобы сервис перезапускался.


Падением считается когда процес сервиса умер. Так ли это в вашем случае?
VCL имеет особенность ловить исключения и не давать им выпрыгнуть вверх.
Re[2]: TService и его перезапуск SCM
От: maximilliangreat  
Дата: 23.09.09 20:19
Оценка:
D>Падением считается когда процес сервиса умер. Так ли это в вашем случае?

Честно говоря не знаю. Из эвентов TService при эксепшене вызывается onDestroy. Пробовал в него добавить терминайт процесс — дело это не меняет.

D>VCL имеет особенность ловить исключения и не давать им выпрыгнуть вверх.


До SCM исключения доходят точно(в виндовслог текст пишется, например "Service failed on execute: Socket Error # 11001
Host not found..").
Re[3]: TService и его перезапуск SCM
От: Utruk  
Дата: 26.09.09 15:28
Оценка:
> D>Падением считается когда процес сервиса умер. Так ли это в вашем случае?
>
> Честно говоря не знаю. Из эвентов TService при эксепшене вызывается
> onDestroy. Пробовал в него добавить терминайт процесс — дело это не
> меняет.
>
> D>VCL имеет особенность ловить исключения и не давать им выпрыгнуть вверх.

"maximilliangreat" <74607@users.rsdn.ru> сообщил(а) в новостях
следующее:3546515@news.rsdn.ru...
> До SCM исключения доходят точно(в виндовслог текст пишется, например
> "Service failed on execute: Socket Error # 11001
> Host not found..").

AFAIK, это VCL, словив экцепшн, пишет в EventLog сама.
Posted via RSDN NNTP Server 2.1 beta
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.