Mein Dienst lässt sich nicht beenden

[Meflin]

Aloha!

Mein Dienst funktioniert soweit einwandfrei. Wenn man ihn allerdings über die Verwaltung > Dienste Anhalten oder Beenden will, schweitert das mit dieser Meldung:

Code:

---------------------------
Dienste
---------------------------
Der Dienst "Baphomet" 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   
---------------------------

Im OnExecute habe ich eine unendliche while Schleife, damit der Dienst nicht automatisch beendet wird, was er nicht soll. Kann das daran liegen, und wenn ja, wie kann ich dann den Dienst trotzdem über die Verwaltung beenden lassen? Sowas wie Appliacation.ProcessMessages gibts ja bei Diensten nicht...

[marabu]

Hallo Meflin,

damit der Service-Manager deinen Dienst in allen Feinheiten steuern kann, musst du auch die korrespondierenden Ereignisse OnStop etc. bedienen. Hier ein Auszug aus einem meiner Dienste:

Delphi-Quellcode:

procedure TObserver.ServiceStop(Sender: TService;
  var Stopped: Boolean);
begin
  Active := false;
  CloseServiceHandle(schService);
  CloseServiceHandle(schSCManager);
  Stopped := true;
  Log('Guardian stopped');
end;

Grüße vom marabu

[neolithos]

Du muss nur beim OnStop Ereignis deine unendliche Schleife beenden.

[Meflin]

Zitat von neolithos:

Du muss nur beim OnStop Ereignis deine unendliche Schleife beenden.

Das geht immernoch nciht, obwohl ich meine Variable auf false setze läuft die Schleife weiter, ergo vermute ich mal das OnStop wird garnicht ausgeführt

[sakura]

Du bist auf die Art und Weise der Implementation eines Services in Delphi hereingefallen.

Nutzt Du das OnExecute-Ereignis, sind die anderen nicht mehr nutzbar. Der Dienst beendet sich automatisch, wenn die OnExecute-Methode durch ist.

Möchtest Du den Dienst steuerbar haben, dann darfst Du OnExecute nicht nutzen. Du musst dann in OnStart einen Thread starten, welchen Du dann in OnPause, OnContinue und OnStop steuern kannst.

......

[Meflin]

Zitat von sakura:

Du bist auf die Art und Weise der Implementation eines Services in Delphi hereingefallen.

allerdings. Nungut, dann werde ich entweder umprogrammieren oder eben die Steuerung vernachlässigen...

[sakura]

Zitat von Meflin:

Nungut, dann werde ich entweder umprogrammieren oder eben die Steuerung vernachlässigen...

Nimm den ersten Ansatz. Auf vielen Systemen wird letzteres zu Fehlern im Log oder beim Runterfahren führen - auch nicht schön

......

[marabu]

Hallo sakura,

Zitat von sakura:

Möchtest Du den Dienst steuerbar haben, dann darfst Du OnExecute nicht nutzen. Du musst dann in OnStart einen Thread starten, welchen Du dann in OnPause, OnContinue und OnStop steuern kannst.

so zwingend, wie du das jetzt darstellst ist das aber nicht, sonst würde mein WatchDog Service nicht funktionieren. Es kommt wie immer darauf an, dass man die event handler auch richtig verwendet. Noch ein Ausschnitt aus meinem WatchDog Service:

Delphi-Quellcode:

procedure TObserver.ServiceExecute(Sender: TService);
begin
  Log('Guardian executing');
  while Active do 
  begin
    Sleep(1000);
    if Abs(Now - LastCheck) > Interval then 
    begin
      CheckTargetService(ServiceName);
      LastCheck := Now;
    end;
    ServiceThread.ProcessRequests(false);
  end;
end;

Freundliche Grüße vom marabu