zip funktionen für delphi ?

[agm65]

hey danke man , jetzt gehts endlich ! 1000 dank !

[xZise]

Hi... Ich habe nach einen Entpacker von Zips gesucht und das hier gefunden... Nun habe ich das KAZip gedownloaded und wollte es installieren, aber die bzip2.pas fehlte... Okay... habe ich mir dann von hier geholt, aber jetzt sagt er:

Zitat:

[Pascal Fehler] BZip2.pas(154): E1026 Datei nicht gefunden: 'blocks.obj'
[Pascal Fehler] BZip2.pas(155): E1026 Datei nicht gefunden: 'huffman.obj'
[Pascal Fehler] BZip2.pas(156): E1026 Datei nicht gefunden: 'compress.obj'
[Pascal Fehler] BZip2.pas(157): E1026 Datei nicht gefunden: 'decompress.obj'
[Pascal Fehler] BZip2.pas(158): E1026 Datei nicht gefunden: 'bzlib.obj'

[omata]

Warum so kompliziert?

Schau doch mal hier.

Gruss
Thorsten

[Gehstock]

http://www.torry.net/pages.php?id=303 ad ist die komplette komponente

[xZise]

Was mache ich falsch?
Ich wollte testweise eine Zipdatei entpacken:

Delphi-Quellcode:

  if OpenDialog1.Execute then
begin
  MkDir(ExtractFilePath(OpenDialog1.FileName) + ExtractFileName(OpenDialog1.FileName) + 'Folder');
  KAZip1.ExtractToFile(OpenDialog1.FileName, ExtractFilePath(OpenDialog1.FileName) + ExtractFileName(OpenDialog1.FileName) + 'Folder');
end;

Aber das einzige was neu ist: Der Ordner :(

[xZise]

Zitat:

Zitat von Lun

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';

So funktionierts übrigens auch nicht :( Ich weis nicht weiter :(

[xZise]

Zitat:

Zitat von omata

Warum so kompliziert?

Schau doch mal hier.

Gruss
Thorsten

Und das funktioniert mit Zipdateien?
Welche Datei muss ich denn nehmen, und wie is der Aufruf?

PS: Mit KaZip bin ich immer noch nicht weiter!

[Lun]

Hi xZise,

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

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

[xZise]

Tatsächlich :shock:
Irgendwie ein bisschen buggy ^^ Weil, eigentlich muss er ja nichts überschreiben xD

PS: Wegen ForceDirs: imho ist "MkDir" besser, da dieser auch die Struktur erstellt.
Z.B. gibts den Ordner "C:\A" aber man will nach "C:\A\B\C" extrahieren, also "B\C" erstellen. und ForceDirs macht nur "B\" oder "C\"... und MkDir glaub ich "B\C"...