GetTickCount zögert

[Cöster]

:gruebel: . . . HI!

Mir ist gerade was komisches passiert. Wenn man auf einem Image.Canvas außerhalb des Canvas-Bereiches zeichnet, zögert die Aktualisierung von GetTickCount.

Ist ziemlich schwer zu erklären, deswegen hier einfach der Code, dann könnt ihr's selber ausprobieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Start, Y: Integer;
begin
  Start := GetTickCount;
  Y := 0;
  repeat
    Image1.Canvas.Ellipse(0, Y, 50, Y+50);
    Y := Y - 10;
    TrackBar1.Position := GetTickCount-Start;
    Application.ProcessMessages;
  until TrackBar1.Position = TrackBar1.Max;
end;

Auf der Form befinden sich also Image, TrackBar und Button.

Dieses Problem tritt nicht auf, wenn man statt eines Images eine PaintBox benutzt. Wenn man die Zeile

Delphi-Quellcode:

Application.ProcessMessages;

weglässt, läuft der TrackBar auch glatt.

Kennt jemand das Problem? Warum ist das so?

EDIT:
TrackBar.Min ist 0, Max ca. 3000. Y könnt ihr am Anfang auch auf nen höheren Wert setzen (500), und statt um 10 könnt ihr es auch um 1 oder so erniedrigen.

[3_of_8]

GetTickCount aktualisiert sich meines Wissens in einem eigenen Thread. Daher kann das nicht sein.

Das Problem ist vermutlich das, dass Application.ProcessMessages zu lange braucht und daher die Schleife lange bis zum nächsten Schritt braucht. Das dürfte aber normalerweise auch nicht sein.

[Cöster]

Zitat:

Zitat von 3_of_8

GetTickCount aktualisiert sich meines Wissens in einem eigenen Thread. Daher kann das nicht sein.

Das Problem ist vermutlich das, dass Application.ProcessMessages zu lange braucht und daher die Schleife lange bis zum nächsten Schritt braucht. Das dürfte aber normalerweise auch nicht sein.

Das hat mich ja auch gewundert: ES KANN SEIN! Der TrackBar läuft nicht glatt durch. Vielleicht ist es an deinem Rechner ja anders, glaub ich aber kaum. Du könntest es ja auch mal ausprobieren und dann schreiben, wie es bei dir aussieht.

[3_of_8]

Was für einen PC hast du? Eine Z3? :lol:

Wenn ich auf den Button klicke, ist die Trackbar so gut wie sofort am anderen Ende und ich sehe 4 Ellipsen auf dem Image. Egal ob mit oder ohne Application.ProcessMessages.

[Cöster]

Zitat:

Zitat von 3_of_8

Was für einen PC hast du? Eine Z3? :lol:

Athlon 2400+, 256 MB Grafikspeicher, nicht der beste, aber auch nicht der schlechteste :mrgreen:

Zitat:

Zitat von 3_of_8

Wenn ich auf den Button klicke, ist die Trackbar so gut wie sofort am anderen Ende und ich sehe 4 Ellipsen auf dem Image. Egal ob mit oder ohne Application.ProcessMessages.

Hast du auch TrackBar.Min auf 0 und TrackBar.Max auf 3000? 'so gut wie sofort' wär dann nämlich auch nicht ganz richtig. Es müsste, wenn alles richtig liefe, 3 Sek dauern. Wenn TrackBar.Max zu niedrig ist, fällt der Fehler kaum auf.

[Khabarakh]

Ich bemerke auch bei 3s nichts Außergewöhnliches :stupid: .

[Cöster]

Hä? Moment, ich lad die Exe einfach mal hoch, dann geh ich sicher, dass ihr auch wirklich das gleiche Programm habt wie ich.
Guckt nur auf den TrackBar. Wenn er dann immer noch ganz glatt und gleichmäßig läuft, hab ich wohl wirklich nen scheiß Computer :wall:

[3_of_8]

Läuft richtig schön smooth durch.

BTW: Dass du eine Z3 hast, erkennst du an dem charakteristischen Klackern und dem Gewicht von etwa einer metrischen Tonne.

[Matze]

Hi

Also bei mir läuft das absolut nicht schön durch. Zuerst geht's wenige Pixel sehr schnell, dann etwas langsamer und anschließend macht die Trackbar 2 riesige Sprünge bis zum Ende. (Athlon XP 2800+, 1 GB RAM).

Aber woran das liegen kann, weiß ich auch nicht. :gruebel:

[Daniel B]

Also bei mir läuft die TrackBar gleichmässig durch, braucht ca. 4 Sek. dazu. Der weisse Flecke ist in < 0.5sek. durch und hinterlässt den schwarzen Balken.

Warum es bei manchen nicht gleichmässig läuft, ist mMn das die ProcessMessages gar nicht richtig läuft, feststellen kann man dies, indem man während die TrackBar läuft, es nicht möglich ist das Programm zu beeenden, man kann die Bar dadurch leicht bremsen, die Ereignisreihenfolge/Abarbeitung ist da nicht ganz "zuverlässig".

[Cöster]

Zitat:

Zitat von Daniel B

Also bei mir läuft die TrackBar gleichmässig durch, braucht ca. 4 Sek. dazu.

also auch nicht ganz korrekt, es sollten ja eigentlich 3 Sek sein. :gruebel:

Zitat:

Zitat von Daniel B

Warum es bei manchen nicht gleichmässig läuft, ist mMn das die ProcessMessages gar nicht richtig läuft, feststellen kann man dies, indem man während die TrackBar läuft, es nicht möglich ist das Programm zu beeenden, man kann die Bar dadurch leicht bremsen, die Ereignisreihenfolge/Abarbeitung ist da nicht ganz "zuverlässig".

