paszlib is a Pascal conversion (thus without dependancies) of the standard zlib library, implemented by Jacques Nomssi Nzali (his old homepage is dead, see a continuation of the project here) It is used in the FCL to implement the TCompressionStream class. The main unit of this package is paszlib. there are other, auxiliary units, but the only unit that needs to be included in a typical program is this one. (View interface)
Create zip file named as parameter 1 from files entered as rest parameters.
uses Zipper; var Zipper: TZipper; begin try Zipper := TZipper.Create; Zipper.FileName := ParamStr(1); for I := 2 to ParamCount do Zipper.Entries.AddFileEntry(ParamStr(I), ParamStr(I)); Zipper.ZipAllFiles; finally Zipper.Free; end; end.
Unzip all files contained in archive with name given by ZipFilePath to directory entered as UnzippedFolderName.
uses Zipper; var UnZipper: TUnZipper; begin UnZipper := TUnZipper.Create; try UnZipper.FileName := ZipFilePath; UnZipper.OutputPath := UnzippedFolderName; UnZipper.Examine; UnZipper.UnZipAllFiles; finally UnZipper.Free; end; end.
More examples can be found in FPC source directory 
Go to back Packages List