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

integer li_rc
integer li_Success
string ls_StrBase64
oleobject loo_Compress
oleobject loo_BinDat
string ls_CompressedBase64
string ls_DecompressedBase64

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

ls_StrBase64 = "VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NClRoZSBxdWljayBicm93biBmb3gganVtcGVkIG92ZXIgdGhlIGxhenkgZG9nLg0KVGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NCg0K"

loo_Compress = create oleobject
// Use "Chilkat_9_5_0.Compression" for versions of Chilkat < 10.0.0
li_rc = loo_Compress.ConnectToNewObject("Chilkat.Compression")
if li_rc < 0 then
    destroy loo_Compress
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Compress.Algorithm = "deflate"

loo_BinDat = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_BinDat.ConnectToNewObject("Chilkat.BinData")

// Load the base64 data into a BinData object.
// This decodes the base64. The decoded bytes will be contained in the BinData.
loo_BinDat.AppendEncoded(ls_StrBase64,"base64")

// Compress the BinData.
loo_Compress.CompressBd(loo_BinDat)

// Get the compressed data in base64 format:
ls_CompressedBase64 = loo_BinDat.GetEncoded("base64")
Write-Debug "compressed base64:"
Write-Debug ls_CompressedBase64

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

// Now decompress:
loo_BinDat.Clear()
loo_BinDat.AppendEncoded(ls_CompressedBase64,"base64")
loo_Compress.DecompressBd(loo_BinDat)

ls_DecompressedBase64 = loo_BinDat.GetEncoded("base64")
Write-Debug "decompressed base64:"
Write-Debug ls_DecompressedBase64

// The output is the original data:
// VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NClRoZSBxdWljayBicm93biBmb3gganVtcGVkIG92ZXIgdGhlIGxhenkgZG9nLg0KVGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuDQpUaGUgcXVpY2sgYnJvd24gZm94IGp1bXBlZCBvdmVyIHRoZSBsYXp5IGRvZy4NCg0K


destroy loo_Compress
destroy loo_BinDat