mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-16 12:58:21 +02:00
34 lines
633 B
ObjectPascal
34 lines
633 B
ObjectPascal
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.
|
|
|
|
|
|
|
|
|