LZ4MBS.Compress(InputData as MemoryBlock) as MemoryBlock

// some 10 million zeros will compress well
Var m As New MemoryBlock(100000000)

// compress
Var c As MemoryBlock = LZ4MBS.Compress(m)

// decompress
Var d As MemoryBlock = LZ4MBS.Decompress(c)

// and check
If d.Size = m.size Then
  MsgBox "Sizes match"
Else
  MsgBox "Sizes don't match"
End If

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns string on success.

See also:

• Compress(InputData as Ptr, Size as Integer) as MemoryBlock
• Compress(InputData as string) as string

LZ4MBS.Compress(InputData as Ptr, Size as Integer) as MemoryBlock

Same as memoryblock version, but with ptr parameter, so you can pass ptr with size.
Works also for passing memoryblocks and a custom size.

See also:

• Compress(InputData as MemoryBlock) as MemoryBlock
• Compress(InputData as string) as string

LZ4MBS.Compress(InputData as string) as string

Var m As String = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Lorem ipsum dolor site amat."

// make sure encoding is set
m = ConvertEncoding(m, encodings.UTF8)

// compress
Var c As String = LZ4MBS.Compress(m)

// decompress
Var d As String = LZ4MBS.Decompress(c)

// set encoding after decompressing
d = DefineEncoding(d, encodings.UTF8)

// and check
If d = m Then
  MsgBox "Text match"
Else
  MsgBox "Text doesn't match"
End If

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns string on success.

See also:

• Compress(InputData as MemoryBlock) as MemoryBlock
• Compress(InputData as Ptr, Size as Integer) as MemoryBlock

LZ4MBS.CompressFast(InputData as MemoryBlock, Acceleration as Integer = 1) as MemoryBlock

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns string on success.

Same as Compress(), but allows selection of "acceleration" factor.
The larger the acceleration value, the faster the algorithm, but also the lesser the compression.
It's a trade-off. It can be fine tuned, with each successive value providing roughly +~3% to speed.
An acceleration value of "1" is the same as regular Compress()
Values <= 0 will be replaced by AccelerationDefault (currently = 1).

See also:

• CompressFast(InputData as Ptr, Size as Integer, Acceleration as Integer = 1) as MemoryBlock
• CompressFast(InputData as string, Acceleration as Integer = 1) as string

LZ4MBS.CompressFast(InputData as Ptr, Size as Integer, Acceleration as Integer = 1) as MemoryBlock

Same as memoryblock version, but with ptr parameter, so you can pass ptr with size.
Works also for passing memoryblocks and a custom size.

See also:

• CompressFast(InputData as MemoryBlock, Acceleration as Integer = 1) as MemoryBlock
• CompressFast(InputData as string, Acceleration as Integer = 1) as string

LZ4MBS.CompressFast(InputData as string, Acceleration as Integer = 1) as string

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns string on success.

Same as Compress(), but allows selection of "acceleration" factor.
The larger the acceleration value, the faster the algorithm, but also the lesser the compression.
It's a trade-off. It can be fine tuned, with each successive value providing roughly +~3% to speed.
An acceleration value of "1" is the same as regular Compress()
Values <= 0 will be replaced by AccelerationDefault (currently = 1).

See also:

• CompressFast(InputData as MemoryBlock, Acceleration as Integer = 1) as MemoryBlock
• CompressFast(InputData as Ptr, Size as Integer, Acceleration as Integer = 1) as MemoryBlock

LZ4MBS.CompressHC(InputData as MemoryBlock, compressionLevel as Integer = 9) as MemoryBlock

// lets make some data to compress
Var p As Picture = LogoMBS(500)
Var m As MemoryBlock = p.GetData(Picture.FormatBMP)

// compress
Var c1 As MemoryBlock = LZ4MBS.Compress(m)
Var c2 As MemoryBlock = LZ4MBS.CompressHC(m, LZ4MBS.CompressionLevelMin)
Var c3 As MemoryBlock = LZ4MBS.CompressHC(m, LZ4MBS.CompressionLevelDefault)
Var c4 As MemoryBlock = LZ4MBS.CompressHC(m, LZ4MBS.CompressionLevelOptMin)
Var c5 As MemoryBlock = LZ4MBS.CompressHC(m, LZ4MBS.CompressionLevelMax)


