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.

[BadenPower]

Zitat von AlexII:

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.

Ich habe Deinen Code unverändert übernommen und getestet.
Der Code funktioniert und die Fortschrittsanzeige wird auch bei größeren Dateien aktuallisiert, so wie erwünscht.


Definiere bitte was bei Dir "große Dateien" sind.

[AlexII]

Zitat von BadenPower:

Zitat von AlexII:

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.

Ich habe Deinen Code unverändert übernommen und getestet.
Der Code funktioniert und die Fortschrittsanzeige wird auch bei größeren Dateien aktuallisiert, so wie erwünscht.


Definiere bitte was bei Dir "große Dateien" sind.

Echt? Wow... mit Lazarus getestet?
Eine 3GB Datei wird bei mir nicht kopiert

[BadenPower]

Zitat von AlexII:

Echt? Wow... mit Lazarus getestet?

Nein, mit QBasic aus dem Jahre 1980.

Natürlich mit Lazarus.

Zitat von AlexII:

Eine 3GB Datei wird bei mir nicht kopiert

So große kann ich nicht testen, da ich keine habe.

Aber bedenke, dass .Max und .Position, bei so großen Dateien den Wert welchen FileSize() und .Position+NumRead liefern, nicht darstellen können.

[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

[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?

[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 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....