Wie beende ich einen Service?

[Chewie]

Ich benutz zur Zeit einen Service, den ich über Datei->Neu->Serviceanwendung erstellt habe (also TServiceApplication mit TService). Doch jetzt passiert folgendes: Irgendeine Art von Fehler tritt auf und ich möchte den Service beenden. Doch ich hab keine Methode gefunden, um den Service zu terminieren, und den Destruktor direkt aufzurufen, erscheint mir aúch nicht ratsam. Welches ist die "beste" Methode, den Service zu beenden?

[sakura]

Chewie, Chewie,

jetzt bist Du schon solange dabei, aber die Suche Service kennst Du nicht :shock:

Eines der ersten Ergebnisse zum Thema:
http://www.delphipraxis.net/internal...?p=59673#59673 ;-)

...:cat:...

[Chewie]

Vielleicht hab ich nicht deutlich genug erwähnt, dass ich nicht den Service von einem Client beenden will, sondern der Service soll sich selbst beenden.
Falls doch: Gibt es keine andere Möglichkeit als über ControlService zu gehen?

Das mit der Suche hab ich in diesem Fall vergessen :duck: , es hätte mir aber auch wenig neues gebracht.

[sakura]

Okay, es ist in einer Zeile lösbar. Willst Du wissen wie? Na gut...

Delphi-Quellcode:

  Status := csStopped;

...:cat:...

[Chewie]

*Autsch* Die Seite mit der Beschreibung von Status hatte ich doch schon vorhin auf dem Bildschirm. :oops: Vielen Dank, Sakura

[sakura]

Bitte. Ich wusste aber bis eben auch nicht, daß das geht. Ich habe es einfach ausprobiert. :idea: :mrgreen: :idea:

...:cat:...