Und was kann man dagegen tun? Gibt es vll ne Alternative zu Application.ProcessMessages? Hier nochmal der Quellcode des Upgeloadeten Progs:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Start, Y: Integer;
begin
  Start := GetTickCount;
  Y := 200;
  repeat
    Image1.Canvas.Ellipse(0, Y, 50, Y+50);
    Y := Y - 1;
    TrackBar1.Position := GetTickCount-Start;
    Application.ProcessMessages;
  until TrackBar1.Position = TrackBar1.Max;
end;

[3_of_8]

Nicht dass ich wüsste - du könntest höchstens die entsprechenden Controls einzeln refreshen.

Noch sauberer geht das ganze natürlich mit Threads - dazu siehe das Tutorial von... ich glaube es war Luckie...

[Daniel B]

Hast du bestimmte einstellungen fürs Image und TrackBar? Wenn ich das alles bei mir laufen lasse, ist es in ein paar ms fertig.

[SirThornberry]

Zitat:

Zitat von Daniel B

Hast du bestimmte einstellungen fürs Image und TrackBar? Wenn ich das alles bei mir laufen lasse, ist es in ein paar ms fertig.

Dann hast du irgendwas falsch gemacht denn die Schleife hat als Abbruchbedingung das seit Beginn der Schleife 3000 Millisekunden vergangen sind.

Zum Quelltext selbst: Ich finde es etwas ungeeignet abhängig von der Anzahl der Schleifendurchläufe eine bestimmte Anzahl an Elypsen zu zeischnen. In 10 Jahre ist das ganze eventuell so schnell (je nach Rechner) das ein überlauf entsteht. Zudem dürfte die CPU-Auslastung auf 100% stehen während der Ausführung.
Ich fände es sinnvoller wenn Y anahand der verstrischenen Zeit berechnet wird. Zudem macht es keinen Sinn durchweg die Schleife mit voller Last laufen zu lassen. Ich würde da noch ein kurzes Sleep(20) einbauen damit die CPU nicht unnötig auf 100% Leistung hoch geschraubt wird. Zudem könnte mann dann davon ausgehen das unbabhängig von der Geschwindigkeit der CPU die Schleife ungefähr gleich oft durchlaufen wird auf jedem Rechner.

Für die Fortschrittsanzeige ist übrigens auch eine Progessbar besser geeignet als eine Trackbar. Die Trackbar ist eigentlich dafür gedacht das der User den Wert ändern kann was bei deinem beispiel ja aber nicht geht weil du in der Schleife den wert immer korrigierst und im OnChange der Trackbar ja nicht reagierst sondern dort wo du den Wert automatisch setzt.

[Cöster]

Zitat:

Zitat von Daniel B

Hast du bestimmte einstellungen fürs Image und TrackBar? Wenn ich das alles bei mir laufen lasse, ist es in ein paar ms fertig.

TrackBar.Max muss 3000 sein.

Zitat:

Zitat von SirThornberry

Zum Quelltext selbst: Ich finde es etwas ungeeignet abhängig von der Anzahl der Schleifendurchläufe eine bestimmte Anzahl an Elypsen zu zeischnen. In 10 Jahre ist das ganze eventuell so schnell (je nach Rechner) das ein überlauf entsteht. Zudem dürfte die CPU-Auslastung auf 100% stehen während der Ausführung. Ich fände es sinnvoller wenn Y anahand der verstrischenen Zeit berechnet wird.

Ist auch nur in diesem kleinen Programm so, weil es mur ja nur darum ging, auf den Fehler aufmerksam zu machen. Hab ich so gemacht, damit der Quelltext möglichst kurz und einfach ist. Bei dem eigentlichen Programm, in dem mir das Problem aufgefallen, handelt es sich um ein Programm zur Simulation von physikalischen Würfen (schräger, senkrechter, waagerechter Wurf etc.). Dabei wird die vorherige Ellipse dann immer wieder gelöscht und die aktuellen Koordinaten werden in Abhängigkeit von der vergangenen Zeit berechnet.

Zitat:

Zitat von SirThornberry

Zudem macht es keinen Sinn durchweg die Schleife mit voller Last laufen zu lassen. Ich würde da noch ein kurzes Sleep(20) einbauen damit die CPU nicht unnötig auf 100% Leistung hoch geschraubt wird. Zudem könnte mann dann davon ausgehen das unbabhängig von der Geschwindigkeit der CPU die Schleife ungefähr gleich oft durchlaufen wird auf jedem Rechner.

Das mit Sleep könnte ich machen. Aber außer der CPU-Auslastung sehe ich kein Problem darin, dass die Schleife auf jedem Rechner unterschiedlich schnell durchlaufen wird. Je öfter sie durchlaufen wird, desto öfter wird das Image aktualisiert. Die Geschwindigkeit, mit der sich die Kugel im Raum bewegt, ist also nicht abhängig von der Rechnergeschwindigkeit.

Zitat:

Zitat von SirThornberry

Für die Fortschrittsanzeige ist übrigens auch eine Progessbar besser geeignet als eine Trackbar. Die Trackbar ist eigentlich dafür gedacht das der User den Wert ändern kann was bei deinem beispiel ja aber nicht geht weil du in der Schleife den wert immer korrigierst und im OnChange der Trackbar ja nicht reagierst sondern dort wo du den Wert automatisch setzt.

Einen TrackBar hab ich verwendet, weil ich das Wurf-Programm später so verbessern will, dass man (wie im MediaPlayer bei Filmen oder Musik) durch verschieben des TrackBars bequem an eine bestimmte Stelle gelangen kann und die Position der Kugel zu diesem Zeitpunkt dann auf dem Image gezeichnet wird.
Ich werde das fertige Programm dann bei Gelegenheit wahrscheinlich auch mal hier vorstellen.