NT-Service starten und dann 50% CPU Auslastung

[jaenicke]

Also wenn da wie du ja gepostet hast sonst nichts passiert, bleibt ja eigentlich nur der Timer.

Was passiert, wenn du den deaktivierst? Ist die Auslastung dann runter?

[tekkyeah]

Zitat:

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

Ja, stimmt... da hatte ich noch begriffen, dass das nur eine Beispielprozedur ist... :-) Sorry dafür...

[tekkyeah]

Zitat:

Also wenn da wie du ja gepostet hast sonst nichts passiert, bleibt ja eigentlich nur der Timer.
Was passiert, wenn du den deaktivierst? Ist die Auslastung dann runter?

Leider ist die Auslastung immer noch bei 100 %...
Selbst wenn ich (wie unten angegeben) den Timer nicht "enable"

Delphi-Quellcode:

procedure TmesoCRM_Service.ServiceStart(Sender: TService;
  var Started: Boolean);
var
  Ini: TIniFile;
begin
  Timer1.Enabled := False;
  Ini := TIniFile.Create('meine.ini');
  TimerInterval := Ini.ReadInteger('Connection', 'TimerInterval', 0);
  Ini.WriteDateTime('Exim', 'ServiceStarted', Now);
  Ini.Free;
  Timer1.Interval := TimerInterval*60000;
//  Timer1.Enabled := True;
  Started := True;
end;

[jaenicke]

Ist der Timer im Objektinspektor aktiviert? Wenn der beim Start zunächst aus sein soll, dann sollte der da ausgeschaltet werden und nach den Startoperationen nur angeschaltet.

Trotzdem sollte der durch den Code ja deaktiviert werden. Wenn da kein Code ausgeführt wird, dann fällt mir aber auch nichts ein was die Auslastung erklären könnte. :gruebel:

[tekkyeah]

Zitat:

Ist der Timer im Objektinspektor aktiviert?

Nein, der Timer ist nicht aktiviert...
Und der einzige ausführbare code sonst steht im timer-Event...
Ansonsten ist das ein nackter Dienst...