zip funktionen für delphi ?

[mkinzler]

Sollte iegnetlich gehen, aber teste doch selber

[Robert Marquardt]

Zitat:

Zitat von agm65

hmm das entpacken sollte doch wie folgt laufen :

Delphi-Quellcode:

JvZlibMultiple.DecompressFile('h:\test.zip','h:\test',true,true)

ich krieg nen stream fehler ? eine idee ?

Was fuer einen Fehler gibt es denn genau? Es kann gut sein das JvZlibMultiple einige Kompressionsarten nicht unterstuetzt.

[agm65]

ja genau, damit kann man nur zip files entpacken, die auch damit gepackt wurden.


habe ein problem beim installieren von der KAZIP, der sagt mir Bzip2.dcu nicht gefunden ?

[agm65]

okay die dabei habe ich gefunden , jetzt fehlt irgendwie die:
[Pascal Fehler] BZip2.pas(138): E1026 Datei nicht gefunden: 'decompress.obj'

[Lun]

Hi du bist nah dran :wink:

Aber du solltest auch mal die Readme lesen da steht:

INSTALLATION
------------
If you want to enable BZIP2 functionality
1. Download BZIP2 pas files and put them in the KAZIP folder or
folder in the delphi search path
2. Open KAZip.Pas and change {DEFINE USE_BZIP2} to {$DEFINE USE_BZIP2}
Open KZ.DPK and press Install

Standard gemäß ist da {$DEFINE USE_BZIP2} nehme mal das $ in der KaZip.pas weg und dann probiers es mal.

Dann klappt das, war bei mir auch so. Nur ich hab die Readme gelesen :zwinker:

greetz Lun

[MrKnogge]

Andernfalls kannst du ja auch mal TurboPower Abbrevia ausprobieren.

Gruß

[agm65]

ich hab die readme auch gelesen und dann das $ entfernt , sonst hätte ich das garnicht installieren können. aber wie gesagt, jetzt fehlt noch diese eine datei . ??? [Pascal Fehler] BZip2.pas(138): E1026 Datei nicht gefunden: 'decompress.obj'

[agm65]

okay ich habs hingekriegt, ich penner hab zwar das $ entfernt aber die file nicht gesaved ;) danke euch allen nochmals

[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(?);

[Lun]

Hi agm65,

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

Delphi-Quellcode:

  //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:

pfad := 'C:\entpackt';
ForceDirectories(pfad);
Kazip1.ExtractAll(pfad);

greetz Lun