(Visual FoxPro) Compress Bytes to Base64 (or any other encoding)

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loBinData
LOCAL i
LOCAL loCompress
LOCAL loUncompressedBytes
LOCAL lcCompressedBase64
LOCAL lcCompressedHex
LOCAL loBinData2

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBinData = CreateObject('Chilkat.BinData')

FOR i = 1 TO 16
    loBinData.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
NEXT

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Compression')
loCompress = CreateObject('Chilkat.Compression')
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..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBinData2 = CreateObject('Chilkat.BinData')

* 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