Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Mein Dienst lässt sich nicht beenden

    Delphi
    by marabu, 12. Nov 2005
  Hallo sakura,
  
  
  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:
  
  
  procedure TObserver.ServiceExecute(Sender: TService);
  begin
  Log('Guardian executing');
  while Active do
• Forum: Sonstige Fragen zu Delphi

  Re: Mein Dienst lässt sich nicht beenden

    Delphi
    by marabu, 12. Nov 2005
  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:
  
  
  procedure TObserver.ServiceStop(Sender: TService;
  var Stopped: Boolean);
  begin
  Active := false;
  CloseServiceHandle(schService);