Datei kopieren, ProgressBar einbauen?

[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 von AlexII:

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.

Aus der Hüfte geschossen: füge mal ein Application.ProcessMessages; in der Schleife ein.

[AlexII]

Zitat von himitsu:

Wetten ich gewinn die Wette?

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

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 von 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;

Was macht man denn nicht?

[AlexII]

Zitat von 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 von AlexII:

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.

Aus der Hüfte geschossen: füge mal ein Application.ProcessMessages; in der Schleife ein.

Bringt leider nichts...

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

[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