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? :roll: Und welche Erkenntnisse hast du bisher beim Debuggen gewonnen?

[AlexII]

Zitat:

Zitat von Luckie (Beitrag 1303556)

WAS heißt funktioniert nicht? :roll: 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. :angle:

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:

Zitat von Dalai (Beitrag 1303560)

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:

Zitat von himitsu (Beitrag 1303563)

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

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

Delphi-Quellcode:

AssignFile(SourceF, 'Z:\123.zip');  // Z:

?

[AlexII]

Zitat:

Zitat von himitsu (Beitrag 1303567)

Und was ist bei

Delphi-Quellcode:

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

Delphi-Quellcode:

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. :roll:

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;

[BUG]

Der Code ist auch sonst nicht wirklich robust. Wenn WriteRead mal (aus welchem Grund auch immer) nicht die volle Anzahl von Bytes schreibt, wird der Rest des Puffers einfach vergessen.

Zitat:

Zitat von AlexII (Beitrag 1303568)

Also der Code ohne Progressbar funktioniert wie geschmiert, kaum blickt man schon ist alles fertig kopiert, aber sobald ich die Zeile

Delphi-Quellcode:

ProgressBar3.Position := ProgressBar3.Position + NumRead;

einfüge... hängt das Programm.

Aus der Hüfte geschossen: füge mal ein

Delphi-Quellcode:

Application.ProcessMessages;

in der Schleife ein.

[AlexII]

Zitat:

Zitat von himitsu (Beitrag 1303569)

Wetten ich gewinn die Wette?

Dein Programm hängt, das bekommt Windows mit und ersetzt dein Fenster. :roll:

Was meinst Du damit? :?

Vielleicht soll ich mich besser ausdrucken. Also der Code ohne Progressbar funktioniert einwandfrei, auch wenn da Optimierungsbedarf besteht. Nun wollte ich dem Kopiervorgang eine Progressbar "anhängen" um zu sehen wie lange der Kopiervorgang dauert. Ich füge dem Code die Zeilen

Delphi-Quellcode:

ProgressBar3.Min := 0;
ProgressBar3.Max := FileSize(SourceF);
...
...
ProgressBar3.Position := ProgressBar3.Position + NumRead;

an - und das Prog hängt. Das Problem liegt wohl irgendwo in der Progressbar.

[Dalai]

Bist du denn nun mal mit dem Debugger zeilenweise durch den Code gesteppt? Dann siehst du vielleicht auch das Problem.

MfG Dalai

[AlexII]

Zitat:

Zitat von himitsu (Beitrag 1303569)

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

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;

Was macht man denn nicht?

[AlexII]

Zitat:

Zitat von BUG (Beitrag 1303570)

Der Code ist auch sonst nicht wirklich robust. Wenn WriteRead mal (aus welchem Grund auch immer) nicht die volle Anzahl von Bytes schreibt, wird der Rest des Puffers einfach vergessen.

Zitat:

Zitat von AlexII (Beitrag 1303568)

Also der Code ohne Progressbar funktioniert wie geschmiert, kaum blickt man schon ist alles fertig kopiert, aber sobald ich die Zeile

Delphi-Quellcode:

ProgressBar3.Position := ProgressBar3.Position + NumRead;

einfüge... hängt das Programm.

Aus der Hüfte geschossen: füge mal ein

Delphi-Quellcode:

Application.ProcessMessages;

in der Schleife ein.

Bringt leider nichts...

[BadenPower]

Zitat:

Zitat von AlexII (Beitrag 1303558)

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:

Zitat von BadenPower (Beitrag 1303582)

Zitat:

Zitat von AlexII (Beitrag 1303558)

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:

Zitat von AlexII (Beitrag 1303583)

Echt? Wow... mit Lazarus getestet?

Nein, mit QBasic aus dem Jahre 1980.

Natürlich mit Lazarus.

Zitat:

Zitat von AlexII (Beitrag 1303583)

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.

[AlexII]

Aber bei kleineren Dateien ca. 200MB kommt die Meldung "Fertig" schneller als die ProgressBar voll ist. Ist das normal so?

[Popov]

Warum sollte das so normal sein? Das würde Einsteins Relativitäts Theorie widersprechen. Etwas meldet Vollzug, obwohl es noch nicht da ist.

Ausgenommen deine Funktion ist ein Schleimer, der sich bei dir einschleimen möchte und sich versucht besser darzustellen als es ist. Auch im Berufsleben gibt es solche Leute, ist aber ein anderes Thema ;)

[Sir Rufo]

Ja, das ist normal

[Perlsau]

Zitat:

Zitat von BadenPower (Beitrag 1303586)

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

Man muß ja auch nicht zwangsläufig die Dateigröße hernehmen, um die Position der Progressbar zu setzen. Ich setze Max der Progressbar immer auf 100 und berechne, wieviel Prozent des Gesamtwertes bereits abgearbeitet wurde. Diese Prozentzahl wird dann dem Position-Property der Progressbar zugewiesen. Damit bin ich unabhängig von irgendwelchen Integerüberläufen ...

[bcvs]

Zitat:

Zitat von AlexII (Beitrag 1303587)

Aber bei kleineren Dateien ca. 200MB kommt die Meldung "Fertig" schneller als die ProgressBar voll ist. Ist das normal so?

Die Progressbar von Windows 7 ist animiert und hat eine bestimmte Mindestgeschwindigkeit. Daher kann es unter diesen Umständen so aussehen, dass sie hinterherhinkt.

[Popov]

Zitat:

Zitat von AlexII (Beitrag 1303587)

Aber bei kleineren Dateien ca. 200MB kommt die Meldung "Fertig" schneller als die ProgressBar voll ist. Ist das normal so?

Ups, mein Fehler. Ich hab (falsch) gelesen, dass die ProgressBar fertig meldet, bevor der Kopiervorgang abgeschlossen ist. Da bin ich aber früh, da es sonst die RT widerlegt hätte.

[AlexII]

Zitat:

Zitat von bcvs (Beitrag 1303602)

Zitat:

Zitat von AlexII (Beitrag 1303587)

Aber bei kleineren Dateien ca. 200MB kommt die Meldung "Fertig" schneller als die ProgressBar voll ist. Ist das normal so?

Die Progressbar von Windows 7 ist animiert und hat eine bestimmte Mindestgeschwindigkeit. Daher kann es unter diesen Umständen so aussehen, dass sie hinterherhinkt.

Ok, das erklärt das... habe ich fast vermutet.