Innerhalb eines Dienstes den Dienst selber beenden ?!

[DataCool]

Hi Leute,

ich habe einen Dienst der auf diversen Clients läuft.
Der Dienst ist von mir geschrieben und soll von Zeit zur Zeit auch upgedated werden.
Das führt mich zu dem Problem, das sich der Dienst bei einem bestimmten Kommando selbst beenden soll.
Damit meine Aktualisierung auch dann funktioniert, wenn der angemeldete Windows User nicht die Berechtigung hat den Dienst zu stoppen.

Hat jemand ne Idee ?

Danke und Gruß

Data

[m.wollert]

Hi,

wenn ich mich recht entsinne ist ein Dienst nichts anderes als eine ständige Schleife. Diese Schleife kannst Du mit Abbruchbedingungen simpel gezielt beenden.

Grüße!

[DataCool]

Hi,

dachte ich mir auch, allerdings habe ich kein Application.terminate oder ähnliches !

Gruß Data

[Phoenix]

Urgs. Das wär ja auch Fatal.

Du musst den Status des Dienstes auf Stopped setzen. Damit beendet sich die Schleife selber.

[DataCool]

Hi,

besten Dank Phoenix das wars was ich gesucht habe.

Gruß Data

[emsländer]

Zitat:

Zitat von Phoenix

Urgs. Das wär ja auch Fatal.

Du musst den Status des Dienstes auf Stopped setzen. Damit beendet sich die Schleife selber.

Mit welchen Parametern wird das gemacht? stopped ist nicht definiert, false geht auch nicht

if bedingung then xyzservice.status := ?

Gruss

EL

[Dezipaitor]

Nein, du musst aus der Execute Methode rauskommen. Damit ist der Dienst beendet.

[DataCool]

@Emsländer:

self.Status := csStopped;

csStopped ist in der Unit "SvcMgr" definiert(ist bei mir in DElphi6 so)

Gruß DAta

[emsländer]

Zitat:

Zitat von DataCool

@Emsländer:

self.Status := csStopped;

csStopped ist in der Unit "SvcMgr" definiert(ist bei mir in DElphi6 so)

Gruß DAta

Klappt!

Danke

Gruss

EL