Free-Pascal-port-of-LIBZPAQ-Version-7.15
Free Pascal port of LIBZPAQ Version 7.15 - ZPAQ compressor/decompressor
- Active · last change 5-23-2026
- ★ 5 on GitHub
README
Pascal port of LIBZPAQ Version 7.15 (Aug. 17, 2016)
License: MIT
Credits:
libdivsufsort (C) 2003-2008 Yuta Mori, license MIT
Some of the code for AES is from libtomcrypt 1.17 by Tom St. Denis, License: public domain
The Salsa20/8 code for Scrypt is by D. Bernstein, License: public domain
LibZPaq code by Matt Mahoney, License: public domain
LIBZPAQ is a library for compression and decompression http://mattmahoney.net/zpaq/
High-level classes
Usage- packing:
uses ZpaqClasses;
[...]
p := TZpaqPacker.Create('pack.zpaq');
p.SetMethod(1);
f := TFileStream.Create('input.txt', fmOpenRead);
p.AddFile(f, 'hello.txt');
f.Free;
p.Free;Usage - listing and unpacking:
uses ZpaqClasses;
[...]
u := TZpaqUnpacker.Create('pack.zpaq');
while u.NextEntry(name, size, date) do begin
f := TFileStream.Create(name, fmCreate);
u.Extract(f);
f.Free;
end;
u.Free;All at once:
uses ZpaqSimple;
[...]
function ZpaqCompressStreams(Infile, Outfile: TStream): Integer;
function ZpaqDecompressStreams(Infile, Outfile: TStream): Integer;
function ZpaqCompressFile(const Infilename, Outfilename: String): Integer;
function ZpaqDecompressFile(const Infilename, Outfilename: String): Integer;
function Zpaq(Uncompressed: AnsiString): AnsiString;
function UnZpaq(Compressed: AnsiString): AnsiString;