NT-Service starten und dann 50% CPU Auslastung

[jaenicke]

Zitat von tekkyeah:

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

Wenn ich eine neue Serviceanwendung erstelle, und das in OnExecute schreibe, dann lässt sich das normal kompilieren. (Wie ich nicht anders erwartet hatte.)

[tekkyeah]

Zitat:

Wenn ich eine neue Serviceanwendung erstelle, und das in OnExecute schreibe, dann lässt sich das normal kompilieren. (Wie ich nicht anders erwartet hatte.)

Mir geht es darum, dass ich die Prozedur "TServiceExecutionRestriction..."nicht einbinden kann....
Vielleicht stelle ich mich ja zu blöd an...

procedure TServiceExecutionRestriction.ServiceExecute(Sender : TService);

Wie binde ich das ein ?

Gruß
Holger

[jaenicke]

Das ist doch nur der Name der Klasse in dem Beispiel.
Meinst du nicht du solltest dich erst einmal mit den Grundlagen beschäftigen bevor du dich an so etwas wie einen Dienst machst?

Erstell eine neue Dienstanwendung, dann geh im Objektinspektor unter Ereignisse auf OnExecute und klicke dort doppelt. Und dann ergänzt du den Code wie im Beispiel.

[tekkyeah]

Gosh... Geile Antwort...

Ich habe mich schon damit befasst, sonst wäre meine Frage ja: Wie mache ich einen Dienst...

und ich dachte es gäbe wirklich etwas oder jemanden, was/der mir da weiterhilft...
Natürlich habe ich das längst in meiner Prozedur "ServiceExecute" drin...
Nur ist die Auslastung trotzdem noch zu hoch...
Habe einen Timer laufen, der jede Minute was tut... das dabei dann die CPU ausgelastet ist, kann ich verstehen...
Aber dazwischen sollte doch die CPU-Last doch gegen 0 gehen...

[Luckie]

Zitat von tekkyeah:

und ich dachte es gäbe wirklich etwas oder jemanden, was/der mir da weiterhilft...

Es würde eventuell mal helfen, wenn du uns endlich mal die Fehlermeldung der IDE mitteilen würdest.

[jaenicke]

Zitat von tekkyeah:

Natürlich habe ich das längst in meiner Prozedur "ServiceExecute" drin...

Danach hörte sich deine Antwort aber nicht an.

Zitat von tekkyeah:

Mir geht es darum, dass ich die Prozedur "TServiceExecutionRestriction..."nicht einbinden kann....
Vielleicht stelle ich mich ja zu blöd an...

procedure TServiceExecutionRestriction.ServiceExecute(Sender : TService);

Wie binde ich das ein ?

Das hörte sich für mich so an als wüsstest du gar nicht wo das hingehört.

Ja, wenn du es drin hast und nichts ändert, was passiert denn da noch in deinem OnExecute?

[Klaus01]

-- war Unsinn - gelöscht --

Grüße
Klaus

[quendolineDD]

Mal ProcessRequests(False) probiert?

[tekkyeah]

Es gibt keine Fehlermeldung...

Die einzig noch verbleibende Frage ist, warum die CPU-Last nicht runtergeht...

Delphi-Quellcode:

procedure TMeinService.ServiceExecute(Sender: TService);
begin
  while not Sender.Terminated do
  begin
    ServiceThread.ProcessRequests(False);
  end;
end;

[Luckie]

Zitat von tekkyeah:

Es gibt keine Fehlermeldung...

Also ben schreibst du noch, dass Delphi den Code "ablehnt", was auch immer das heißt.