2+ Datein bzw. ganzen Ordner packen.

[Bladefire]

Hallo,

Ich habe im Internet lange gesucht aber keiner der gefundenen dinge hat funktioniert. Ich möchte 2 oder mehr Datein in eine datei packen (und komprimieren) und diese später wieder entpacken / entkomprimieren.

Wie kann ich dies heutzutage (am einfachsten) realisieren?


Lg Simon

[mkinzler]

Z.B. durch Zippen
http://sourceforge.net/projects/tpabbrevia/
http://www.delphizip.org/
http://www.yunqa.de/delphi/doku.php/...ipwriter/index

Oder ab XE2(?) nativ mit TZipFile (Unit System.Zip)

[hathor]

Ja, ab XE2 ist es einfach:

http://stackoverflow.com/questions/1...r-using-delphi
http://delphiblog.twodesk.com/native...-in-delphi-xe2

If you are using Delphi X2, just use TZipFile from System.Zip:

Delphi-Quellcode:

//To Zip a folder, use:

TZipFile.ZipDirectoryContents('ZipFile.zip', 'C:\Zip\this\right\now');

//To Zip files, use:

Zip := TZipFile.Create;
try
  Zip.Open('ZipFile.zip', zmWrite);

  Zip.Add('FileToBeZipped.txt')
  Zip.Add('ThisWillBeCompressedAgainForSureAndBecomeSmaller.zip')
finally
  Zip.Free;
end

[Bladefire]

Danke, das mit TZipfile funktioniert bestens.

[Bladefire]

Noch eine kurze zusatzfrage:


Kann ich daten auch zippen und entzippen (mi Unit System.Zip ) wenn auf dem Betriebsystem wo man das Programm ausführt keine anwendungssoftware vorhanden ist (oder welche die bereits ins betriebsystem integriert ist) womit man daten zippen kann? Also könnte ich damit auch Etwas unter Windows 95 zippen und entzippen?

[Dalai]

Zitat von Bladefire:

also könnte ich damit auch Etwas unter Windows 95 zippen und entzippen?

Da stellt sich mir sofort die Frage, mit welchem aktuellen Delphi (das TZipFile enthält) du heute noch Programme schreiben kannst, die unter Win9x laufen. Ich schätze mal, spätestens seit der Unicode-Umstellung in Delphi (ab 2009) ist da Schluss mit lustig. Für Win2k sollte das aber funktionieren, vermute ich mal.

MfG Dalai

[hathor]

Siehe hier:
http://www.pkware.com/documents/casestudies/APPNOTE.TXT