MsgBox _
  Str(c1.Size)+" normal"+EndOfLine+_
  Str(c2.size)+" min"+EndOfLine+_
  Str(c3.size)+" default"+EndOfLine+_
  Str(c4.size)+" opt min"+EndOfLine+_
  Str(c5.size)+" max"

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns string on success.

Compression level, with # being any value from 1 to 12. Higher values trade compression speed for compression ratio. Values above 12 are considered the same as 12. Recommended values are 1 for fast compression (default), and 9 for high compression. Speed/compression trade-off will vary depending on data to compress\. Decompression speed remains fast at all settings.

See also:

• CompressHC(InputData as Ptr, Size as Integer, compressionLevel as Integer = 9) as MemoryBlock
• CompressHC(InputData as string, compressionLevel as Integer = 9) as string

LZ4MBS.CompressHC(InputData as Ptr, Size as Integer, compressionLevel as Integer = 9) as MemoryBlock

Same as memoryblock version, but with ptr parameter, so you can pass ptr with size.
Works also for passing memoryblocks and a custom size.

See also:

• CompressHC(InputData as MemoryBlock, compressionLevel as Integer = 9) as MemoryBlock
• CompressHC(InputData as string, compressionLevel as Integer = 9) as string

LZ4MBS.CompressHC(InputData as string, compressionLevel as Integer = 9) as string

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns string on success.

Compression level, with # being any value from 1 to 12. Higher values trade compression speed for compression ratio. Values above 12 are considered the same as 12. Recommended values are 1 for fast compression (default), and 9 for high compression. Speed/compression trade-off will vary depending on data to compress\. Decompression speed remains fast at all settings.

See also:

• CompressHC(InputData as MemoryBlock, compressionLevel as Integer = 9) as MemoryBlock
• CompressHC(InputData as Ptr, Size as Integer, compressionLevel as Integer = 9) as MemoryBlock

LZ4MBS.Decompress(CompressedData as MemoryBlock, UncompressedSize as Integer = 0) as MemoryBlock

// some 10 million zeros will compress well
Var m As New MemoryBlock(100000000)

// compress
Var c As MemoryBlock = LZ4MBS.Compress(m)

// decompress
Var d As MemoryBlock = LZ4MBS.Decompress(c)

// and check
If d.Size = m.size Then
  MsgBox "Sizes match"
Else
  MsgBox "Sizes don't match"
End If

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns memoryblock on success.

If UncompressedSize is zero, we try to determinate it.
If you know the size of decompressed data, please pass it to make function more efficient.

See also:

• Decompress(CompressedData as Ptr, Size as Integer, UncompressedSize as Integer = 0) as MemoryBlock
• Decompress(CompressedData as string, UncompressedSize as Integer = 0) as string

LZ4MBS.Decompress(CompressedData as Ptr, Size as Integer, UncompressedSize as Integer = 0) as MemoryBlock

Same as memoryblock version, but with ptr parameter, so you can pass ptr with size.
Works also for passing memoryblocks and a custom size.

If UncompressedSize is zero, we try to determinate it.
If you know the size of decompressed data, please pass it to make function more efficient.

See also:

• Decompress(CompressedData as MemoryBlock, UncompressedSize as Integer = 0) as MemoryBlock
• Decompress(CompressedData as string, UncompressedSize as Integer = 0) as string

LZ4MBS.Decompress(CompressedData as string, UncompressedSize as Integer = 0) as string

Var m As String = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Lorem ipsum dolor site amat."

// make sure encoding is set
m = ConvertEncoding(m, encodings.UTF8)

// compress
Var c As String = LZ4MBS.Compress(m)

// decompress
Var d As String = LZ4MBS.Decompress(c)

// set encoding after decompressing
d = DefineEncoding(d, encodings.UTF8)

// and check
If d = m Then
  MsgBox "Text match"
Else
  MsgBox "Text doesn't match"
End If

Raises exception on failure (OutOfMemoryException or UnsupportedOperationException) and returns memoryblock on success.

If UncompressedSize is zero, we try to determinate it.
If you know the size of decompressed data, please pass it to make function more efficient.

See also:

• Decompress(CompressedData as MemoryBlock, UncompressedSize as Integer = 0) as MemoryBlock
• Decompress(CompressedData as Ptr, Size as Integer, UncompressedSize as Integer = 0) as MemoryBlock

LZ4MBS.LibVersion as string