Fortschritt mit TProgressbar anzeigen

[BM_90]

Ich habe folgendes Problem:
Ich schreibe ein Programm mit dem man Bilder öffnen kann. Dazu habe ich eine Prozedur, die dafür TImages erstellt:

Delphi-Quellcode:

procedure TForm1.AusDatei1Click(Sender: TObject);
var I : Integer;
begin
  L:=imagescount;
  if OpenpictureDialog1.Execute then
    begin
      for I:=L to L+OpenpictureDialog1.Files.Count-1 do
        if ImagesCount<100 then
          begin
            Images[ImagesCount] :=  TImage.Create(self);
            Images[ImagesCount].Parent    :=  Form1;
            Images[ImagesCount].OnClick   :=  imageClick;
            images[imagescount].PopupMenu :=  form1.PopupMenu2;
            images[imagescount].OnProgress:=  ImageProgress;
            Images[ImagesCount].Left      :=  form1.GroupBox2.Width+form1.Button2.Width+form1.Button4.Width+I*Images[I].Width+5*I+4;
            Images[ImagesCount].Height    :=  form1.button2.Height-6;
            Images[ImagesCount].Top       :=  31;
            images[ImagesCount].center    :=  true;

            Images[ImagesCount].Stretch :=  true;
            Images[ImagesCount].Proportional :=  true;

            Images[ImagesCount].Picture.LoadFromFile(OpenpictureDialog1.Files.Strings[I-L]);

            Inc(ImagesCount);
...
          end;
    end;
form13.Visible:=true;
end;

Damit der Fortschritt angezeigt wird, habe ich eine OnProgress-Prozedur geschrieben, die wie folgt aussieht:

Delphi-Quellcode:

procedure tform1.ImageProgress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
form13.ProgressBar1.Stepit;
if form13.ProgressBar1.position=form13.progressbar1.Max then
begin
form13.Visible:=false;
end;
end;

Das funktioniert soweit, nur habe ich nun das Problem, dass in der Zeit, in der die Bilder geladen werden, die Progressbar entweder mehrmals durchläuft und/oder mitten drin stehen bleibt, weil die Bilder fertig geladen sind. Dabei soll die Progressbar genau dann auf 100% durchgelaufen sein, wenn die Bilder fertig sind.
Ich habe mich schon dumm und dämlich rumprobiert, aber es haut einfach nicht hin :wall: .
Die 'Hilfe' von Delphi, hat bei mir nur noch mehr Verwirrung gestiftet...
Bitte helft mir!

[Die Muhkuh]

Hi,

Du solltest vor der For-Schleife die Position des Progressbar auf 0 setzen sowie die Property Max auf den Maximalwert einstellen:

Delphi-Quellcode:

procedure TForm1.AusDatei1Click(Sender: TObject);
var I : Integer;
begin
  L:=imagescount;
  if OpenpictureDialog1.Execute then
    begin
      Form13.ProgressBar1.Position := 0;
      Form13.ProgressBar1.Max := OpenPictureDialog1.Files.Count;
      for I:=L to L+OpenpictureDialog1.Files.Count-1 do
        if ImagesCount<100 then
          begin
           [...] 
          end;
    end;
form13.Visible:=true;
end;

[Crazy Ivan]

der standartwert für progressbar.step ist (jedenfalls bei meinem delphi) 10. das heißt du müsstest den entsprechend der anzahl der bilder umstellen

[BM_90]

Zitat:

Zitat von Crazy Ivan

der standartwert für progressbar.step ist (jedenfalls bei meinem delphi) 10. das heißt du müsstest den entsprechend der anzahl der bilder umstellen

Das habe ich auch schon gedacht, das geht aber nicht, weil das scheinbar nicht abhängig von der Anzahl der Bilder ist, sondern von der Größe...

Zitat:

Zitat von Die Muhkuh

Hi,

Du solltest vor der For-Schleife die Position des Progressbar auf 0 setzen sowie die Property Max auf den Maximalwert einstellen:

Delphi-Quellcode:

procedure TForm1.AusDatei1Click(Sender: TObject);
var I : Integer;
begin
  L:=imagescount;
  if OpenpictureDialog1.Execute then
    begin
      Form13.ProgressBar1.Position := 0;
      Form13.ProgressBar1.Max := OpenPictureDialog1.Files.Count;
      for I:=L to L+OpenpictureDialog1.Files.Count-1 do
        if ImagesCount<100 then
          begin
           [...] 
          end;
    end;
form13.Visible:=true;
end;

Ich hab das mal ausprobiert, hat aber nicht funktioniert. Jetzt ist die Progressbar immer schon auf 100% wenn das Formular erscheint...

[xZise]

Ist den eigentlich "OnProgress" das richtige?

