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

[TPeterT]

Hallo!

Habe folgendes Problem: Ein, vor einigen Jahren entwickeltes - in Delphi 7 - Service startet seit ungefähr März, April 2015 nicht mehr. Installiert ist das Service auf einem Server 2003, auf welchem es auch jahrelang problemlos lief. Scheinbar nach einem Windowsupdates scheint das Service zwar noch als "gestartet" auf, läuft aber nicht mehr.
Nun habe ich versucht in Delphi 7 eine neue Service-Apllication zu erstellen ohne weiteren Code: selbes Ergebnis > sofort nach dem Starten (aus Delphi heraus) wird wieder beendet (in Wondows 7).
Weiss jemand von euch, woran das wirklich liegt (das mit den Updates ist leider nur eine Vermutung von mir) und wie ich das Problem in den Griff bekomme?

Liebe Grüße!

[Union]

Sind Leerstellen im Pfad der Service-Anwendung?

[TPeterT]

nein - keine Leerzeichen im Pfad!
Beispiel:
D:\Daten\Service.exe

[AlexII]

Zitat:

Zitat von Union (Beitrag 1314363)

Sind Leerstellen im Pfad der Service-Anwendung?

Was wäre wenn da Leerzeichen wären?

[TPeterT]

Das weiss ich nicht - aber der Pfad hat sich nie geändert. Und funktioniert hat es jahrelang.

[baumina]

Schreib an wichtigen Stellen deines Dienstes in eine Logdatei, dann kannst du das Problem schnell besser eingrenzen.

[nahpets]

Gibt es irgendwelche Informationen im Ereignisprotokoll?

Wenn ja, welche?

[TPeterT]

Ja - im Ereignisprotokoll folgende Meldung:

"Die folgenden Informationen wurden mit dem Ereignis gespeichert:
Der Dienstprozess konnte keine Verbindung mit dem Dienstcontroller herstellen"

Mitschreiben ist eingebaut - aber keine Meldungen, da das Beenden sofort nach Start erfolgt.

[taveuni]

Zitat:

Zitat von TPeterT (Beitrag 1314360)

Hallo!
(..)
Nun habe ich versucht in Delphi 7 eine neue Service-Apllication zu erstellen ohne weiteren Code: selbes Ergebnis > sofort nach dem Starten (aus Delphi heraus) wird wieder beendet (in Wondows 7).
(..)

Reden wir von einem Dienst welcher unter System gestartet wird? Oder unter einem Benutzer? Oder von einer Applikation (da gabs doch mal was mit Desktop - Interaktion - das funktioniert aber seit Vista nicht mehr)? Zeig doch mal den kompletten Quelltext.

[TPeterT]

Hauptsächlich von einem Dienst mit Systemkonto - allerdings mit sichtbare Forms.
Vom Code her: Neue "Service-Application" erstellt und kein weiteren Code eingegeben.
Sollte sich theoretisch schon als Dienst installieren lassen (bzw. auch aus Delphi heraus starten lassen, ohne dass es sich sofort beendet).
Ich kanns als Dienst installieren/desinstallieren - läuft aber nicht (unter Prozesse solle der Dienst dann eigentlich aufscheinen, nehm ich an? Jedenfalls war es bisher so.)

Der Code (bzw. der nicht vorhandene Code):

Delphi-Quellcode:

----------------------------------------------------------------------------------


program Project1;
uses
  SvcMgr,
  Unit1 in 'Unit1.pas' {Service1: TService};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TService1, Service1);
  Application.Run;
end.


----------------------------------------------------------------------------------



unit Unit1;

interface

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

type
  TService1 = class(TService)
    procedure ServiceExecute(Sender: TService);
  private
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

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

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

procedure TService1.ServiceExecute(Sender: TService);
begin
 showmessage('test');
end;

end.