(AutoIt) Compress and Decompress Base64

Imagine we have data represented as a base64 string. This example demonstrates how to decode, compress, and re-encode to smaller base64 representing the compressed data.

Note: This example requires Chilkat v9.5.0.66 or greater.

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

Local $strBase64 = "VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NClRoZSBxdWljayBicm93biBmb3gganVtcGVkIG92ZXIgdGhlIGxhenkgZG9nLg0KVGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NCg0K"

$oCompress = ObjCreate("Chilkat.Compression")
$oCompress.Algorithm = "deflate"

$oBinDat = ObjCreate("Chilkat.BinData")
; Load the base64 data into a BinData object.
; This decodes the base64. The decoded bytes will be contained in the BinData.
$oBinDat.AppendEncoded($strBase64,"base64")

; Compress the BinData.
$oCompress.CompressBd($oBinDat)

; Get the compressed data in base64 format:
Local $sCompressedBase64 = $oBinDat.GetEncoded("base64")
ConsoleWrite("compressed base64:" & @CRLF)
ConsoleWrite($sCompressedBase64 & @CRLF)

; The compressed base64 is: C8lIVSgszUzOVkgqyi/PU0jLr1DIKs0tSE1RyC9LLVIoAcrnJFZVKqTkp+vxcoUMYeW8XAA=

; Now decompress:
$oBinDat.Clear()
$oBinDat.AppendEncoded($sCompressedBase64,"base64")
$oCompress.DecompressBd($oBinDat)

Local $sDecompressedBase64 = $oBinDat.GetEncoded("base64")
ConsoleWrite("decompressed base64:" & @CRLF)
ConsoleWrite($sDecompressedBase64 & @CRLF)

; The output is the original data:
; VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NClRoZSBxdWljayBicm93biBmb3gganVtcGVkIG92ZXIgdGhlIGxhenkgZG9nLg0KVGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NCg0K