Progressbar einbinden

[razer91]

Hallo Zusammen!

Folgendes Problem:

Ich hab eine Programm, das in eine Textdatei schreibt und zwar mit einer "for"-Schleife.

Frage:

Wie kann ich, ohne das Programm (also die Schreibgeschwindigkeit) zu sehr auszubremsen, eine Progressbar einbinden, die den Vorgang visuell veranschaulicht.
folgendes ist mir schon klar^^:

Delphi-Quellcode:

progressbarX.max := gesamte schreibvorgänge;
progressbarX.stepby (1);
progressbarX.stepit; // balken wird bei jeden schreibvorgang um '1' weiter geschoben;

Ich habe schon einiges probiert, allerdings füllt sich sie progressbar immer am Ende auf 100%, weil das ergebnis der Schleife natürlich am ende nur einmal ausgegeben wird (nämlich, dass er fertig mit schreiben ist), die Zwischenergebnisse, die jetzt wichtig für die progressbar sind bekomme irgendwie nicht aus dieser schleife raus
ich habs auch schon mit einem Timer versucht, hat aber auch nicht so richtig gefunzt

folgende befehle, fällt mir gerade ein hab ich auch schon probiert, naja.. also entweder an die falsche Stelle geschrieben, oder... naja hier die befehle:

Delphi-Quellcode:

progressbarX.update;
application.processmessages;

Jemand ne Idee? ich glaub auch ich habs fast richtig, aber irgendwie fehlt noch der letzte, entscheidene Geistesblitz (oder auch nicht )

Vielen Dank schon mal!

[iKilledKenny]

Wie sieht denn die For-Schleife aus?

[razer91]

also das ist jetzt nur die Schleife, wenn du mehr oder alles brauchst einfach sagen :

Delphi-Quellcode:

for writerounds := 0 to filesize do
 write (tf, '0');  //wobei 'tf' die Textfile ist
 closefile (tf);
end

[Stevie]

Das aktualisieren der ProgressBar muss in den Schleifenrumpf:

Delphi-Quellcode:

for writerounds := 0 to filesize do
begin
  write(tf, '0');
  ProgressbarX.StepIt;
  Application.ProcessMessages;
end;
closefile(tf);

[razer91]

Danke! Hat gefunzt!

Ist jetzt aber sehr langsam geworden, lässt sich das vermeiden?

[DeddyH]

Aktualisiere die Progressbar nur bei jedem z.B. 10. Durchlauf, dann sollte das auch schneller gehen.

[razer91]

Alles klar! Vielen Dank Leuzt!!

[isilive]

Ich habe eine Schleife die ziemlich oft (im Testlauf 62 Mio. mal) durchlaufen wird und versuche gerade verschiedene Möglichkeiten die Progressbar nicht zu oft zu aktualisieren:

Durchlaufdauer im Testlauf
ohne Progressbar : 14 Sek.

PB aktualisieren mit:

IF i AND $FF = 0 : 16 Sek.
IF i AND $2000 = 0 : 52 Sek.
IF i mod 1000 = 0 : 17 Sek.
immer: : 79 Sek.

Es wundert mich, dass "AND $2000" so langsam ist, aber ok.
Und es wundert mich sehr, dass "AND $FF" so schnell ist, weil die Aktualisierung der ProgressBar in diesem Testlauf ca. 242.000 mal stattfindet.
Kennt jemand noch bessere / elegantere Arten das zu lösen?
(Timer ist mir irgendwie nicht sympatisch - mann muss die Zählvariable rüberkriegen und die Aktualisierung hat auch nicht funktioniert)

[himitsu]

http://www.delphipraxis.net/internal...094547#1094547

Das Problem bei sowas ist:
- Rechner sind unterschiedlich schnell
- sie sind auch unterschiedlich ausgelastet
- und durch verschiedene Faktoren ist auch die Schleife nicht immer gleich schnell

früher versuchte man es so, daß man erstmal die geschwindigkeit des PCs gemessen hat,
dann daraus sich berechnete, alle wieviel Tackte/Durchläufe man etwas machen mußte, damit es etwa dem Intervall entsprech, welches man wollte, aber

- PCs sind heute auch nicht immer gleich schnell
> vorallem da (nicht wie unter DOS) mehere Programme gleichzeitig laufen
> und auch CPUs mal unterschiedlich getaktet sind (mein kleiner AMD ändert seinen Takt, je nach Auslastung)

also bleibt nur Eines:
immer schön und ständig erneut nachmessen und sich nicht an feste Werte halten, aber dennoch zeitlich unterschiedliche Werte, wie wie irgendwelche Durchlaufsanzahlen.


[add]
und was das Problem von razer91 angeht,
also die Datei Byteweise befüllen zu wollen und auch nochjedes Byte einzeln anzuzeigen ... selbst der Tipp mit "10. Durchlauf" ist da nicht wirklich sinnvoll, da dieses immernoch NUR 10 Byte pro Schritt sind ... ist vollkommen "irre".
heutige Festplatten schieben (wenn sie halbwegs richtig bediehnt werden) mehrere dutzend/hundert MB in der Sekunde durch
und sowas geht nicht, wenn man sie nur mit so Kleinkram füttert.

[isilive]

Danke himitsu!

Die unterschiedlichen Rechnergeschwindigkeiten sind gar kein so grosses Problem. Wenn meine Progressbar ca. 5 mal pro Sekunde aktualisiert wird, dann ist das schon voll in Ordnung. Das Hauptproblem an der Sache ist, dass eine Schleife die SEHR oft durchlaufen wird (bei mir im 6-8 Stelligen Bereich) nicht ausgebremst wird. Da würde es sich wahrscheinlich sogar lohnen die Abfrage in ASM zu machen, nur hab ich seit dem 6502 kein ASM mehr gemacht

Folgendes hatte ich zuerst. Die Routine braucht 16 Sekunden (statt 14 ohne Progressbar).

Delphi-Quellcode:

    PB1.Max := 100;
    While MStream.position <> MStream.size Do
      Begin
        //machwas
        if (MStream.Position and $FF) = 0 then
              PB1.Position := 100 * MStream.Position div MStream.Size;    
      End;

Und jetzt 15 Sekunden (statt 14 ohne Progressbar):

Delphi-Quellcode:

    PB1.Max := 100;
    Start := GetTickCount;
    While MStream.position <> MStream.size Do
      Begin
        //machwas
          if gettickcount - start >= 200 then
          begin
            PB1.Position := 100 * MStream.Position div MStream.Size;
            //application.processmessages;      //nicht notwendig
            Start := GetTickCount;
          end;
      End;

Funktioniert also beides sehr gut. Danke für den Tipp.

Nochmal zusammenfassend:

Delphi-Quellcode:

  PB1.Max := MStream.Size;
    While MStream.position <> MStream.size Do
    Begin
      //machwas
      PB1.stepit;
    End

scheidet ganz aus. Ist extrem langsam. Ebenso wie - für mich überaschenderweise:

Delphi-Quellcode:

    While MStream.position <> MStream.size Do
      Begin
        //machwas
        if (MStream.Position and $2000) = 0 then
              PB1.Position := 100 * MStream.Position div MStream.Size;    
      End;

Also eine der zwei Varianten oben verwenden und es läuft effizient.