(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL loSb
LOCAL i
LOCAL lcCompressedStr
LOCAL loBd
LOCAL loCompress
LOCAL lcDecompressedStr

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* Create data to be compressed.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
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
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
loBd.AppendEncoded(lcCompressedStr,"base64")

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

* Decompress
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Compression')
loCompress = CreateObject('Chilkat.Compression')
loCompress.Algorithm = "bzip2"
loCompress.DecompressBd(loBd)

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

RELEASE loCrypt
RELEASE loSb
RELEASE loBd
RELEASE loCompress