(Visual FoxPro) Base64 Encode/Decode a String

Visual FoxPro example to base-64 encode and decode a string.

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

LOCAL loBd
LOCAL s
LOCAL lnSuccess
LOCAL lcStrBase64
LOCAL loBd2
LOCAL lcDecoded

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')

s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

lnSuccess = loBd.AppendString(s,"utf-8")

lcStrBase64 = loBd.GetEncoded("base64")
? lcStrBase64

* To decode:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd2 = CreateObject('Chilkat.BinData')
loBd2.AppendEncoded(lcStrBase64,"base64")

lcDecoded = loBd2.GetString("utf-8")
? lcDecoded

RELEASE loBd
RELEASE loBd2