zip funktionen für delphi ?

[agm65]

gibt es sowas ? also zip + unzip ? danke

[mkinzler]

http://www.torry.net/quicksearchd.ph...=zip&Title=Yes

[agm65]

und bei den jedis ist nichts dabei ?

[MarcoWarm]

Zitat:

Zitat von agm65

und bei den jedis ist nichts dabei ?

wenn du weißt, wo du suchen musst, kannst du dir die Frage doch selber beantworten:

JvZlibMultiple

[agm65]

lol, danke dir

[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 ?

[agm65]

*push*

[Lun]

Hi,

ich verwende die freie komponente KAZip v.2.0

Bekommste hier

- Komponente installieren

- Instanz erzeugen KAZip1: TKAZip;

- Aufruf : KAZip1.ExtractAll('C:\testordner\newzip');

- fertig

greetz Lun

[agm65]

das steht nur 2005, geht die auch mit 2006 ?

[Matze]

Normalerweise müsste es auch gehen, sonst musst du sie eben anpassen, aber ich dachte dein Problem hat sich erledigt.

[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

[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"...