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?
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;