Katze fordert Prozessort heraus ;-)

[vielwerth]

Zunächst: "Guten Abend!"

Habe für meine Tochter einen Bildschirmschoner gemacht: In einem gewissen Zeitabschnitt wird aus einer DLL per Random jeweils ein (eins von acht) Foto ihres Katers geladen. Das JPG (150..300 KB) wird in eine Bitmap umgewandelt und diese auf den Screen ausgegeben und wieder ab einem gewissen Zeitabschnitt wird der Schirm mit "lineTo" schwarz übermalt. Dann kommt das nächste Bild.

Pause(Application.ProcessMessages) 125 MilliSek..

Dabei läuft der Prozessor permanent - auch wenn gerade nix geschieht - auf 100%!

Mein Athlon XP 3000, der unter Delphi, Word, Internet so zwischen 43 und 46 Grad heiss wird, kriegt nach 20 Min die Krise mit bis zu 62 Grad (Sandra).

Was kann ich tun, damit der Kater den Prozessor pfleglicher behandelt?

P.S. Prozessor wird ebenso heiss, wenn keine Maus angeschlossen ist.
Überströmender Dank, wenn einer was weiß.

Danke fürs Lesen.
Vielwerth

[Nikolas]

erstmal herzlich willkommen in der

Nutz doch lieber einen Timer um das neue Bild zu laden und um etwas zu übermalen ist es einfach gleich
rectangle zu nehmen.

Application.Processmessages dauert seine Zeit und wenn der Befehl 8 Mal in der Sekunde aufgerufen wird, ist klar, dass viel Rechenzeit verbraucht wird. Ist es denn notwendig das so oft aufzurufen?

[Binärbaum]

Ich kann jetzt leider nur raten, woran das liegt. Wahrscheinlich macht der PC in den "Pausen" zwischen den einzelnen Bildern irgendwas, das viel Rechnerleistung beansprucht. Hier wäre ein Code-Abschnitt nicht schlecht, um das Problem zu lokalisieren.

MfG
Binärbaum

[Binärbaum]

Zitat von Toxman:

erstmal herzlich willkommen in der

Nutz doch lieber einen Timer um das neue Bild zu laden und um etwas zu übermalen ist es einfach gleich
rectangle zu nehmen.

Danach muss man das Rechteck aber noch mit FillRect ausfüllen, da sonst nur der Rahmen gezeichnet wird.

MfG
Binärbaum

[Nikolas]

Stimmt nicht unbedingt. Rectangle wird mit dem akutellen Pinsel gefüllt. ALso da noch Farbe setzen und dunkel ist's.

[Chewie]

Zum Pausieren einfach Sleep benutzen, da so die Zeitkontrolle an den Dispatcher weitergegeben wird, und der kann die Prozesszeit anderen zuweisen.

[vielwerth]

Besonders der Tip von Chewi war goldrichtig:

Hier ist der (*geänderte*) Code:

procedure Pause(Zeit: Cardinal);
begin
sleep(Zeit);
Application.ProcessMessages;
end;

(*
procedure Pause(Zeit: Cardinal);
var Zeit1 : Cardinal;
begin
Zeit1:= GetTickCount;
repeat
Application.ProcessMessages;
until (GetTickCount - Zeit1 > Zeit);
end;

*)
Vielen Dank an alle für Euere Hilfe.
vielwerth