Savestan service

[hwfanatic]

Ovako glasi procedura za OnExecute event jednog TService objekta:

[code:1]
procedure TService1.ServiceExecute(Sender: TService);
begin
while not Terminated
do ...
end;
[/code:1]

Problem je u tome sto se (kompajliran, instaliran i pokrenut) service ne da zaustaviti! Service menager tvrdi da nema greske, ali da ne moze da zaustavi taj service. Jedino sto pomaze jeste /uninstall, pa onda restart. :cuss:

AllowStop je tacan, a ova sintaksa je iz help fajla... Pokusao sam da petljam i sa OnStop eventom na sledeci naci:

[code:1]
procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
DoStop;
Stopped:=true;
end;
[/code:1]

...ali ni to nije pomoglo.

 

[hwfanatic]

Ok, resenje je sledece... U proceduru za OnExecute treba dodati
[code:1]
while not Terminated
do ServiceThread.ProcessRequests(true);
[/code:1]

Uspeo sam da resim problem, pa reko da podelim...