(Xojo Plugin) Compress Bytes to Base64 (or any other encoding)

Compresses bytes to base64 or any other encoding. Also decompress to return the original.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim success As Boolean

// First create some binary data to compress.
Dim binData As New Chilkat.BinData

Dim i As Int32
For i = 1 To 16
    success = binData.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
Next

Dim compress As New Chilkat.Compression
compress.Algorithm = "deflate"
compress.EncodingMode = "base64"

Dim uncompressedBytes As MemoryBlock
uncompressedBytes = binData.GetBinary()

// Compress and return the compressed bytes in base64 format.
Dim compressedBase64 As String
compressedBase64 = compress.CompressBytesENC(uncompressedBytes)
System.DebugLog("compressed and base64 encoded: " + compressedBase64)

// Compress and return in hex format:
compress.EncodingMode = "hex"
Dim compressedHex As String
compressedHex = compress.CompressBytesENC(uncompressedBytes)
System.DebugLog("compressed and hex encoded: " + compressedHex)

// Now decompress..
Dim binData2 As New Chilkat.BinData

// Decompress the base64..
compress.EncodingMode = "base64"
uncompressedBytes = compress.DecompressBytesENC(compressedBase64)
success = binData2.AppendBinary(uncompressedBytes)
// Show the uncompressed bytes in hex format:
System.DebugLog(binData2.GetEncoded("hex"))
System.DebugLog("--")

// Decompress the hex..
compress.EncodingMode = "hex"
uncompressedBytes = compress.DecompressBytesENC(compressedHex)
success = binData2.Clear()
success = binData2.AppendBinary(uncompressedBytes)
// Show the uncompressed bytes in hex format:
System.DebugLog(binData2.GetEncoded("hex"))
System.DebugLog("--")