(Visual FoxPro) 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

LOCAL lcNameWindows1252UrlEncoded
LOCAL lcNameUtf8UrlEncoded
LOCAL loSb1
LOCAL lnSuccess
LOCAL loSb2
LOCAL lnBEqual

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

* This is the URL encoding of the windows-1252 representation.
lcNameWindows1252UrlEncoded = "M%C6RSK"

* This is the URL encoding of the utf-8 representation.
lcNameUtf8UrlEncoded = "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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb1 = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSb1.DecodeAndAppend(lcNameWindows1252UrlEncoded,"url","windows-1252")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb2 = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSb2.DecodeAndAppend(lcNameUtf8UrlEncoded,"url","utf-8")

* sb1 and sb2 both hold the same string.
lnBEqual = loSb1.ContentsEqualSb(loSb2,1)
? "bEqual = " + STR(lnBEqual)

* We can see the string is "MÆRSK" in both cases.
? loSb1.GetAsString()
? loSb2.GetAsString()

RELEASE loSb1
RELEASE loSb2