/packages/paszlib/examples/example2.pas

 1program EnhancedZipperExample;
 2
 3{$mode objfpc}{$H+}
 4
 5uses
 6  Classes, zstream, zipper;
 7
 8var
 9   z: TZipper;
10   zfe: TZipFileEntry;
11begin
12  z:=TZipper.Create;
13  z.FileName:='fpcCompressionLevelTestFile.zip';
14  try
15    //Default Compression Level
16    zfe:=z.Entries.AddFileEntry(ParamStr(0));
17    //Compression Level = none ( Store )
18    zfe:=z.Entries.AddFileEntry(ParamStr(0));
19    zfe.CompressionLevel:=clnone;
20    z.ZipAllFiles;
21  finally
22    z.Free;
23  end;
24  {
25   The result can be checked with the command(On Linux):
26   unzip -v fpcCompressionLevelTestFile.zip
27   The column Method Shows different values to each file
28  }
29end.
30
31
32
33