zip funktionen für delphi ?

[Lun]

Hi xZise,

hier ein Tipp , den habe ich von dieser Seite dieses Beitrages :

Zitat:

von agm65

hey das ding will meine zip file nicht entpacken, ich gebe den filename an und den ziel ordner ..aber es passiert nichts ;( ..jemand eine idee ? kann ich hiermit auch wieder nur zips entpacken die ich mit dieser komponente gepackt habe ?

wie erstelle ich richtig die instanz dafür ?

KAZip1 := TKAZip.Create(?);

Die Antwort darauf:

Zitat:

von Lun

Hi agm65,

falls du dein Prob noch nicht gelöst hast ein Beispiel:

Delphi-Quellcode: markieren
//Das vorhandene Zip Verzeichnis
Kazip1.FileName := 'C:\zippi.zip';
Kazip1.active := true;
//Der Pfad wohin entpackt werden soll
Kazip1.ExtractAll('C:\');
Kazip1.Active := false;
Kazip1.Close;
Button1.Caption := 'Fertig';


In zippi.zip ist jetzt nur eine txt datei gepackt. Die entpacke ich direkt nach C:\
Was du beachten musst im Object Manager musst du bei den Eigenschaften die Overwrite Action einstellen ich hab es
jetzt auf :

oaOverwrite stehen.

Jetzt sollte es eigentlich funtzen. Falls du ein gezipptes Verzeichnis hast mit mehreren Dateien, dann musste mal sehen
bei Kazip1.ExtractAll('C:\beispielVerzeichnis'); meckert er dann das es das Verzeichnis noch nicht gibt.
Da musst du selber mal rumbasteln ob man das noch irgendwo einstellen kann das er das dann erzeugt, oder
baust dir ne funktion.

Edit: Hab nix dazu gefunden zum einstellen, die einfachste Lösung dafür ist vorher ein Verzeichnis selber zu erzeugen:

Delphi-Quellcode: markieren
pfad := 'C:\entpackt';
ForceDirectories(pfad);
Kazip1.ExtractAll(pfad);



greetz Lun

Das entscheidene dabei ist:

In zippi.zip ist jetzt nur eine txt datei gepackt. Die entpacke ich direkt nach C:\
Was du beachten musst im Object Manager musst du bei den Eigenschaften die Overwrite Action einstellen ich hab es
jetzt auf :

oaOverwrite stehen.

Hoffe ich konnte Dir weiter helfen

greetz Lun

P.S: Vielleicht schreibe ich mal ein Tut zu Kazip