Winzip library

[Christian Seehase]

Moin Lillebrohr,

also ich hab' das eben mal mit TAbZipper und TAbUnZipper ausprobiert gehabt.
Je eine Kompo davon auf's Formular, beim Unzipper dann noch in den ExtractOptions eoRestorePath auf true, alles übrige bleibt auf Default.
TempDirectory, FileName und BaseDirectory kann man auch im OI eintragen, ich hab's der Übersichtlichkeit halber mal hier eingebaut.

Delphi-Quellcode:

// Zippen
  AbZipper1.TempDirectory := 'c:\temp';
  AbZipper1.FileName      := 'c:\temp\myzip.zip';
  AbZipper1.BaseDirectory := 'E:\Ziptest';
  AbZipper1.AddFiles('gif\*.*',0);
  AbZipper1.Save;

// Entzippen
  AbUnZipper1.TempDirectory := 'c:\temp';
  AbUnZipper1.FileName      := 'c:\temp\myzip.zip';
  AbUnZipper1.BaseDirectory := 'E:\Unziptest';
  AbUnZipper1.ExtractFiles('*.*')

Direkt nacheinander ausgeführt, und unter E:\Unziptest stand nur das Gif Verzeichnis mit den enthaltenen Dateien.