CPU Auslastung eines Delphi-Programms drosseln

[Delphiuser1987]

Das Programm wird auf einem Pc mit Atom-Prozessor verwendet.
Auf diesem laufen noch anderere Programme, die schon 30% Auslastung haben.
Wenn jetzt noch mein Programm läuft, funktioniert fast nichts mehr.
Das ist der Grund !

[jfheins]

Schreibe mal in die Schleife ein
Sleep(0) das bewirkt, dass die anderen Anwendungen (falls vorhanden) mehr Rchenzeit bekommen.

[himitsu]

Zitat von jfheins:

das bewirkt, dass die anderen Anwendungen (falls vorhanden) mehr Rchenzeit bekommen.

etwas anders:

Jeder Thread bekommt nacheinander Zeitfenster von ein paar Millisekunden, um zu arbeiten ... Sleep(0) gibt die Verarbeituing aber sofort ab, verkürzt damit das eigene Zeitfenster und andere Threadsa kommen somit früher/schneller wieder dran.
Aber über "längere" Zeit stimmt es quasi doch ... eigene Zeit verkürzt = für andere länger.

Um wieviel soll denn dein Programm gedrosselt werden?
Bzw. was macht denn dein Programm nun ... vielleicht kann man dieses ja anderes/optimaler lösen.
Sleep(10) bewirkt da schon sehr viel.

[mkinzler]

Hat Sleep() bei älteren Delphiversionen nicht aktiv gewartet?

[jfheins]

Zitat von mkinzler:

Hat Sleep() bei älteren Delphiversionen nicht aktiv gewartet?

Was meinst du mit "aktiv gewartet" ?

Sleep() ruft nur die entsprechende Windowsfunktion auf. Unmd die sorgt dafür, dass dem Thread die nächsten x Millisekunden keine Rechenzeit zugewiesen wird. Wenn man also Sleep(1000) aufruft, friert der Thread für 1 Sekunde ein, weil er keine Rechenzeit mehr bekommt. (dafür sorgt der Scheduler voin Windows)
Ein Sleep(0) erscheint damit im ersten Moment sinnlos. Es sorgt aber dafür, dass der Thread sofort von der CPU genommen wird und hinten in die Warteschlange kommt. Also die Abarbeitung wird vorzeitig abgebrochen und der nächste Thread kommt an die Reihe.

[Ralf Kaiser]

Zitat von mkinzler:

Hat Sleep() bei älteren Delphiversionen nicht aktiv gewartet?

Aus Sysutils.pas:

Delphi-Quellcode:

{$IFDEF MSWINDOWS}
procedure Sleep; external kernel32 name 'Sleep'; stdcall;
{$ENDIF}

Sleep() ist also aus dem Windows-API und sollte daher in allen Delphi-Versionen gleich funktionieren.

[SirThornberry]

Zitat von Delphiuser1987:

Wenn jetzt noch mein Programm läuft, funktioniert fast nichts mehr.Das ist der Grund !

Wenn das der Grund ist setze einfach die Priorität deines Prozesses herab.

[Delphiuser1987]

danke Leute, Sleep(50) hat funktioniert.
Vorher 100% jetzt 11%.
Auf euch ist halt verlass
Bis zum nächsten Mal

Gruß