TService läuft nicht

[himitsu]

Moin,

wir haben bei einem Kunden ein kleines Problemchen,
unser Service läuft irgendwie garnicht mehr und uns gehen langsam die Ideen aus, woran es liegen könnte.

Berechtigungen geprüft ... scheinbar alles erlaubt
andere Anmeldeoptionen ausprobieren ... Lokales Sysemkonto und Adminkonto

noch Delphi XE
Windows Server 2008 R2
DataSnap, idHTTPServer und Kleinkram, aber bis dahin kommt es nicht mehr.

Beim Logging scheint es so, als wenn es im StartServiceCtrlDispatcher hängen bleibt.
Normaler Weise kommt nach dem TServiceApplication.Run direkt TService.OnStart und dann TService.OnExecute, aber im OnStart kommt es nie an. (dachten erst unser eigener Code bleibt im OnStart hängen)
Der Service bleibt einfach hängen und macht nichts. Nur ein Logging-Thread, welcher im TService.OnCreate gesartet wurde, läuft freudig weiter. (loggt kontinuierlich CPU-Auslastung, Speicherverbrauch und sowas ... sieht aber normal aus ... nichts los <1% Virtual=250MB FastMM=70MB)

Delphi-Quellcode:

{SvcMgr.}Application.CreateForm(TMyService, MyService);
   -> TMyService.OnCreate
{SvcMgr.}Application.Run;
   -> TServiceStartThread.Create
   -> WinSvc.StartServiceCtrlDispatcher
      -> TMyService.OnStart
      -> TMyService.OnExecute
      ...

Ach ja, seit einer ganzen Weile kommen auch TService.LogMessage bei einigen Kunden nicht mehr in der Windows-Ereignisanzeige an.
Stattdessen taucht nur einmal eine Exception mit dem Text dieser LogMessage im Eurakalog-LogFile auf. Aber das passiert auch auf Systemen, wo der Service noch läuft.
Ist aber nicht ganz so schlimm ... dort sollten nur die gröbsten Stati und Fehlermeldungen für den Systemadmin auftauchen ... aber im eigenen Logfile stehen die auch nochmal, zwischen all den kleinen Meldungen.

[EWeiss]

Keine Ahnung was du genau meinst, wenn du damit die Dienste meinst..
Prüf mal ob dann Dienste deaktiviert wurden die für den spezifischen Dienst Voraussetzung sind damit er läuft.

gruss

[himitsu]

Ja, einen Dienst ... ordentlich installiert usw.

Er wird manuell gestartet (wenn er liefe, würde er bei Systemstart auch automatisch gestartet),
dann bleibt er hängen und die Diensteverwaltung mecktert irgendwann, dass er nicht reagiere.

Die einzige Abhängigkeit (PostgreSQL) läuft, aber es ist egal, ob er mit oder ohne Abhängigkeiten installiert wurde.
Aber bis zum Aufbau der Verbindung zur Datenbank kommt er ja garnicht erst.

[EWeiss]

Zitat von himitsu:

Ja, einen Dienst ... ordentlich installiert usw.

Er wird manuell gestartet (wenn er liefe, würde er bei Systemstart auch automatisch gestartet),
dann bleibt er hängen und die Diensteverwaltung mecktert irgendwann, dass er nicht reagiere.

Darf man fragen welcher?
Möchte den dann hier mal prüfen und schauen welche Abhängigkeiten er hat.

gruss

[himitsu]

Zitat von EWeiss:

Darf man fragen welcher?

Ein Selbstgeschriebener?

SvcMgr.TService

[EWeiss]

Zitat von himitsu:

Zitat von EWeiss:

Darf man fragen welcher?

Ein Selbstgeschriebener?
SvcMgr.TService

Ach so dann kann ich leider nicht weiter helfen.
Sorry

gruss

[hoika]

Hallo,
ich würde eine abgespeckte Version ohne Abhängigkeiten, also ohne DB-Server installieren.
Und schrittweise alles wieder rein.

[Thomas Horstmann]

Hallo,
ich hatte ein ähnliches Problem. Bei mir lag es daran, dass der Windows-Dienstname den gleichen Namen haben muss, wie der Name von TServiceForm.

[himitsu]

Zitat von himitsu:

Die einzige Abhängigkeit (PostgreSQL) läuft, aber es ist egal, ob er mit oder ohne Abhängigkeiten installiert wurde.

Zitat von hoika:

ich würde eine abgespeckte Version ohne Abhängigkeiten, also ohne DB-Server installieren.

Ändert leider nichts.

Zitat von Thomas Horstmann:

Hallo,
ich hatte ein ähnliches Problem. Bei mir lag es daran, dass der Windows-Dienstname den gleichen Namen haben muss, wie der Name von TServiceForm.

In diesem Fall ist es so, also die Namen stimmen (ClassName, Name und DisplayName ... wobei natürlich nur die letzten Beiden geändert werden können),
auch wenn es bei uns möglich ist dass dieser abweicht, um den Service auch mehrmals installieren zu können und das funktionierte bis jetzt auch problemlos, sogar auf neueren Windows-Servern.

Ich hab grade geerkt, dass es auch noch TService.ServiceStartName, aber das wird bei uns nicht gesetzt/geändert ... k.A. was standardmäßig da drin ist.

[Luckie]

Was sagt denn die Ereignisanzeige?