Threads mit Ereignissen

**Nersgatt**

Hm, scheinbar lässt sich in der Tat das Problem auf das Entpacken reduzieren. Kommentier ich das aus, läuft es immer durch.

Die Abfrage auf das Busy-Flag fehlte in der Tat. Aber trotzdem scheint es da noch ein Problem zu geben. Fällt jemandem etwas auf?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TfrmImportPSM.UnzipFile(AFilename: String);

var

  zip: TZipMaster19;

begin

  DeleteFileWhenExist(ChangeFileExt(AFilename, '.fdb'));

  zip := TZipMaster19.Create(nil);

  try

    zip.ZipFileName := AFilename;

    zip.ExtrBaseDir := ExtractFilePath(AFilename);

    zip.Extract;

    while zip.Busy do

      application.ProcessMessages;

  finally

    zip.Free;

  end;

end;

Threads mit Ereignissen

AW: Threads mit Ereignissen

Forumregeln