Du meinst sowas in der Art?
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.ExtrBaseDir := 'C:\temp';
zip.Extract;
while zip.Busy do
application.ProcessMessages;
finally
zip.Free;
end;
end;
So wird die Datei nach c:\temp entpackt, importiert wird jedoch aus dem urprünglichen Pfad (also nicht aus der gerade entpackten Datei).
Interessante Erkenntniss: es stürzt trotzdem ab!
Ich hatte ja vermutet, dass ZipMaster die entpackte Datei noch nicht ordentlich freigegeben hat. Aber das scheints nicht zu sein.
Wenn ich auch noch zip.Extract auskommentiere, dann läuft es wieder problemlos durch. Da scheint irgendwo in den Tiefen von ZipMaster irgendwas gehörig schief zu laufen.
