(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# This is the URL encoding of the windows-1252 representation.
set nameWindows1252UrlEncoded "M%C6RSK"

# This is the URL encoding of the utf-8 representation.
set 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.
set sb1 [new_CkStringBuilder]

set success [CkStringBuilder_DecodeAndAppend $sb1 $nameWindows1252UrlEncoded "url" "windows-1252"]

set sb2 [new_CkStringBuilder]

set success [CkStringBuilder_DecodeAndAppend $sb2 $nameUtf8UrlEncoded "url" "utf-8"]

# sb1 and sb2 both hold the same string.
set bEqual [CkStringBuilder_ContentsEqualSb $sb1 $sb2 1]
puts "bEqual = $bEqual"

# We can see the string is "MÆRSK" in both cases.
puts [CkStringBuilder_getAsString $sb1]
puts [CkStringBuilder_getAsString $sb2]

delete_CkStringBuilder $sb1
delete_CkStringBuilder $sb2