(Visual FoxPro) Compress and Decompress a String

Demonstrates how to compress and decompress a string.

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

LOCAL lnSuccess
LOCAL loSb
LOCAL i
LOCAL loCompress
LOCAL loCompressedBytes
LOCAL lcCompressedBase64
LOCAL lcDecompressedString

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

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

FOR i = 1 TO 20
    loSb.Append("This is the original uncompressed string." + CHR(13) + CHR(10))
NEXT

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Compression')
loCompress = CreateObject('Chilkat.Compression')
loCompress.Algorithm = "deflate"
* Indicate that the utf-8 byte representation of the string should be compressed.
loCompress.Charset = "utf-8"

loCompressedBytes = loCompress.CompressString(loSb.GetAsString())

* If the compressed data is desired in string format, then get the base64 representation of the bytes.
loCompress.EncodingMode = "base64"
lcCompressedBase64 = loCompress.CompressStringENC(loSb.GetAsString())
? "Compressed Bytes as Base64: " + lcCompressedBase64

* Now decompress...
lcDecompressedString = loCompress.DecompressString(loCompressedBytes)
? "The original string after decompressing from binary compressed data:"
? lcDecompressedString

* To decompress from Base64...
loCompress.EncodingMode = "base64"
lcDecompressedString = loCompress.DecompressStringENC(lcCompressedBase64)
? "The original string after decompressing from Base64:"
? lcDecompressedString

RELEASE loSb
RELEASE loCompress