Visual FoxPro

Compress String Feed to Base64

See more Compression Examples

This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed data in base64. Visual FoxPro

LOCAL lnSuccess
LOCAL loSbCompressedBase64
LOCAL loCompress
LOCAL loBdCompressed
LOCAL loSbUncompressedChunk
LOCAL i
LOCAL lcOriginalText

lnSuccess = 0

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

loSbCompressedBase64 = CreateObject('Chilkat.StringBuilder')

loCompress = CreateObject('Chilkat.Compression')
loCompress.Algorithm = "deflate"
loCompress.Charset = "utf-8"
loCompress.EncodingMode = "base64"

loCompress.FirstChunk = 1
loCompress.LastChunk = 0

loBdCompressed = CreateObject('Chilkat.BinData')
loSbUncompressedChunk = CreateObject('Chilkat.StringBuilder')

FOR i = 0 TO 24
    IF (i = 24) THEN
        loCompress.LastChunk = 1
    ENDIF

    loSbUncompressedChunk.Clear()
    loSbUncompressedChunk.AppendInt(i)
    loSbUncompressedChunk.Append(": This is a line of data to be compressed..." + CHR(13) + CHR(10))

    loCompress.CompressSb(loSbUncompressedChunk,loBdCompressed)

    loCompress.FirstChunk = 0
NEXT

? "The base64 encoded compressed text:"
? loBdCompressed.GetEncoded("base64")

* Decompress in one call:
lcOriginalText = loCompress.DecompressStringENC(loBdCompressed.GetEncoded("base64"))
? lcOriginalText

RELEASE loSbCompressedBase64
RELEASE loCompress
RELEASE loBdCompressed
RELEASE loSbUncompressedChunk