(VB.NET UWP/WinRT) Compress and Decompress a String

Demonstrates how to compress and decompress a string.

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
Dim sb As New Chilkat.StringBuilder

Dim i As Integer
For i = 1 To 20
    sb.Append("This is the original uncompressed string." & vbCrLf)
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 Byte
compressedBytes = Await compress.CompressStringAsync(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 = Await compress.CompressStringENCAsync(sb.GetAsString())
Debug.WriteLine("Compressed Bytes as Base64: " & compressedBase64)


' Now decompress...
Dim decompressedString As String = Await compress.DecompressStringAsync(compressedBytes)
Debug.WriteLine("The original string after decompressing from binary compressed data:")
Debug.WriteLine(decompressedString)

' To decompress from Base64...
compress.EncodingMode = "base64"
decompressedString = Await compress.DecompressStringENCAsync(compressedBase64)
Debug.WriteLine("The original string after decompressing from Base64:")
Debug.WriteLine(decompressedString)