Fortschritt mit TProgressbar anzeigen

[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