Datei kopieren, ProgressBar einbauen?

[AlexII]

Hallo,

irgendwie klappt es bei mir mit der Progressbar nicht. Habe schon alles mögliche versucht, aber es will nicht funktionieren. Was mache ich falsch?

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var
  SourceF, TargetF: File;
  Buffer: array[1..2048] of Char;
  NumRead, NumWritten: Int64;
begin
  AssignFile(SourceF, 'D:\123.zip');
  try
    Reset(SourceF, 1);
  except
    ShowMessage('Fehler!');
    Exit;
  end;

  AssignFile(TargetF, 'D:\1234.zip');
  try
    Rewrite(TargetF, 1);

    ProgressBar3.Min := 0;
    ProgressBar3.Max := FileSize(SourceF);
    repeat
      BlockRead(SourceF, Buffer, SizeOf(Buffer), NumRead);
      BlockWrite(TargetF, Buffer, NumRead, NumWritten);

      ProgressBar3.Position := ProgressBar3.Position + NumRead;
    until (NumRead = 0)
      or (NumWritten <> NumRead);
  finally
    CloseFile(SourceF);
    CloseFile(TargetF);
  end;

  ShowMessage('Fertig!');
end;

Danke!

[Luckie]

WAS heißt funktioniert nicht? Und welche Erkenntnisse hast du bisher beim Debuggen gewonnen?

[AlexII]

Zitat von Luckie:

WAS heißt funktioniert nicht? Und welche Erkenntnisse hast du bisher beim Debuggen gewonnen?

Habe da noch etwas rumgespielt und festgestellt, dass die Fortschrittanzeige bei bei kleinen Dateien angezeigt wird, bei großen Dateien nicht, es wird auch nicht kopiert.

[Dalai]

Hat zwar mit dem Thema nicht unbedingt etwas zu tun, aber der Code ist deutlich verbesserungswürdig! Den kann ich nicht unkommentiert lassen. Wieso liest du eine Binärdatei in ein Array of char? Wieso verwirfst du jegliche Informationen beim Auftreten einer Exception? Und glaubst du, dass 2 KiB Größe eine sinnvolle Größenordnung für einen Buffer sind, vor allem bei schnellen Datenträgern?

Was heißt es wird nicht kopiert? Was sagt dein Debugger dazu, wenn du durch den Code steppst?

MfG Dalai

[himitsu]

Ich möchte fast wetten, daß die Form/ProgressBar keine Zeit Gelegenheit hat sich zu zeichnen.

Aber allein dafür sollte man schon gesteinigt werden.

Delphi-Quellcode:

  except
    ShowMessage('Fehler!');
    Exit;
  end;

So, nun zum Grund für dein Problem.
Es liegt am dritten Buchstaben in Zeile 42. (die Antwort ist bestimmt genauso hilfreich, wie deine Fehlermeldung)

[AlexII]

Zitat von Dalai:

Hat zwar mit dem Thema nicht unbedingt etwas zu tun, aber der Code ist deutlich verbesserungswürdig! Den kann ich nicht unkommentiert lassen. Wieso liest du eine Binärdatei in ein Array of char? Wieso verwirfst du jegliche Informationen beim Auftreten einer Exception? Und glaubst du, dass 2 KiB Größe eine sinnvolle Größenordnung für einen Buffer sind, vor allem bei schnellen Datenträgern?

Was heißt es wird nicht kopiert? Was sagt dein Debugger dazu, wenn du durch den Code steppst?

MfG Dalai

Jah.... die Exception wirft nichts raus... es geschieht einfach nichts bis man mit dem TaskManager dem ganzen ein Ende setzt. Wäre Array of Byte besser? Ok, werde ich ändern. Und Buffer 4096 ist doch auch ok, oder?

[AlexII]

Zitat von himitsu:

Ich möchte fast wetten, daß die Form/ProgressBar keine Zeit Gelegenheit hat sich zu zeichnen.

Aber allein dafür sollte man schon gesteinigt werden.

Delphi-Quellcode:

  except
    ShowMessage('Fehler!');
    Exit;
  end;

So, nun zum Grund für dein Problem.
Es liegt am dritten Buchstaben in Zeile 42. (die Antwort ist bestimmt genauso hilfreich, wie deine Fehlermeldung)

Wie ich schon geschrieben habe, es gibt keine Fehler....

[himitsu]

Und was ist bei AssignFile(SourceF, 'Z:\123.zip'); // Z: ?

[AlexII]

Zitat von himitsu:

Und was ist bei AssignFile(SourceF, 'Z:\123.zip'); // Z: ?

Also der Code ohne Progressbar funktioniert wie geschmiert, kaum blickt man schon ist alles fertig kopiert, aber sobald ich die Zeile ProgressBar3.Position := ProgressBar3.Position + NumRead; einfüge... hängt das Programm.

[himitsu]

Wetten ich gewinn die Wette?
Dein Programm hängt, das bekommt Windows mit und ersetzt dein Fenster.

Ja, der Code funktioniert, aber sowas macht man dennoch nicht.
Das ist ja schlimmer als ein

Delphi-Quellcode:

try
  i := StrToInt(S);
except
  i := 0;
end;