Datei zippen/ entzippen: TZipmaster oder Abbrevia

[sh17]

So geht es mit Abbrevia

Code:

uses  AbZipper, AbArcTyp,AbZipTyp,Abutils
  
var
  Zip : TAbZipper;
begin
  Zip := TAbZipper.Create(nil);
  try
  try
    Zip.CompressionMethodToUse := smBestMethod;
    //Zip.StoreOptions := Zip.StoreOptions + [soStripPath];
    Zip.ArchiveType := atZip;
    Zip.ForceType := true;
    //Zip.OpenArchive(Zipfilename);
    Zip.Stream := MeinStream;

    Zip.AddFiles(..,0);
    zip.CloseArchive;
  except
    on E:Exception do ...
  end;
  finally
    zip.Free;
  end;