(AutoIt) 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

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

Local $bSuccess
$oSbCompressedBase64 = ObjCreate("Chilkat.StringBuilder")

$oCompress = ObjCreate("Chilkat.Compression")
$oCompress.Algorithm = "deflate"
$oCompress.Charset = "utf-8"
$oCompress.EncodingMode = "base64"

$oSbIndex = ObjCreate("Chilkat.StringBuilder")

Local $i
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.
    $oSbIndex.Clear 
    $oSbIndex.AppendInt($i)
    If ($i = 0) Then
        $oSbCompressedBase64.Append($oCompress.BeginCompressStringENC($oSbIndex.GetAsString()))
    Else
        $oSbCompressedBase64.Append($oCompress.MoreCompressStringENC($oSbIndex.GetAsString()))
    EndIf

    $oSbCompressedBase64.Append($oCompress.MoreCompressStringENC(": This is a line of data to be compressed..." & @CRLF))
Next

; Flush any remaining output.
$oSbCompressedBase64.Append($oCompress.EndCompressStringENC())

ConsoleWrite("The base64 encoded compressed text:" & @CRLF)
ConsoleWrite($oSbCompressedBase64.GetAsString() & @CRLF)

; Now decompress in one call:
Local $sOriginalText = $oCompress.DecompressStringENC($oSbCompressedBase64.GetAsString())
ConsoleWrite($sOriginalText & @CRLF)