Daemon Beispiel

[Saschko]

DienstBeispiel.zip

(1.18 MiB) 363-mal heruntergeladen

Hallo Leute,

hier wie auf dem Lazarustreffen 2012 abgesprochen mein kleines Daemon Beispiel.

Ich habe noch eine kleine App zum testen fertig gemacht.

Würde mich freuen, wenn ich damit jemandem weiterhelfen kann.

Lieben Gruß

Sascha

[Eclipticon]

Willkommen im Forum

Hat sich dann eigentlich noch eine funktionierende und allgemein existierende Loesung zu Terminate, WaitFor und Destroy ergeben?

[Saschko]

Ich dachte ich hätte die Lösung. Aber nachdem du gefragt hast,
hab ich nochmal gestestet. Und ... verdammt geht noch nicht.

Werd nachher noch mal reinschauen, und meine Ergebnisse dann nochmals hochladen und
beschreiben.

[Saschko]

Wenn ich das jatzt richtig verstanden habe, wird der Thread im DataModuleStop auf die harte Tour
beendet, es sei denn man gönnt ihm hier noch etwas Zeit um sich sauber beenden zu können.
Das mit Sleep zu machen ist meiner Meinung nach nicht ganz sauber (Hab es aus der CleanDirs Demo übernommen).
Aber WaitFor wartet leider endlos. Sollte sich der Thread also nie aus der Execute raus kommen,
warten wir hier ewig. Evtl. sollte man beim WaitFor die Millisekunden mit übergeben.
Ich könnte das aber leider nur für die WinAPI implementieren, also erstmal mit Sleep.

Über Anregungen und Vorschläge würde ich mich freuen.

Bis dahin

Sascha

[pluto]

Vielen Dank für das Tolle Beispiel.

Ich habe mich mit dem Stopp Problem befasst und es glaube ich auch lösen können. Es ist ganz einfach: In der Klasse TMeinDaemon muss die Methode ShutDown Überschrieben werden. Dort kann der TMeinServiceThread freigegeben werden und dann wird ins Log auch Ende geschrieben. Jedenfalls Funktioniert es so unter Linux/Debian(Ubuntu). Vielleicht klappt es auch so unter Windows.

Wenn ich nichts Falsch verstanden habe. Unter Linux verwende ich zum Steuern(Start, Stopp und Restart) des daemon ein Shell Script.

Edit01: Es gibt sogar ein Extra Thread: TDaemonThread. Ich weiß nicht, ob man den eher nutzten sollte/könnte. Erste Versuche scheiterten, jedenfalls. Aber ich glaube für mein Vorhaben, ist das kleine Beispiel sehr gut geeignet. Hoffe ich jedenfalls.

[gocher]

Wenn ich das jatzt richtig verstanden habe, wird der Thread im DataModuleStop auf die harte Tour
beendet, es sei denn man gönnt ihm hier noch etwas Zeit um sich sauber beenden zu können.
Das mit Sleep zu machen ist meiner Meinung nach nicht ganz sauber (Hab es aus der CleanDirs Demo übernommen).
Aber WaitFor wartet leider endlos. Sollte sich der Thread also nie aus der Execute raus kommen,
warten wir hier ewig. Evtl. sollte man beim WaitFor die Millisekunden mit übergeben.
Ich könnte das aber leider nur für die WinAPI implementieren, also erstmal mit Sleep.

Über Anregungen und Vorschläge würde ich mich freuen.

Bis dahin

Sascha

Hallo Sascha,

probier es mal den Thread mit FreeOnTerminate anzulegen, wenn er dann mit Terminate beendet wird kannst Du mit WaitFor warten, so wird auch Execute korrekt beendet.

Code: Alles auswählen

    FThread := TThread.Create(true);
    FThread.FreeOnTerminate := true;
    FThread.Resume;      
 
    FThread.Terminate;
    FThread.WaitFor;
    FThread := nil;      
 

Mein Daemon Beispiel findest Du unter http://www.lazarusforum.de/viewtopic.ph ... 766#p55766

[fpGUIcoder]

Schönes Beispiel. Auch für Einsteiger in das Thema übersichtlich und verständlich. Auch wenn ich mir auch nach Studium des Quellcodes noch nicht erklären kann, warum der Dienst nicht anläuft. Dazu ist es wohl dann doch nötig, mich ein wenig in die Materie einzuarbeiten.


Kann da jemand eine gute Doku empfehlen?

Ich könnte einen Dienst gebrauchen, der bei Hardwarefehlern, möglichst noch vor dem wahrscheinlichen Absturz Daten sichert und runter fährt, am besten mit einem Meldungsfenster vorher noch.

Da ich hier noch Windows XP nutze, hatte ich schon Programmversionen die auf diesem System nicht mehr laufen. Ich bekommen dann eine Fehlermeldung der Art "Prozedureinsprungspunkt in xxx.dll nicht gefunden.

Wenn das nur wenige API Funktionen beträfe, die da fehlen. hätte ich gerne einen Dienst, der dann auf eine von mir geschriebene API Funktion umleitet und diese anstelle der in späteren Windowas Versionen vorhandenen API Funktionen aufruft. Sagen wir, wenn das nur eine einzige Funktion oder zwei oder höchstens drei beträfe. Wenn es mehr werden geht wohl ein Update schneller.