PowerBuilder

Compress Bytes to Base64 (or any other encoding)

See more Compression Examples

Compresses bytes to base64 or any other encoding. Also decompress to return the original. PowerBuilder

integer li_rc
long li_Success
oleobject loo_BinData
long i
oleobject loo_Compress
string ls_CompressedBase64
string ls_CompressedHex
oleobject loo_BinData2

li_Success = 0

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

//  First create some binary data to compress.
loo_BinData = create oleobject
li_rc = loo_BinData.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_BinData
    MessageBox("Error","Connecting to COM object failed")
    return
end if

for i = 1 to 16
    loo_BinData.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
next

loo_Compress = create oleobject
li_rc = loo_Compress.ConnectToNewObject("Chilkat.Compression")

loo_Compress.Algorithm = "deflate"
loo_Compress.EncodingMode = "base64"

loo_UncompressedBytes = loo_BinData.GetBinary()

//  Compress and return the compressed bytes in base64 format.
ls_CompressedBase64 = loo_Compress.CompressBytesENC(loo_UncompressedBytes)
Write-Debug "compressed and base64 encoded: " + ls_CompressedBase64

//  Compress and return in hex format:
loo_Compress.EncodingMode = "hex"
ls_CompressedHex = loo_Compress.CompressBytesENC(loo_UncompressedBytes)
Write-Debug "compressed and hex encoded: " + ls_CompressedHex

//  Now decompress..
loo_BinData2 = create oleobject
li_rc = loo_BinData2.ConnectToNewObject("Chilkat.BinData")

//  Decompress the base64..
loo_Compress.EncodingMode = "base64"
loo_UncompressedBytes = loo_Compress.DecompressBytesENC(ls_CompressedBase64)
loo_BinData2.AppendBinary(loo_UncompressedBytes)
//  Show the uncompressed bytes in hex format:
Write-Debug loo_BinData2.GetEncoded("hex")
Write-Debug "--"

//  Decompress the hex..
loo_Compress.EncodingMode = "hex"
loo_UncompressedBytes = loo_Compress.DecompressBytesENC(ls_CompressedHex)
loo_BinData2.Clear()
loo_BinData2.AppendBinary(loo_UncompressedBytes)
//  Show the uncompressed bytes in hex format:
Write-Debug loo_BinData2.GetEncoded("hex")
Write-Debug "--"


destroy loo_BinData
destroy loo_Compress
destroy loo_BinData2