И снова Service
Fiend © (2002-07-10 14:52:00)
Сначала сервисвыполнялся с таким кодом:
procedure TCRService.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
sleep(100);
CRService.ServiceThread.ProcessRequests(false);
end;
StopServer;
end;
И почемуто когда я его останавливал нерегелярно, но где то
после третьего цикла запуска остановки, при стопе сервиса
вываливалась ошибка типа "Память не может быть read".
долго долбался, проверил все дестректоры, ну короче всё
перелопатил, в своём коде уничтожения ничего каверзного не нашёл.
Потом сделал вот так:
procedure TCRService.ServiceExecute(Sender: TService);
begin
CRService.ServiceThread.ProcessRequests(true);
StopServer;
end;
И почему то ошибка пропала. Я в недоумении. Подскажите в чём
проблема, или хотя бы где порыть, что проверить. Очень не хочется
чтобы моя служба в дальнейшем сделала что то нехорошее в
системе.
Skier (2002-07-10 15:26:00) [1]
>Fiend
А sleep(100) не пытался убирать ?
Наверх 
ЧАТ |
Орешник |
|
