Xojo Plugin

Compress and Decompress a String

See more Compression Examples

Demonstrates how to compress and decompress a string. Xojo Plugin

Dim success As Boolean
success = False

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

Dim sb As New Chilkat.StringBuilder

Dim i As Int32
For i = 1 To 20
    success = sb.Append("This is the original uncompressed string." + EndOfLine.Windows)
Next

Dim compress As New Chilkat.Compression
compress.Algorithm = "deflate"
// Indicate that the utf-8 byte representation of the string should be compressed.
compress.Charset = "utf-8"

Dim compressedBytes As MemoryBlock
compressedBytes = compress.CompressString(sb.GetAsString())

// If the compressed data is desired in string format, then get the base64 representation of the bytes.
compress.EncodingMode = "base64"
Dim compressedBase64 As String
compressedBase64 = compress.CompressStringENC(sb.GetAsString())
System.DebugLog("Compressed Bytes as Base64: " + compressedBase64)

// Now decompress...
Dim decompressedString As String
decompressedString = compress.DecompressString(compressedBytes)
System.DebugLog("The original string after decompressing from binary compressed data:")
System.DebugLog(decompressedString)

// To decompress from Base64...
compress.EncodingMode = "base64"
decompressedString = compress.DecompressStringENC(compressedBase64)
System.DebugLog("The original string after decompressing from Base64:")
System.DebugLog(decompressedString)