LZ4 Compression and Decompression for Lazarus

[Tomxe]

License: MIT
https://github.com/Xelitan/LZ4-Compression-Decompression-for-Delphi-Lazarus

Usage examples:

Code: Pascal  [Select][+][-]

1. var F,S: TFileStream;
2.     Size: Integer;
3. begin
4.   LZ4_COMPRESSION := 1; //small files but slow
5.   LZ4_COMPRESSION := 50; //bigger files, faster
6.  
7.   F := TFileStream.Create('input.txt', fmOpenRead);
8.   S := TFileStream.Create('output.lz4', fmCreate);
9.   LZ4(F, S);
10.   Size := F.Size;
11.   F.Free;
12.   S.Free;
13.  
14.   F := TFileStream.Create('output.lz4', fmOpenRead);
15.   S := TFileStream.Create('output.txt', fmCreate);
16.   UnLZ4(F, S, Size);
17.   F.Free;
18.   S.Free;
19. end;

Code: Pascal  [Select][+][-]

1. ShowMessage(UnLZ4(LZ4('Hello World')));

[cdbc]

Hi
It might be a good idea, to mention that it's winders only...
Otherwise nifty...
Regards Benny

[Tomxe]

If you replace .DLL with Linux's .SO it should work fine on Linux.

[PascalDragon]

My remarks from here apply for this unit as well.

[Okoba]

@Tomxe you are doing great. Thank you.
If you can prepare and release or link to DLL for other platforms, it would be better too.

[Tomxe]

Here's how you can use this on Debians (Debian, Ubuntu, Kubuntu, Mint etc.):

1) apt install apt-file
2) apt install liblz4-dev
3) apt-file search liblz4.so
It will list you how your liblz4.so files are named *exactly* and where they are
In my case I have:
/usr/lib/x86_64-linux-gnu/liblz4.so.1

4) Open LZ4Lib.pas and edit  const LZ4_LIB
5) Change the value of that const. In my case to 'liblz4.so.1'
6) Compile and run