Delphi Hilfe (TurboDelphi Explorer)

Mit einer Ereignisbehandlungsroutine für OnProgress können Sie den Benutzer über den Fortgang langwieriger Operationen (z.B. beim Laden großer komprimierter Grafiken) auf dem laufenden halten.

Bei dir ist es eher das Laden mehrer Dateien oder? Und genau das macht Progress nicht.
Du könntest dann zwei Progessbars nehmen:

• Eine zeigt den aktuellen Stand des Bildes an
• Das andere zeigt den aktuellen Stand aller Bilder an

Ich hätte einfach sowas gemacht:

Delphi-Quellcode:

for i := 0 to <Anzahl> - 1 do
begin
  if <ProgressBar>.Position <> Round(i / <Anzahl> * 100) then
  begin
    <ProgressBar>.Position := Round(i / <Anzahl> * 100);
    // Entweder Application.ProcessMessages oder <ProgressBar>.Repaint oder <Form>.Repaint (ich glaube damit müsste auch die Progressbar mit neugezeichnet werden) machen.
  end;
  // Mache das was du machen musst ;)
end;

Was mache ich? Im Grunde genommen nichts anderes als Prozentrechnung.
Vorteil:
Bei mehreren Bildern ( > 1.000 ) und schnellen Laden flackert die Progressbar nicht so häufig (nur 100x muss neugezeichnet werden)
Zeitintensive Routinen (Application.ProcessMessages besonders, aber auch Repaints) werden nur ausgeführt, wenn sie benötigt werden
Nachteil:
Die Round Routine benötigt am längsten von allen Prozeduren die aus einer Kommazahl ein Integer machen.
Man ruft Sachen mehrmals auf. Kann man aber umgehen dadurch, dass man "Round()" in eine Variable schreibt.

Da du es ja Anzuhängen scheinst:
Ich würde der Einfachkeithalber bei einer for Schleife die von 0 startet bleiben, und dann nachher einfach ein Offset einbauen.

Eine Frage: Was ist Form13?
Weil du zeigst es an, und blendest es (u.U.) gleich wieder aus.

Editiert von xZise am 26.02.2008 um 18:34

So müsste es aussehen

Delphi-Quellcode:

procedure TForm1.AusDatei1Click(Sender: TObject);
var
  i : Integer;
  percentDone : Byte;
begin
  if OpenpictureDialog1.Execute then
  begin
    l := ImagesCount;
    ImagesCount := l + OpenpictureDialog1.Files.Count;
    if ImagesCount >= 100 then
      ImagesCount := 99
    i := 0;  
    form13.Visible:=true;  
    while (i < OpenpictureDialog1.Files.Count) and (i + ImagesCount < 100) do
    begin
      percentDone := Round(i / OpenpictureDialog1.Files.Count * 100); // Wie weit ist er mit allen Dateien
      if percentDone <> Form13.ProgressBar1.Position then
      begin
        Form13.ProgressBar1.Position := percentDone;
        Form13.ProgressBar1.Repaint;
      end; 
      Images[l + i] :=  TImage.Create(self);
      Images[l + i].Parent :=  Form1;
      Images[l + i].OnClick :=  imageClick;
      Images[l + i].PopupMenu :=  form1.PopupMenu2;
      images[l + i].OnProgress :=  ImageProgress;
      Images[l + i].Left :=  form1.GroupBox2.Width+form1.Button2.Width+form1.Button4.Width+I*Images[I].Width+5*I+4;
      Images[l + i].Height :=  form1.button2.Height-6;
      Images[l + i].Top :=  31;
      Images[l + i].center :=  true;
      Images[l + i].Stretch :=  true;
      Images[l + i].Proportional :=  true;
      Images[l + i].Picture.LoadFromFile(OpenpictureDialog1.Files.Strings[i]);
      Inc(i);
    end;
  end;
end;

procedure TForm1.ImageProgress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
  Form13.ProgressBar2.Position := PercentDone; // Wie weit ist er mit der Datei
end;

Ich habe mich für eine While-Schleife entschieden, weil damit könnte man bequem die Schleife beenden, wenn man nicht weiter Laden möchte.
Ich verwende auf der Form13 eine zweite ProgressBar wo steht wie weit er mit der Datei ist (ProgressBar2). Also am besten auf die Form mit packen.

Und ein Tipp: Benenne mal deine Komponenten, damit du später weißt was was ist.

MfG
xZise

[BM_90]

Ich habe das mal ausprobiert. Leider funktioniert es nich so richtig.
Die Progressbar läuft bis auch ein kleines Sück durch, aber befor die Bilder geladen werden...

[xZise]

Zitat:

Zitat von BM_90

