Delphi 7 - Dienst - Startet seit ca. März 2015 nicht mehr

[TPeterT]

Beim Starten aus der IDE stoppt sofort - als Dienst installieren, deinstallieren funktioniert - aber startet auch nicht!


Schwer zu sagen wie das gemeint ist - vorallem der Dienst ist auf einem Server 2003 jahrelang gelaufen - eben bis März/April heurigen Jahres. Selbe Auffälligkeite auch auf meinem Entwicklungsrechner und weiteren Testrechnern. Deshalb war mein erster Gedanke, dass ein Update etwas umgestellt hat, was mit Services zu tun hat.

[taveuni]

Irgendwie habe ich das Gefühl Du hängst noch bei der Applikation. Ich habe mal ein Demoprojekt angehängt. Compiliert mit XE2. Aber das sollte auch mit Delphi 7 gehen. Logischerweise sollte Dein Code dann nicht direkt im Execute ausgeführt werden. Dieser einfache Dienst kann nicht in der IDE ausgeführt werden. Wenn Du ihn aber (als Administrator) installierst, startest, stoppst usw. sollten die Ereignisse im Arbeitsverzeichnis geloggt werden.

Gruss Werner

[TPeterT]

Hallo!

Danke für die Mühe!

Musste die Zeile "if not Application.DelayInitialize or Application.Installing then" auskommentieren - diese funktioneirt in Delphi 7 scheinbar noch nicht.

LogFile:

--- install
03.09.2015 10:53:16: ServiceCreate
03.09.2015 10:53:16: ServiceBeforeInstall
03.09.2015 10:53:17: ServiceAfterInstall
03.09.2015 10:53:18: ServiceDestroy

-- Dienst starten
03.09.2015 10:59:36: ServiceCreate
03.09.2015 10:59:36: ServiceStart
03.09.2015 10:59:36: ServiceExecute start
03.09.2015 10:59:38: ServiceExecute - counter:0

-- Dienst stoppen
03.09.2015 10:59:52: ServiceExecute - counter:7
03.09.2015 10:59:54: ServiceExecute - counter:8
03.09.2015 10:59:54: ServiceStop
03.09.2015 10:59:56: ServiceExecute - counter:9
03.09.2015 10:59:56: ServiceExecute end
03.09.2015 10:59:56: ServiceDestroy

--- uninstall
03.09.2015 10:54:17: ServiceCreate
03.09.2015 10:54:17: ServiceBeforeUninstall
03.09.2015 10:54:17: ServiceAfterUninstall
03.09.2015 10:54:18: ServiceDestroy


Ich versuch mal das Logging in meiner Anwendung...
Vieleicht habe ich zuwenig Information gegeben: Ich habe zusätzlich nach dem Installieren/Starten des Dienstes ein Trayicon zum Öffnen einer Form mit diversen Labels zur Kontrolle.

[taveuni]

Zitat von TPeterT:

Ich habe zusätzlich nach dem Installieren/Starten des Dienstes ein Trayicon zum Öffnen einer Form mit diversen Labels zur Kontrolle.

Eben genau von dem musst Du dich seit Vista lösen. Die Interaktion mit dem Desktop hat nur bis und mit Windows XP funktioniert. Auch wenn der Service jetzt noch als interaktiv gekennzeichnet ist. Es geht nicht mehr. Im besten Fall läuft Dein Service weiter und die ganzen Forms, Dialogs und weiss der Geier was sonst noch werden einfach nicht angezeigt. Im schlechteren Fall führt das zu Problemen. Seit Vista muss eine Desktop Interaktion mit einem Dienst via Interprozesskommunikation realisiert werden.

[TPeterT]

So: sehr interessant!

Wenn ma einen Dienst installiert erhält man die Meldung "Dienst installiert". Solange ich diese Meldung NICHT mit OK schliesse, läuft das Service einwandfrei (inkl. der Benutzer-Oberfläche).
Schliesse ich die Meldung, funktioniert der Dienst nicht mehr.

Unter Umständen ein Berechtigungsproblem möglich?

[TPeterT]

Ok - dh. alle Forms entfernen.
Was mich trotzdem wundert, dass es bis heuer ohne Probleme funktioniert hat.

[Jumpy]

Du betreibst das doch weiterhin mit Windows Server 2003, oder? Dann sollte das mit den Forms ja egal sein. Allerdings meine ich das der Support dafür ausgelaufen ist, also müsstest du über kurz oder lang zu einem neueren Windows Server wechseln und dann trifft das zu.

Kannst du den Dienst nicht mal komplett deinstallieren/deregistrieren und dann neu installieren/registrieren? Oder baumina's Hinweis nachgehen?