Form hängt sich bei der Schleife auf

[Back2Code]

Meine Form gibt keine Rückmeldung mehr, auch nicht die Progressbar erst wenn die Schleife beendet ist geht sie mit einem Ruck voll.

Hier die prozedur:

Delphi-Quellcode:

// 1 MB = 1048576 Byte
procedure TForm2.BumpExe(sPfad: string);
var i: integer;
    buffer : TBytes;
    dataByte: Byte;
begin
  FileStream := (TFileStream.Create(sPfad, fmOpenWrite,fmShareDenyNone));
  ProgressBar1.Position := 0;
  try
    SetLength(Buffer, FileStream.Size); //Buffergröße anhand des Filestreamsize festlegen
    SetLength(bytearray, FileStream.Size); //Bytearray anhand des Filestreamsize festlegen
    ProgressBar1.Max := Length(Buffer);
    fileStream.seek(0,soFromEnd);
    dataByte := 0;
    Progressbar1.Max := berechneteteBytes;
    for i := 1 to berechneteteBytes do
      begin
        FileStream.WriteBuffer(dataByte,1);
        ProgressBar1.Position :=i;
      end;
  finally
    MessageDlg('Exe wurde erfolgreich um ' + IntToStr(berechneteteBytes) + ' Bytes gepumpt. ', mtInformation, [mbOK], 0);
    FileStream.Free;
  end;
end;

Wie kann ich die Schleife jetzt so optimieren, dass sich das Programm während der Schleife nicht mehr aufhängt :)?

[EWeiss]

Ein

Delphi-Quellcode:

Application.ProcessMessages;

könnte in dem Fall abhilfe schaffen.

Delphi-Quellcode:

    for i := 1 to berechneteteBytes do
       begin
         FileStream.WriteBuffer(dataByte,1);
         ProgressBar1.Position :=i;
         Application.ProcessMessages;
       end;

gruss

[Back2Code]

Funktioniert. Dankeschön für die Hilfe. Kann gecloseed werden.

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

[Luckie]

Threads wären hier wohl angebracht.

[Back2Code]

Zitat:

Zitat von sx2008 (Beitrag 1203370)

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;

[Luckie]

Es reicht wahrscheinlich aus, wenn du die Fortschrittsanzeige nur bei jedem 10. Durchlauf aktualisierst. Dann wird es noch mal schneller, was das langsamste an dem Code ist sehr wahrscheinlich das Aktualisieren und Neuzeichen der Fortschrittsanzeige.

[sx2008]

Zitat:

Zitat von Robin2k (Beitrag 1203421)

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

Delphi-Quellcode:

mod

berechnen und mit

Delphi-Quellcode:

WriteBuffer

wegschreiben. Die Aktualiserung des Progressbars ist dabei nicht mehr sinnvoll.