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:

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