(Lianja) Replacment for Deprecated Crypt2 Compress Functions

The Chilkat Crypt2 compression functions are deprecated and will be removed. This example shows how to duplicate the functionality using the Chilkat Compression class.

Chilkat Lianja Extension Download Chilkat Lianja Extension

loCrypt = createobject("CkCrypt2")

// Create data to be compressed.
loSb = createobject("CkStringBuilder")
i = 0
do while i < 25
    loSb.Append("Hello World, this is a test." + Chr(13) + Chr(10))
    i = i + 1
enddo

// Bzip2 compress the utf-8 byte representation of the string and return the compressed data as base64.
loCrypt.Charset = "utf-8"
loCrypt.EncodingMode = "base64"
lcCompressedStr = loCrypt.CompressStringENC(loSb.GetAsString())

? lcCompressedStr

// Result: 4aeUs+4CAABCWmgzMUFZJlNZZ6znBgAAfNeAABJABQBAAIAmZJwAIABwUNNMAAUqoekYjMp4ixF1FlFxF8i5i1FvFwizF9iwi9RdxaizF7RZi6i0ixF3Fui/i7kinChIM9ZzgwA=

// The result contains an 8-byte header composed of a 4-byte magic number (0xB394A7E1) and a 4-byte length.
// Do the following to BZip2 decompress using Chilkat Compression
loBd = createobject("CkBinData")
loBd.AppendEncoded(lcCompressedStr,"base64")

// Remove the 8-byte header.
loBd.RemoveChunk(0,8)

// Decompress
loCompress = createobject("CkCompression")
loCompress.Algorithm = "bzip2"
loCompress.DecompressBd(loBd)

// Get the decompressed string.
lcDecompressedStr = loBd.GetString("utf-8")
? lcDecompressedStr


release loCrypt
release loSb
release loBd
release loCompress