(Visual Basic 6.0) Compress and Decompress a String

Demonstrates how to compress and decompress a string.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim success As Long
Dim sb As New ChilkatStringBuilder

Dim i As Long
For i = 1 To 20
    success = sb.Append("This is the original uncompressed string." & vbCrLf)
Next

Dim compress As New ChilkatCompression
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 = compress.CompressString(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
compressedBase64 = compress.CompressStringENC(sb.GetAsString())
Debug.Print "Compressed Bytes as Base64: " & compressedBase64

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

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