Selbständiger Windows-Dienst ohne Benutzeranmeldung

[Nico B.]

Hallo Leute,

ich habe eine neue Aufgabenstellung bekommen und weiß nicht mal wie ich richtig anfangen soll.

Ich soll einen Dienst für einen Windows Server 2003 schreiben.
Dieser Dienst soll regelmäßig (bspw. aller 5 Minuten) über ADO-Komponenten 2 Datenbanken miteinander vergleichen.
Der Dienst soll selbständig im Hintergrund laufen, sobald der Server gestartet wurde. Dazu soll sich nicht einmal ein Benutzer anmelden müssen.

Mein Ansatz:
Der Datenbankvergleich ist kein Problem. Nur der Dienst / Service.
Ich habe ein neues Projekt erstellt. Datei >> Neu >> Weitere >> Service-Anwendung.
Zum testen würde ich gern regelmäßig eine Zeile mit der aktuellen Zeit in eine Textdatei schreiben.
Da kann ich erstmal sehen, ob es prinzipiell funktioniert.
Ich habe also einen Timer zu meiner Unit hinzugefügt.

Bisher habe ich folgenden Code:

Delphi-Quellcode:

unit UWGM_Service;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TWGM_Refresher = class(TService)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public Deklarartion}
    function GetServiceController: TServiceController; override;
  end;

var
  WGM_Refresher: TWGM_Refresher;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  WGM_Refresher.Controller(CtrlCode);
end;

function TWGM_Refresher.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TWGM_Refresher.Timer1Timer(Sender: TObject);
var
  zeile: TStrings;
begin
  zeile:=TStrings.Create;
  zeile.LoadFromFile('D:\Test\test.txt');
  zeile.Add('Test: '+TimeToStr(Now));
  zeile.SaveToFile('D:\Test\test.txt');
  zeile.Free;
end;

end.

Das Programm macht, wenn ich es mit F9 starte, prinzipiell schon mal das was ich möchte, allerdings nur ein mal.
Außerdem kann ich so ja auch nicht sehen, ob es das auch selbständig machen würde.

Was muss ich nun also machen?

[christophspaeth]

Hallo Nico,

was passiert denn, wenn du den Dienst mit Dienstname.exe /install registrierst und aus dem Dienstemanager (z.B. Ausführen - services.msc) startest? Läuft der Dienst oder beendet er sich gleich wieder?

Den Dienst direkt aus dem Debugger starten hab ich noch gar nicht ausprobiert. Ich hab mich da auf die Aussage von einem Kollegen verlassen das gienge nicht - ich starte den Dienst immer über services und verbinde den Debugger dann mit dem Prozess. Aus diesen Grund haben wir es auch oft so, dass wir die eigentlich Anwendung nochmal als einfache Konsolenanwendung implementiert haben, die dann einfach im OnStart gestartet, ggf. in OnExecute überwacht und im OnStop beendet/abgeschossen werden.

Gruß,
Chris

[Nico B.]

Hallo Chris,

ah, es funktioniert.
Ich wusste bisher nicht wie ich den Dienst genau registrieren/installieren oder was auch immer kann.

Was muss ich nun einstellen, damit der Dienst auch ohne angemeldeten Benutzer startet?
Und wie kann ich eine Beschreibung für den Dienst festlegen?
Wie kann ich den Dienst wieder deregistrieren?
Muss ich den Dienst jedes Mal neu registrieren, wenn ich ihn verändert habe, oder muss ich nur die exe überschreiben?

Fragen über Fragen.
Aber jetzt bin ich schon einen Riesenschritt weiter.

Also dankeschön.

Nico

[Luckie]

Wie war doch gleich die Forenregel, die du bei der Registration zugestimmt hast? Nur eine Frage pro Thread! und bevor du uns hier Löcher in den Bauch fragst, solltest du dir wohl erstmal ein Tutorial durchlesen, damit du zumindest schon mal ein Grundlagenwissen hast. Geschlossen.