Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
Ok, das erklärt das... habe ich fast vermutet.
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
Aber bei kleineren Dateien ca. 200MB kommt die Meldung "Fertig" schneller als die ProgressBar voll ist. Ist das normal so?
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
Echt? Wow... mit Lazarus getestet?
Eine 3GB Datei wird bei mir nicht kopiert
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
Was macht man denn nicht?
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
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
ProgressBar3.Min := 0;
ProgressBar3.Max := FileSize(SourceF);
...
......
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
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.
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
Wie ich schon geschrieben habe, es gibt keine Fehler....
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
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.
Forum: Lazarus (IDE)
by AlexII,
29. Mai 2015
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?
procedure TMainForm.Button1Click(Sender: TObject);
var
SourceF, TargetF: File;
Buffer: array of Char;
NumRead, NumWritten: Int64;