Hi,

wollte mit Hilfe eines Timers und einem Label den CPU-Verbrauch meines Programms anzeigen und stoße auf folgendes Problem:

Code für den Timer:

zusammenfalten · markieren

Delphi-Quellcode:

.
.
.
{$R *.dfm}
var
  LastTick : LongWord;
  LastTime : Int64;
  CPUCount : Word;
.
.
.
procedure TForm5.Timer3Timer(Sender: TObject);
Var
  CreationTime,
  ExitTime,
  KernelTime,
  UserTime : TFILETIME;
  TickDelta : LongWord;
  TimeDelta : Int64;
begin
  TickDelta:=GetTickCount() - LastTick;
  Inc(LastTick,TickDelta);

  GetProcessTimes(GetCurrentProcess(),CreationTime,ExitTime,KernelTime,UserTime);
  TimeDelta:=(Int64(KernelTime) + Int64(UserTime)) - LastTime;
  Inc(LastTime,TimeDelta);

  Label15.Caption:=Format('%.1f %%',[TimeDelta / 10000 / CPUCount / TickDelta * 100]);
end;
.
.
.

wenn ich auf Starten drücke, kommt Delphi kurz darauf mit:

Zitat:

Debugger Exception Notification
Project Project1.exe raised exception class EZeroDivide with message "Floating point division by zero". Process stopped. Use Step or Run to continue.

Irgendwie finde ich den Fehler nicht. Ich hoffe sehr auf eure Hilfe.

mfG
Störtebeker

P.S.: Ohne den Code funzt das Programm. Also muss der Fehler im Code des Timers liegen.

Moin Störtebeker,

wenn ich das richtig sehe, hast Du vergessen CPUCount zu initialisieren.

der fehler sagt aus das du durch 0 teilst. Also einfach Haltepunkt auf diese zeile
Label15.Caption:=Format('%.1f %%',[TimeDelta / 10000 / CPUCount / TickDelta * 100]); und schauen welcher deiner Werte 0 ist.
Zudem solltest du den Variablen vorher auch Werte zuweisen. Wie Christian Seehase hast du CPUCount zum Beispiel nix zugewiesen und darfst auch nicht davon ausgehen das es 0 ist. Denn lokale Variablen den nicht zugewiesen wurde enhalten einen zufälligen wert.
Aber selbst wenn es 0 ist hast du ein Problem weil teilen durch 0 nicht erlaubt ist (mathematich nicht erlaubt).

Thx. für eure Tipps. Es geht jetzt. Das Problem war, ich musste den Code auch noch ins FormCreate Ereignis setzten, zusätzlich zum TimerEreignis.

Trotzdem Danke.

Hallo,
wenn ich davon ausgehe, dass CPUCount die Anzahl der prozessorkerne ist, so ist

markieren

Delphi-Quellcode:

Begin
  CPUCount:=1;

nach dem Begin die Lösung deines Problems.

Grüsse
Rainer

Hallo Störtebecker,

das kann nicht die Lösung deines Problems sein CPUCount ist völlig willkürlich gesetzt und das hat nichts damit zu tun ob das Ganze im create oder timer steht.

Ausserdem:

Zitat:

TimeDelta / 10000 / CPUCount / TickDelta * 100

Ist das hier eine rein mathematisch etwas bedenkliche Schreibweise.
Ich würde lieber zusätzlich Klammern setzen. (Aber das ist Ansichtssache)

Grüsse
Rainer