dienst für Windows

[coderi]

Hallo zusammen,

ich weiß nicht genau ob das hier der richtige Bereich ist, ich schreibe es halt mal hierher.

Ich hab einen Windows Dienst welcher mit :

Delphi-Quellcode:

procedure TSvcClxPDFDistributor.ServiceExecute(Sender: TService);
begin
  tmStarter.Enabled := True;
  dmMain.WriteLog('Dienst gestartet!');
  while not Terminated do
  ServiceThread.ProcessRequests(True);// wait for termination
  tmStarter.Enabled := False;
end;

gestartet wird. Im timer wird periodisch eine Prozedure aufgerufen, welche eine Datenbank connected und hier
in verschiedenen Schleifen datasets durchgeht und Reporte erstellt.

Wenn der Dienst nun über die SCM gestoppt wird kommt :

---------------------------
Dienste
---------------------------
Der Dienst "XYZ" auf "Lokaler Computer" konnte nicht beendet werden.
Der Dienst hat keinen Fehler zurückgegeben. Es kann sich um einen internen Windows-Fehler oder einen internen Dienstfehler handeln.
Setzen Sie sich mit Ihrem Systemadministrator in Verbindung, falls das Problem weiterhin besteht.
---------------------------
OK
---------------------------

er läuft der SCM weiter und ich sehe im Log (welches der Dienst schreibt) das er noch etwas tut. Dann nochmal auf Stop :

---------------------------
Dienste
---------------------------
Der Dienst "XYZ" auf "Lokaler Computer" konnte nicht beendet werden.

Fehler 1061: Der Dienst kann zurzeit keine Steuerungsmeldungen annehmen.


---------------------------
OK
---------------------------

Und jetzt bekomme ich im Log die Zugriffsverletzung angezeigt und der Dienst wird "unsauber" beendet.

Es sieht also so aus, als wenn der Dienst sich bereits halber beendet hat, aber die Schleife hat davon
noch nichts mitbekommen und versucht weiter zu arbeiten, irgendwann fehlt ihr die Grundlage und
es kommt zur Zugriffsverletzung.

Jetzt die Frage:
Wie schreibe ich denn einen Dienst welcher mitbekommt, das er sich in einer schleife befindet und diese
erst verlassen muss, bevor er sich beendet ?

viele grüße
coderi

[Bummi]

http://www.tolderlund.eu/delphi/service/service.htm

Was hast Du denn mit Deinem Dienst vor?
Ich verwende üblicherweise kein ServiceThread.ProcessRequests, OnExcute ist bei mir leer, sondern habe entweder einen WorkerThread oder Komponenten wie NamedPipes/TCPIP etc. am laufen.
Die Dienste tun was sie sollen und lassen sich Starten/Pausieren/Beenden ...

[Jumpy]

Du könntest im Service auf die Events Server angehalten und fortgesetzt dementsprechend reagieren, dass du z.B. den Timer dis-/enablest usw.

[Bummi]

Ich habe mal ein MicroDemo angehängt, Connection und Datenbankabfrage werden für Dich nicht passen ...

Code:

2012-09-11 17:06:55.862: Started
2012-09-11 17:06:57.149: DB max ID = 2924
.....
2012-09-11 17:08:06.838: DB max ID = 2925
2012-09-11 17:08:07.853: DB max ID = 2925
2012-09-11 17:08:08.854: Stopped

[coderi]

danke bummi, ich melde mich wenn ich irgendwie weiter bin.