/packages/paszlib/examples/example2.pas
https://github.com/slibre/freepascal · Pascal · 33 lines · 18 code · 7 blank · 8 comment · 0 complexity · 69a338110354b1df1fd4032faa73db0b MD5 · raw file
- 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.