Ich habe das mal ausprobiert. Leider funktioniert es nich so richtig.
Die Progressbar läuft bis auch ein kleines Sück durch, aber befor die Bilder geladen werden...

Welche denn?
Außerdem habe ich vergessen dass du die ProgressBar natürlich wieder zurücksetzten musst :)

MfG
xZise

[BM_90]

Zitat:

Zitat von xZise

Zitat:

Zitat von BM_90

Ich habe das mal ausprobiert. Leider funktioniert es nich so richtig.
Die Progressbar läuft bis auch ein kleines Sück durch, aber befor die Bilder geladen werden...

Welche denn?
Außerdem habe ich vergessen dass du die ProgressBar natürlich wieder zurücksetzten musst :)

MfG
xZise

Die mit dem Gesamtfortschritt.
Das mit dem Zurücksetzen ist mir schon aufgefallen, kein Problem.

[xZise]

Also wenn es nachher mehr als 99 Bilder werden bekommt er Probleme, weil man hat z.B. 198 Dateien markiert, dann stoppt er bei 50 Prozent.

Eine Sache fällt mir noch ein:
Hast du Max auf 100 und Min auf 0 gesetzt?
Außerdem gucke nochmal nach, ob nirgends was damit gemacht wird.

MfG
xZise

[Crazy Ivan]

setz doch min auf 0 und max auf die anzahl der bilder und in der schleife gehst du einfach nen StepBy(1) weiter? oder lieg ich jett falsch?

[xZise]

Hi Crazy Ivan,
es hat schon seine Gründe, warum ich das nicht gemacht habe:

Zitat:

Zitat von xZise

[...]Was mache ich? Im Grunde genommen nichts anderes als Prozentrechnung.
Vorteil:
Bei mehreren Bildern ( > 1.000 ) und schnellen Laden flackert die Progressbar nicht so häufig (nur 100x muss neugezeichnet werden)
Zeitintensive Routinen (Application.ProcessMessages besonders, aber auch Repaints) werden nur ausgeführt, wenn sie benötigt werden
Nachteil:
Die Round Routine benötigt am längsten von allen Prozeduren die aus einer Kommazahl ein Integer machen.
Man ruft Sachen mehrmals auf. Kann man aber umgehen dadurch, dass man "Round()" in eine Variable schreibt.[...]

Naja zuerst ist es etwas schwierig, aber ansonsten sollte das kein Problem sein.
Abgesehen davon, dass dein Vorschlag etwas zu ungenau ist.
Sollte er dann nämlich bei dem Ereignis ImageProgress machen, hat er das Problem, dass er damit nicht das erreicht was er will.

Um übrigens zu verhindern, dass die ProgressBar stehen bleibt, weil ImageCount größer als 99 wird, habe ich den Code etwas editiert.
Dieser sollte auch etwas (!) schneller sein, aber das ist es nur sehr wenig :)

Delphi-Quellcode:

procedure TForm1.AusDatei1Click(Sender: TObject);
var
  [...]
  maxNewFiles : Byte; // Anzahl der neuen Bilder die auch eingefügt werden (also zw. 0 und 99)
begin
  [...]
    // Wenn ImagesCount nachher größer als 99 ist
    // dann setzte maxNewFiles auf "ImagesCount - 99"
    // also die Anzahl der neuen Bilder
    if (OpenpictureDialog1.Files.Count + ImagesCount > 99) then
      maxNewFiles :=  99 - ImagesCount
    else
      maxNewFiles := OpenpictureDialog1.Files.Count;

    // Zurücksetzten der ProgressBars ^^
    Form13.ProgressBar1.Position := 0;
    Form13.ProgressBar2.Position := 0;

    // Jetzt muss ja nur noch überprüft werden, ob
    // i im Bereich des Eingeschränlten Bereichs ist
    while (i < maxNewFiles) do
    begin
      percentDone := Round(i / maxNewFiles * 100); // Wie weit ist er mit allen Dateien
      [...]
end;

Ich hoffe mal es ist klar was ich mache:
Wenn Du zu viele hinzufügst, also ImagesCount größer als 99 werden würde, dann gibt es ja nur weniger Dateien, die hinzugefügt werden.
Um genau zu sein: 99 - ImagesCount.
Beispiel: Es waren vorher 91 Bilder schon geladen, dann kannst du maximal nur noch 8 Bilder laden. Ansonsten würde die Summe aus "ImagesCount" (81) und "OpenpictureDialog1.Files.Count" (> 8) größer als 99 werden.

[BM_90]

Achso meinst du das..^^ Naja also Max ist auf alle Fälle auf 100 und Min auf 0 gesetzt...

Sorry für die späte Antwort, hab selbst kein Internet. Probier das auf alle Fälle mal aus.
DANKE