Ich hab mit eine eigene Prozedure zum entpacken gecoded. Wenn man sie nur einmal ausführt geht alles gut. Wenn man sie aber unmittelbar danach ein 2tes Mal ausführt kommt ein Stack-Overflow(oder so...
). Hat jemand Ahnung woran das liegt?
Delphi-Quellcode:
procedure UnZipFile(QuellDatei, Zielordner:String);
begin
ZipMaster1 := TZipMaster.Create(ZipMaster1);
with Zipmaster1 do
begin
DLLDirectory:=ExtractFilePath(ParamStr(0));
ZipFilename:=QuellDatei;
ExtrBaseDir:=Zielordner;
Extract;
end;
//Zipmaster1.Free; kA ob Free oder Destroy
Zipmaster1.Destroy;
end;
Wie immer bin ich für jede Art von Antwort dankbar
