(Visual FoxPro) Ascii85 Encoding and Decoding

Demonstrates ascii85 encoding and decoding.

Note: Requires Chilkat v9.5.0.79 or greater.

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

LOCAL loSb
LOCAL lnSuccess
LOCAL lcEncodedAscii85
LOCAL loBd

* First demonstrate encoding strings to ascii85 and back.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')

lnSuccess = loSb.Append("Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, that by a perseverance of delight in the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure.")

lcEncodedAscii85 = loSb.GetEncoded("ascii85","utf-8")
? lcEncodedAscii85

* Result is: 9jqo^BlbD-BleB1DJ+*+F(f,q/0JhKF<GL>Cj@.4 ... DII?(E,9)oF*2M7/c

* Decode back to the original:
loSb.Clear()
loSb.Append(lcEncodedAscii85)
lnSuccess = loSb.Decode("ascii85","utf-8")
? "Original:"
? loSb.GetAsString()

* ---- Now encode binary data to ascii85 ----
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile("qa_data/jpg/starfish20.jpg")
lcEncodedAscii85 = loBd.GetEncoded("ascii85")
? lcEncodedAscii85

* Result is:  s4IA0!"_al8O`[\!<E0k!([(is8E!F7VQ[M+Eqj?FED)3+C]U=6"Fn ...

* Decode...
loBd.Clear()
loBd.AppendEncoded(lcEncodedAscii85,"ascii85")
lnSuccess = loBd.WriteFile("qa_output/starfish20.jpg")

RELEASE loSb
RELEASE loBd