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