Habs so gemacht:
Delphi-Quellcode:
optimiert := berechneteteBytes div 1024;
Progressbar1.Max := optimiert; //
for i := 1 to optimiert do
begin
FileStream.WriteBuffer(dataByte, 1024);
ProgressBar1.Position :=i;
Application.ProcessMessages;
end;
Was jetzt noch fehlt sind 2 Dinge:
1.) muss die Variable "dataByte" einen anderen Namen (und Typ) bekommen und natürlich immer auch mit 1024 Bytes gefüllt sein
2.) darf man den Rest am Ende nicht vergessen. Dazu die Restlänge mit
mod
berechnen und mit
WriteBuffer
wegschreiben. Die Aktualiserung des Progressbars ist dabei nicht mehr sinnvoll.