AutoIt

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. AutoIt

Local $bSuccess = False

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

$oSbCompressedBase64 = ObjCreate("Chilkat.StringBuilder")

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

$oCompress.FirstChunk = True
$oCompress.LastChunk = False

$oBdCompressed = ObjCreate("Chilkat.BinData")
$oSbUncompressedChunk = ObjCreate("Chilkat.StringBuilder")

Local $i
For $i = 0 To 24
    If ($i = 24) Then
        $oCompress.LastChunk = True
    EndIf

    $oSbUncompressedChunk.Clear 
    $oSbUncompressedChunk.AppendInt($i)
    $oSbUncompressedChunk.Append(": This is a line of data to be compressed..." & @CRLF)

    $oCompress.CompressSb($oSbUncompressedChunk,$oBdCompressed)

    $oCompress.FirstChunk = False
Next

ConsoleWrite("The base64 encoded compressed text:" & @CRLF)
ConsoleWrite($oBdCompressed.GetEncoded("base64") & @CRLF)

; Decompress in one call:
Local $sOriginalText = $oCompress.DecompressStringENC($oBdCompressed.GetEncoded("base64"))
ConsoleWrite($sOriginalText & @CRLF)