(VB.NET) Compress Text Feed to Binary

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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim success As Boolean = False

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

Dim bdCompressed As New Chilkat.BinData

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

Dim sbUncompressedChunk As New Chilkat.StringBuilder

compress.FirstChunk = True
compress.LastChunk = False

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


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

    compress.CompressSb(sbUncompressedChunk,bdCompressed)

    compress.FirstChunk = False
Next

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

' Now decompress in one call.  It is important to set both FirstChunk and LastChunk = True
Dim bdDecompressed As New Chilkat.BinData
compress.FirstChunk = True
compress.LastChunk = True
success = compress.DecompressBd2(bdCompressed,bdDecompressed)
If (success = False) Then
    Debug.WriteLine(compress.LastErrorText)
    Exit Sub
End If


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