(Lianja) Compress Bytes to Base64 (or any other encoding)

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

// First create some binary data to compress.
loBinData = createobject("CkBinData")

for i = 1 to 16
    loBinData.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
next

loCompress = createobject("CkCompression")
loCompress.Algorithm = "deflate"
loCompress.EncodingMode = "base64"

loUncompressedBytes = loBinData.GetBinary()

// Compress and return the compressed bytes in base64 format.
lcCompressedBase64 = loCompress.CompressBytesENC(loUncompressedBytes)
? "compressed and base64 encoded: " + lcCompressedBase64

// Compress and return in hex format:
loCompress.EncodingMode = "hex"
lcCompressedHex = loCompress.CompressBytesENC(loUncompressedBytes)
? "compressed and hex encoded: " + lcCompressedHex

// Now decompress..
loBinData2 = createobject("CkBinData")

// Decompress the base64..
loCompress.EncodingMode = "base64"
loUncompressedBytes = loCompress.DecompressBytesENC(lcCompressedBase64)
loBinData2.AppendBinary(loUncompressedBytes)
// Show the uncompressed bytes in hex format:
? loBinData2.GetEncoded("hex")
? "--"

// Decompress the hex..
loCompress.EncodingMode = "hex"
loUncompressedBytes = loCompress.DecompressBytesENC(lcCompressedHex)
loBinData2.Clear()
loBinData2.AppendBinary(loUncompressedBytes)
// Show the uncompressed bytes in hex format:
? loBinData2.GetEncoded("hex")
? "--"


release loBinData
release loCompress
release loBinData2