(Visual Basic 6.0) Decode from Binary Encoding and Append String

Demonstrates how to decode from a binary encoding (base64, hex, url, etc.) and then append the decoded string to a Chilkat StringBuilder object.

Note: This example uses the new DecodeAndAppend method added in Chilkat v9.5.0.87.

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

' We have the string "MÆRSK" in two forms:

' This is the URL encoding of the windows-1252 representation.
Dim nameWindows1252UrlEncoded As String
nameWindows1252UrlEncoded = "M%C6RSK"

' This is the URL encoding of the utf-8 representation.
Dim nameUtf8UrlEncoded As String
nameUtf8UrlEncoded = "M%C3%86RSK"

' Note that the result of loading a string into a string object 
' is the same if we correctly specify the underlying charset encoding.
' In the above example, we have the same string, but in different charset encodings
' subsequently URL encoded.
Dim sb1 As New ChilkatStringBuilder
Dim success As Long
success = sb1.DecodeAndAppend(nameWindows1252UrlEncoded,"url","windows-1252")

Dim sb2 As New ChilkatStringBuilder
success = sb2.DecodeAndAppend(nameUtf8UrlEncoded,"url","utf-8")

' sb1 and sb2 both hold the same string.
Dim bEqual As Long
bEqual = sb1.ContentsEqualSb(sb2,1)
Debug.Print "bEqual = " & bEqual

' We can see the string is "MÆRSK" in both cases.
Debug.Print sb1.GetAsString()
Debug.Print sb2.GetAsString()