(Xojo Plugin) Compress Text Feed to Binary

This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed binary data.

The purpose is to demonstrate the BeginCompressString, MoreCompressString, and EndCompressString methods.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim success As Boolean
Dim compressedData As New Chilkat.BinData
Dim compressedBytes As MemoryBlock

Dim compress As New Chilkat.Compression
compress.Algorithm = "deflate"
compress.Charset = "utf-8"

Dim sbIndex As New Chilkat.StringBuilder

Dim i As Int32
For i = 0 To 24
    // Note: It is possible (and normal) for a BeginCompress* or MoreCompress* method to return
    // an empty string (or 0 bytes).  When this happens, the input data is not lost.  It will be flushed
    // in a subsequent call.
    sbIndex.Clear 
    success = sbIndex.AppendInt(i)
    If (i = 0) Then
        compressedBytes = compress.BeginCompressString(sbIndex.GetAsString())
    Else
        compressedBytes = compress.MoreCompressString(sbIndex.GetAsString())
    End If

    success = compressedData.AppendBinary(compressedBytes)
    compressedBytes = compress.MoreCompressString(": This is a line of data to be compressed..." + EndOfLine.Windows)
    success = compressedData.AppendBinary(compressedBytes)
Next

// Flush any remaining output.
compressedBytes = compress.EndCompressString()
success = compressedData.AppendBinary(compressedBytes)

// Show the compressed data in hex format:
System.DebugLog("The hex encoded compressed text:")
System.DebugLog(compressedData.GetEncoded("hex"))

// Now decompress in one call:
compressedBytes = compressedData.GetBinary()
Dim originalText As String
originalText = compress.DecompressString(compressedBytes)
System.DebugLog(originalText)