Visual Basic 6.0

Compress Text Feed to Binary

See more Compression Examples

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

Dim success As Long
success = 0

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

Dim bdCompressed As New ChilkatBinData

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

Dim sbUncompressedChunk As New ChilkatStringBuilder

compress.FirstChunk = 1
compress.LastChunk = 0

Dim i As Long
For i = 0 To 24
    If (i = 24) Then
        compress.LastChunk = 1
    End If

    sbUncompressedChunk.Clear 
    success = sbUncompressedChunk.AppendInt(i)
    success = sbUncompressedChunk.Append(": This is a line of data to be compressed..." & vbCrLf)

    success = compress.CompressSb(sbUncompressedChunk,bdCompressed)

    compress.FirstChunk = 0
Next

' Show the compressed data in hex format:
Debug.Print "The hex encoded compressed text:"
Debug.Print bdCompressed.GetEncoded("hex")

' Now decompress in one call.  It is important to set both FirstChunk and LastChunk = 1
Dim bdDecompressed As New ChilkatBinData
compress.FirstChunk = 1
compress.LastChunk = 1
success = compress.DecompressBd2(bdCompressed,bdDecompressed)
If (success = 0) Then
    Debug.Print compress.LastErrorText
    Exit Sub
End If

Dim originalText As String
originalText = bdDecompressed.GetString("utf-8")
Debug.Print originalText