AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Windows Dienst starten und beenden, interval
Thema durchsuchen
Ansicht
Themen-Optionen

Windows Dienst starten und beenden, interval

Ein Thema von TUX_der_Pinguin · begonnen am 6. Nov 2007 · letzter Beitrag vom 8. Nov 2007
 
TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
609 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Windows Dienst starten und beenden, interval

  Alt 7. Nov 2007, 07:41
Verwende ich wie in dem Beitrag auf den GuenterS verwiesen hat eine der Prozeduren
OnStart bzw. OnStop dann erhalte ich eine Fehlermeldung beim Starten, siehe Anlage
laufen tut der Dienst zwar aber nur einmal danach ist er nicht mehr gestartet ...

Marabu hat zwar auch in dem Beitrag geschrieben das es gehen müßte ...
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;
Jedoch weiß ich nicht wo und wie man dann Active wieder auf False setzt, im OnStop
Ereignis bekommt man ja wieder den gleichen Fehler.

Gibt es den nirgendwo ein Beispiel Gerüst wo man eigentlich nur noch seine Prozeduren
einfügen muß, dann könnte ich mal sehen wie es funktioniert.

Ich hab noch folgendes gefunden was ich mir mal ansehen werde Link
Angehängte Grafiken
Dateityp: jpg start_error_127.jpg (17,6 KB, 18x aufgerufen)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz