Form hängt sich bei der Schleife auf

[Back2Code]

Zitat von sx2008:

Wenn du jedes Byte einzeln kopierst dann bist du ca 50-fach langsamer als wenn du jeweils 4K-Byte Blöcke kopierst!
Ausserdem bremst die häufige Aktualiserung des Progressbars noch zusätzlich den Ablauf.

Habs so gemacht:

Code:

    optimiert := berechneteteBytes div 1024;
    Progressbar1.Max := optimiert; //
    for i := 1 to optimiert do
      begin
        FileStream.WriteBuffer(dataByte, 1024);
        ProgressBar1.Position :=i;
        Application.ProcessMessages;
      end;