(Visual FoxPro) Compress String Feed to Base64

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

The purpose is to demonstrate the BeginCompressStringENC, MoreCompressStringENC, and EndCompressStringENC methods.

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

LOCAL lnSuccess
LOCAL loSbCompressedBase64
LOCAL loCompress
LOCAL loSbIndex
LOCAL i
LOCAL lcOriginalText

* 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')
loSbCompressedBase64 = CreateObject('Chilkat.StringBuilder')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Compression')
loCompress = CreateObject('Chilkat.Compression')
loCompress.Algorithm = "deflate"
loCompress.Charset = "utf-8"
loCompress.EncodingMode = "base64"

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

FOR i = 0 TO 24
    * Note: It is possible (and normal) for a BeginCompress* or MoreCompress* method to return
    * an empty string (or 0 bytes).  When this happens, the input data is not lost.  It will be flushed
    * in a subsequent call.
    loSbIndex.Clear()
    loSbIndex.AppendInt(i)
    IF (i = 0) THEN
        loSbCompressedBase64.Append(loCompress.BeginCompressStringENC(loSbIndex.GetAsString()))
    ELSE
        loSbCompressedBase64.Append(loCompress.MoreCompressStringENC(loSbIndex.GetAsString()))
    ENDIF

    loSbCompressedBase64.Append(loCompress.MoreCompressStringENC(": This is a line of data to be compressed..." + CHR(13) + CHR(10)))
NEXT

* Flush any remaining output.
loSbCompressedBase64.Append(loCompress.EndCompressStringENC())

? "The base64 encoded compressed text:"
? loSbCompressedBase64.GetAsString()

* Now decompress in one call:
lcOriginalText = loCompress.DecompressStringENC(loSbCompressedBase64.GetAsString())
? lcOriginalText

RELEASE loSbCompressedBase64
RELEASE loCompress
RELEASE loSbIndex