charonn0 / rb-liblzma Goto Github PK

liblzma is a free general purpose data compression library for the LZMA compression algorithm. LZMA is the basis for the XZ compressed file format.

RB-liblzma is a liblzma binding for Realbasic and Xojo projects.

The minimum supported liblzma version is 5.2.4. The minimum supported Xojo version is RS2009R3.

• Read and write compressed file or memory streams using a simple BinaryStream work-alike.
• Supports LZMA2, LZMA1, and XZ compressed streams

If you use this code in a commercial project, or just want to show your appreciation, please consider sponsoring me through GitHub. https://github.com/sponsors/charonn0

The recommended way to compress or decompress data is with the LZMAStream class. The LZMAStream is a BinaryStream work-alike, and implements both the Readable and Writeable interfaces. Anything written to a LZMAStream is compressed and emitted to the output stream (another Writeable); reading from a LZMAStream decompresses data from the input stream (another Readable).

Instances of LZMAStream can be created from MemoryBlocks, FolderItems, and objects that implement the Readable and/or Writeable interfaces. For example, creating an in-memory compression stream from a zero-length MemoryBlock and writing a string to it:

  Dim output As New MemoryBlock(0)
  Dim lz As New LZMA.LZMAStream(output) ' zero-length creates a compressor
  lz.Write("Hello, world!")
  lz.Close

The string will be processed through the compressor and written to the output MemoryBlock. To create a decompressor pass a MemoryBlock whose size is > 0 (continuing from above):

  lz = New LZMA.LZMAStream(output) ' output contains the compressed string
  MsgBox(lz.Read(256)) ' read the decompressed string

The other way to use LZMA is through the Encoder and Decoder classes found in the Codecs submodule. These classes provide a low-level wrapper to the LZMA API. All compression and decompression done using the LZMAStream class is ultimately carried out by an instance of an Encoder and Decoder class, respectively. You can construct instances directly, or use the GetCompressor and GetDecompressor helper methods.

  ' compress
  Dim encoder As New LZMA.Codecs.BasicEncoder(6, LZMA.ChecksumType.CRC32)
  Dim src As MemoryBlock = "Hello, world!"
  Dim inputstream As New BinaryStream(src)
  Dim dst As New MemoryBlock(0)
  Dim outputstream As New BinaryStream(dst)
  
  Do Until inputstream.EOF
    Call encoder.Perform(inputstream, outputstream, LZMA.EncodeAction.Run, -1)
  Loop
  Call encoder.Perform(Nil, outputstream, LZMA.EncodeAction.Finish, -1)
  inputstream.Close
  outputstream.Close
  
  ' decompress
  Dim decoder As New LZMA.Codecs.BasicDecoder(0, 0)
  Dim result As New MemoryBlock(0)
  inputstream = New BinaryStream(dst)
  outputstream = New BinaryStream(result)
  
  Do Until inputstream.EOF
    Call decoder.Perform(inputstream, outputstream, LZMA.EncodeAction.Run, -1)
  Loop
  
  inputstream.Close
  outputstream.Close
  MsgBox(result)

1. Download the RB-liblzma project either in ZIP archive format or by cloning the repository with your Git client.
2. Open the RB-liblzma project in REALstudio or Xojo. Open your project in a separate window.
3. Copy the LZMA module into your project and save.

LZMA is installed by default on some Unix-like operating systems, but may need to be installed separately.

Windows does not have it installed by default, you will need to ship the DLL with your application. You can download pre-built binaries from the XZ project page, or you can build them yourself from source (ibid.)

RB-liblzma will raise a PlatformNotSupportedException when used if all required DLLs/SOs/DyLibs are not available at runtime.