Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi ZipMaster: Datei unter anderem Namen auspacken (https://www.delphipraxis.net/54486-zipmaster-datei-unter-anderem-namen-auspacken.html)

Brainshock 5. Okt 2005 10:13


ZipMaster: Datei unter anderem Namen auspacken
 
Hi,

ist es möglich mit Hilfe der ZipMaster Komponente eine Datei aus einer Zip-Datei unter einem anderen Namen auszupacken?

Gruß
Matthias

SearchBot 9. Okt 2005 21:23

Re: ZipMaster: Datei unter anderem Namen auspacken
 
Ja, das geht.

Ich hab meinen Code grad nicht da, aber ich seh mal nach.
War irgendwas mit ExtractTo oder so...

Brainshock 10. Okt 2005 07:43

Re: ZipMaster: Datei unter anderem Namen auspacken
 
@SearchBot: Danke, hoffentlich findest du was. Ich habe schon gar nicht mehr daran geglaubt, dass überhaupt noch jemand antwortet.

Gruß

Brainshock 10. Okt 2005 10:01

Re: ZipMaster: Datei unter anderem Namen auspacken
 
eine Lösung:

mit der Funktion:
Delphi-Quellcode:
Function ExtractFileToStream( Filename: String ): TZipStream;
die gewünschte Datei in einen Stream laden und anschließend unter einem neuen Dateinamen speichern. (Die Funktion gab es in meiner Uralt-Version von TZipMaster noch nicht, deshalb das Problem)

Gruß

SearchBot 11. Okt 2005 17:32

Re: ZipMaster: Datei unter anderem Namen auspacken
 
Servus,

da liegst du schon richtig.

Ich habe ZipMaster v1.60L (nenn ich zippi) und mache das so:
Delphi-Quellcode:
zippi.ExtractToStream(Dateiname);
zippi.ZipStream.SaveToFile(neuerDateiName);
... und nebenbei stell ich noch fest, ob die Komponente beschäftigt ist. Ist das nämlich so und ich will erneut was auspacken, gibts einen dummen Unzip.dll-Fehler...

Delphi-Quellcode:
if zippi.unzBusy then exit;


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz