Dienst, Service oder was? (D 2009 Prof)

[stahli]

Ich komme einfach nicht weiter und lade mal eine kleine j.exe hoch.
Vielleicht kann es ja mal jemand testen, das als Service zu installieren und zu starten.
Die Installation wird mit Nachrichten porotokolliert und beim starten und ausführen sollten beep erzeugt werden, der Dienst lässt sich aber bei mir nicht starten.

Der komplette Quelltext:

Delphi-Quellcode:

unit sj;

interface

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

type
  TServiceJ = class(TService)
    procedure ServiceExecute(Sender: TService);
    procedure ServiceAfterInstall(Sender: TService);
    procedure ServiceAfterUninstall(Sender: TService);
    procedure ServiceBeforeInstall(Sender: TService);
    procedure ServiceBeforeUninstall(Sender: TService);
    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceDestroy(Sender: TObject);
    procedure ServicePause(Sender: TService; var Paused: Boolean);
    procedure ServiceShutdown(Sender: TService);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  ServiceJ: TServiceJ;

implementation

{$R *.DFM}

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

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

procedure TServiceJ.ServiceAfterInstall(Sender: TService);
begin
  ShowMessage('ServiceAfterInstall');
end;

procedure TServiceJ.ServiceAfterUninstall(Sender: TService);
begin
  ShowMessage('ServiceAfterUninstall');
end;

procedure TServiceJ.ServiceBeforeInstall(Sender: TService);
begin
  ShowMessage('ServiceBeforeInstall');
end;

procedure TServiceJ.ServiceBeforeUninstall(Sender: TService);
begin
  ShowMessage('ServiceBeforeUninstall');
end;

procedure TServiceJ.ServiceContinue(Sender: TService; var Continued: Boolean);
begin
  Beep;
end;

procedure TServiceJ.ServiceCreate(Sender: TObject);
begin
  ShowMessage('ServiceCreate');
end;

procedure TServiceJ.ServiceDestroy(Sender: TObject);
begin
  ShowMessage('ServiceDestroy');
end;

procedure TServiceJ.ServiceExecute(Sender: TService);
begin
  Beep;
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(False); // wait for termination
    Sleep(1);
  end;
  Beep;
end;

procedure TServiceJ.ServicePause(Sender: TService; var Paused: Boolean);
begin
  Beep;
end;

procedure TServiceJ.ServiceShutdown(Sender: TService);
begin
  Beep;
end;

procedure TServiceJ.ServiceStart(Sender: TService; var Started: Boolean);
begin
  Beep;
end;

procedure TServiceJ.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  Beep;
end;

end.

[Luckie]

Wo wird da was protokolliert? Ich habe dir schon mal gesagt, dass du die ShowMessage Aufrufe nie sehen wirst, es sei denn du arbeitest noch unter Windows XP. Ab Windows Vista gibt es keine interaktiven Dienste mehr. Ein Dienst kann also kein Fenster auf dem Desktop des interaktiven Benutzers anzeigen.

[stahli]

ShowMessage funktioniert beim Installieren und Deinstallieren.
Zur Dienst-Laufzeit habe ich testweise nur einen Beep verwendent. Ich werde mal noch ohne den Beep testen, ob der Dienst dann gestartet werden kann (der Dienst heisst übrigens "ServiceJ").
Wie kann man denn dann Nachrichten ausgeben? Dienste blenden ja unter Vista/Win7 immer kleine Fenster über der Symbolleiste ein.

[stahli]

Aha!
Ich habe die units SysUtils und Dialogs entfernt und alle ShowMessage und Beeps.
Jetzt lässt sich der Service starten, wobei ich halt keine "Einblicke" habe.

Jetzt muss ich noch einen zyklischen Website-Abruf regeln:
- Internet-Komponente (muss ich mich damit beschäftigen)
- Pausen (sollte sicher Sleep in der Schleife reichen)
und vor allem:
- eine AUSGABE, wenn die Website einen bestimmten Text enthält.

Wie kann man den letzten Punkt (unter Win7) realisieren?

[taveuni]

Zitat von stahli:

Aha!
und vor allem:
- eine AUSGABE, wenn die Website einen bestimmten Text enthält.

Wie kann man den letzten Punkt (unter Win7) realisieren?

Mit Hilfe einer Applikation welche unter dem aktuellen Benutzer gestartet ist und
via IPC mit Deinem Service kommuniziert.

[stahli]

Ok, ich habe es jetzt doch mit einer normalen Anwendung gelöst, die nur in den Prozessen zu sehen ist.

Caption der MainForm habe ich auf '' gesetzt. Die Anwendung wird im Autostart-Ordner aufgenommen.
OnCreate der MainForm sieht folgendermaßen aus:

Delphi-Quellcode:

procedure TFormJC.FormCreate(Sender: TObject);
var
  BreakFlag: Boolean;
begin
  BreakFlag := False;
  repeat
    Beep; // wird noch mit Leben gefüllt
    Sleep(60000);
  until BreakFlag;
  Close;
end;

Die Anwendung kommt einfach nicht dazu, ein Formular einzublenden und ist nur in den Prozessen der Systemüberwachung zu sehen.

Mein Anliegen, dass keine störenden Formulare und Einträge in den "Anwendungen" der Systemüberwachung oder in der Taskleiste auftauchen ist damit gelöst.
Außerdem kann ich mit den üblichen VCL-Komponenten arbeiten.

Trotzdem wäre mal ein Dienst-Beispiel für Win7 (mit D2009 oder höher erstellt) interessant, das z.B. jede Minute einen BallonTip o.ä. einblendet.
Das mal als Anregung, falls jemand einmal ein Tutorial erstellen will...

[Luckie]

Zitat von stahli:

Die Anwendung kommt einfach nicht dazu, ein Formular einzublenden

Das ist schon mehr als grausam. Dabei gibt es hier im Forum mehr genug Beispiele, wie man das Hauptformular und den Taskbareintrag ausblendet.

Und hättest du mal auf mich gehört, als ich dir ganz zu Anfang gesagt habe, dass das mit der ShowMessage nichts wird, hättest du deinen Dienst schon viel früher zum Laufen gebracht.