NT-Service starten und dann 50% CPU Auslastung

[ueding]

Hallo
ich habe mit diesem TUT einen Dienst erstellt
wenn ich jetzt diesen Dienst starte, habe ich 50% CPU Auslastung (dualCore CPU).
Ich habe nachstehenden Code geändert.

Delphi-Quellcode:

procedure TService1.Timer2Timer(Sender: TObject);
begin
 showMessage('timer 2');
end;

Zeitinterwal 10 Sekunden

Delphi-Quellcode:

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  showMessage('OnStart');
  Started := True;
  timer2.Enabled := true;
   showMessage('Timer eingeschaltet')
end;

Was muss ich machen damit die CPU Auslastung zurück geht ?

Danke schon mal für Eure HILFE


Gregor

[jbg]

Du musst ein wenig Rechenzeit freigeben.

Delphi-Quellcode:

procedure TServiceExecutionRestriction.ServiceExecute(Sender: TService);
begin
  while not Sender.Terminated do
  begin
    Sender.ServiceThread.ProcessRequests(True); // Rechenzeit freigeben
  end;
end;

[ueding]

Danke für die schnelle Hilfe :hello:

geht

Gregor

[Luckie]

Ähm, was soll das ShowMessage in dem Dienst? Ein Dienst läuft in einer anderen WindowsStation auf einem anderen Desktop, den der Benutzer nie zu sehen bekommt, es sei denn es handelt sich um einen interaktiven Dienst. Diese stellen aber eine Sicherheitslück dar und Microsoft rät davon ab solche Dienste zu nutzen. Hinzukommt, dass Windows Vista aus eben diesen Gründen keine interaktiven Dienste mehr unterstützt.

[SirThornberry]

ich stimme luckie zu. Jedoch unterstützt Messagebox das anzeigen einer Message über alle Desktops hinweg. Ich glaub in der Hinsicht ist Vista weiterhin inkonsequent.

[ueding]

Hallo Luckie

Zitat:

Zitat von Luckie

Ähm, was soll das ShowMessage in dem Dienst? Ein Dienst läuft in einer anderen WindowsStation auf einem anderen Desktop, den der Benutzer nie zu sehen bekommt, es sei denn es handelt sich um einen interaktiven Dienst. Diese stellen aber eine Sicherheitslück dar und Microsoft rät davon ab solche Dienste zu nutzen. Hinzukommt, dass Windows Vista aus eben diesen Gründen keine interaktiven Dienste mehr unterstützt.

Der Dienst hat später keine ShowMessage mehr.

Den Dienst kann mit Projekt1.exe INSTALL Installieren,
mit Projekt1.exe UNINSTALL Deinstallieren.

Wie kann ich den Dienst denn starten ?

Projekt1.exe START geht nicht.

Danke

Gregor

[sakura]

Zitat:

Zitat von SirThornberry

ich stimme luckie zu. Jedoch unterstützt Messagebox das anzeigen einer Message über alle Desktops hinweg. Ich glaub in der Hinsicht ist Vista weiterhin inkonsequent.

Nein, aber MS hat eine spezielle API für Messageboxes für genau diesen Fall zur Verfügung gestellt, iirc.

...:cat:...

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.

[tekkyeah]

Hallo zusammen, interessanter Thread,
ich habe einen Dienst der wunderbar läuft, aber das gleiche Problem mit der Auslastung der CPU.
Dann habe ich das hier gefunden

Zitat:

Delphi-Quellcode:

procedure TServiceExecutionRestriction.ServiceExecute(Sender: TService);
begin
  while not Sender.Terminated do
  begin
    Sender.ServiceThread.ProcessRequests(True); // Rechenzeit freigeben
  end;
end;

Nur, wie kann ich das einbinden ?
Die Prozedur wird von Delphi (BDS 2006) immer abgelehnt...
Kann mir jemand weiterhelfen ?

Gruß
Holger

[Luckie]

Zitat:

Zitat von tekkyeah

Die Prozedur wird von Delphi (BDS 2006) immer abgelehnt...

Endlich mal was neues. Sonst heißt es immer "Es kommt ein Fehler." :mrgreen:

Überleg mal bitte, was wir jetzt wissen müssten, um dir helfen zu können.