Service und TTimer

[Digielm]

wenn ich dann form.show mache bleibt mein Dienst einfach hängen.

[nahpets]

Hallo,

wie machst Du das mit dem Formular im Dienst, wo wird das Formular erstellt und bist Du sicher, dass es zur Laufzeit erstellt wird?

Meine Dienste sind alle mit Delphi 7 erstellt.
Die eigene Komponente ist dahingehend erweitert, dass sie alle 5 oder 15 Minuten oder zur vollen Stunde, um 24 Uhr... pünktlich startet, unabhängig von dem Zeitpunkt, zu dem Enabled auf True gesetzt wird. Beim Aktivieren wird halt das Timerintervall errechnet, das erforderlich ist, um "pünktlich" zu starten.

[sakura]

Zitat:

Zitat von Digielm

wenn ich dann form.show mache bleibt mein Dienst einfach hängen.

Wie schon gefragt, wozu ist das Form überhaupt da? Brauchst Du dieses wirklich, wenn es eh nie ein Anwender sieht...

...:cat:...

[Digielm]

nee eigentlich brauch ich dir Form nur wenn ich mit dem ding am weiterentwickeln bin, dafür brauch ich die.

[nahpets]

Hallo,

Zitat:

Zitat von Digielm

wenn ich dann form.show mache bleibt mein Dienst einfach hängen.

Dienst und Formular, schließt sich das nicht gegenseitig aus?
Beim Show wird das Formular aktiv und wartet auf Benutzeraktionen, dass ist bei 'nem Dienst nicht unbedingt sinnvoll (zumal, wenn man das Formular nicht zu sehen bekommt :wink: )

[sakura]

Zitat:

Zitat von Digielm

nee eigentlich brauch ich dir Form nur wenn ich mit dem ding am weiterentwickeln bin, dafür brauch ich die.

Ich verstehe jetzt nichts - und mangels dessen klinke ich mich hier aus. Wozu einen Kopf machen, wenn ich keinen vernünftigen Input bekomme ;)

...:cat:...

[Digielm]

Nee hatte ich schon einige male gemacht und das klappt alles soweit

[Digielm]

Hier nochmal ein bissel Source

Delphi-Quellcode:

unit Service;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel, Borland.Vcl.ExtCtrls,
  System.Windows.Forms, System.Data, system.serviceprocess, System.Configuration.Install;

type
//  [RunInstaller(true)]
  TService1 = class(System.ServiceProcess.ServiceBase)
  {$REGION 'Vom Designer verwalteter Code'} 
  strict private 
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    /// <summary> 
    /// Erforderliche Methode zur Unterstützung des Designers - 
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary> 
    procedure InitializeComponent; 
  {$ENDREGION} 
  strict protected 
    /// <summary> 
    /// Ressourcen nach der Verwendung bereinigen 
    /// </summary> 
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  strict protected
    procedure OnStop; override;
    procedure OnStart(args: array of string); override;
  public
    constructor Create;
  end;
//
var
  Service1: TService1;

// [assembly: RuntimeRequiredAttribute(TypeOf(ServiceBase))]

implementation

uses Main;

//{$R *.nfm}
{$AUTOBOX ON} 

{$REGION 'Vom Windows Form-Designer erzeugter Code'} 
/// <summary> 
/// Erforderliche Methode zur Unterstützung des Designers -- 
/// ändern Sie die Methode nicht mit dem Quelltext-Editor 
/// </summary> 
procedure TService1.InitializeComponent;
begin 
  Self.Components := System.ComponentModel.Container.Create;
  Self.ServiceName := 'SAPConnect';
end;
{$ENDREGION}

procedure TService1.Dispose(Disposing: Boolean); 
begin 
  if Disposing then
  begin 
    if Components <> nil then
      Components.Dispose(); 
  end; 
  inherited Dispose(Disposing); 
end; 

constructor TService1.Create; 
begin 
  inherited Create; 
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
//  MessageBox.show('created');
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  // 
end; 


procedure TService1.onstop;
begin
//
end;

procedure TService1.OnStart(args: array of string);
begin
  Testform := TTestform.Create(self);
  Testform.show;
end;

end.

bei dem SHOW bleibt er eben hängen

[Luckie]

Und wo ist da jetzt der Timer?

[Sherlock]

Der liegt auf dem Testform.

Kann ja nicht gehen, da hier schon oft gesagt wurde: Dienst + Form = No go.

Sherlock