(VB.NET UWP/WinRT) Compress Bytes to Base64 (or any other encoding)

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim success As Boolean

' First create some binary data to compress.
Dim binData As New Chilkat.BinData

Dim i As Integer
For i = 1 To 16
    binData.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
Next

Dim compress As New Chilkat.Compression
compress.Algorithm = "deflate"
compress.EncodingMode = "base64"

Dim uncompressedBytes() As Byte
uncompressedBytes = binData.GetBinary()

' Compress and return the compressed bytes in base64 format.
Dim compressedBase64 As String = Await compress.CompressBytesENCAsync(uncompressedBytes)
Debug.WriteLine("compressed and base64 encoded: " & compressedBase64)


' Compress and return in hex format:
compress.EncodingMode = "hex"
Dim compressedHex As String = Await compress.CompressBytesENCAsync(uncompressedBytes)
Debug.WriteLine("compressed and hex encoded: " & compressedHex)

' Now decompress..
Dim binData2 As New Chilkat.BinData

' Decompress the base64..
compress.EncodingMode = "base64"
uncompressedBytes = Await compress.DecompressBytesENCAsync(compressedBase64)
binData2.AppendBinary(uncompressedBytes)
' Show the uncompressed bytes in hex format:
Debug.WriteLine(binData2.GetEncoded("hex"))
Debug.WriteLine("--")

' Decompress the hex..
compress.EncodingMode = "hex"
uncompressedBytes = Await compress.DecompressBytesENCAsync(compressedHex)
binData2.Clear()
binData2.AppendBinary(uncompressedBytes)
' Show the uncompressed bytes in hex format:
Debug.WriteLine(binData2.GetEncoded("hex"))
Debug.WriteLine("--")