Wie kann man ein Programm im Hintergrund ablaufen lassen?

[Chemiker]

Hallo zusammen,

ein Programm soll im Hintergrund laufen und Daten von eine serielle Schnittstelle entgegennehmen. Die Daten sollen kurz geprüft und mit einem Zeitstempel versehen werden und dann zu einem Firebird-Server über ein Netzwerkverbindung geschickt werden.

Ich hatte zuerst an einer Konsolen Anwendung gedacht, aber für die serielle Schnittstelle muss ich Windows-Botschaften auswerten können was in einem Konsolen-Anwendung nicht geht.

Hat jemand von euch eine Idee wie man sowas am Sinnvollsten umsetzt?

Bis bald Chemiker

[Perlsau]

Mit einem Service, auch bekannt als Dienst?

[Popov]

Also das mit dem Dienst ist eine gute Idee, ich für mein Teil habe seit paar Wochen ein Programm die ganze Zeit laufen der bestimmte Informationen sammelt und speichert. Eigentlich so ähnlich wie bei dir, nur das ich es in einer normalen Logdatei speichere. Beim PC-Start wird auch das Programm gestartet, man sieht es nur im Taskmanager, es erledigt seinen Job und beendet sich beim herunterfahren.

[himitsu]

Man kann natürlich auch ein VCL-Programm ohne oder mit unsichtbarem Fenster laufen lassen (Ersteres ist nur ein bissl "gehackt"),
aber die Dienste/Services werden nicht umsonst öfters auch mal "Hintergrunddienst" genannt, weil sie halt im Hintergrund laufen.

[Luckie]

Nur ein Dienst wird keine Windows Fensternachrichten empfangen können. Fensternachrichten sind an einen Desktop gebunden. Und ein Dienst läuft in einer anderen WindowsStation.

[Perlsau]

Wenn ich das richtig verstanden hatte, gehören Fensternachrichten doch gar nicht zu den Anforderungen des TE:

"... im Hintergrund laufen und Daten von eine serielle Schnittstelle entgegennehmen. Die Daten sollen kurz geprüft und mit einem Zeitstempel versehen werden und dann zu einem Firebird-Server über ein Netzwerkverbindung geschickt ..."

Oder braucht man für den Empfang von Daten einer seriellen Schnittstelle Fensternachrichten?

[Luckie]

Zweiter Absatz:

Zitat:

aber für die serielle Schnittstelle muss ich Windows-Botschaften auswerten können

[himitsu]

Vermutlich innerhalb des Programms, da die Komponente wohl mit Messages arbeitet,
und eigene Nachrichten kann auch ein Service empfangen/verarbeiten.

Seine Konsolenanwendung hatte halt keine Messages verarbeitet, bzw. er hatte vergessen es da einzubauen.

[Luckie]

Zitat von himitsu:

und eigene Nachrichten kann auch ein Service empfangen/verarbeiten.

Da wäre ich jetzt interessiert wie das geht.

[himitsu]

Also das mit der Konsolenanwendung sollte unser NonVCL-Experte aber doch selber wissen.

OK, einfaches Beispiel: Leg einen TTimer auf dein TService-Modul und erlebe, wie es seine WM_TIMER-Message verarbeitet.


Im Internen verwendet TService die Unit Vcl.Forms und dessen Messagebehandlung.
Im Hauptthread kann man daher auch Problemlos diese Unit einbinden und Vcl.Forms.Application.ProgressMessages benutzen.
Nicht über Vcl.SvcMgr.Application, aber wie man sieht, ist TService auch aus der VCL, obwohl ein Service ja "grundsätzlich" nicht visuell sein sollte.

Und hier die Message-Loop aus TServiceApplication.Run (Application.Run der Service-DPR):

Delphi-Quellcode:

while not Vcl.Forms.Application.Terminated do
try
  Vcl.Forms.Application.HandleMessage;
except
  on E: Exception do
    DoHandleException(E);
end;