(Visual FoxPro) Read/Write JSON with Binary Data such as JPEG Files

Demonstrates how binary files could be stored in JSON in base64 format. Creates JSON containing the contents of a JPG file, and then reads the JSON to extract the JPEG image.

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

LOCAL loBd
LOCAL lnSuccess
LOCAL loJson1
LOCAL lcJsonStr
LOCAL loJson2
LOCAL loBd2

* First load a small JPG file..
* 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")
* Assume success, but your code should check for success..

* Create JSON containing the binary data in base64 format.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson1 = CreateObject('Chilkat.JsonObject')
loJson1.UpdateBd("starfish","base64",loBd)

lcJsonStr = loJson1.Emit()
? lcJsonStr

* Here's the output:
* {"starfish":"/9j/4AAQSkZJRgA ... cN2iuLFsCEbDGxQkI6RO/n//2Q=="}

* Let's create a new JSON object, load it with the above JSON, and extract the JPG image..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson2 = CreateObject('Chilkat.JsonObject')
loJson2.Load(lcJsonStr)

* Get the binary bytes.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd2 = CreateObject('Chilkat.BinData')
loJson2.BytesOf("starfish","base64",loBd2)

* Save to a file.
lnSuccess = loBd2.WriteFile("qa_output/starfish20.jpg")

? "Success."

RELEASE loBd
RELEASE loJson1
RELEASE loJson2
RELEASE loBd2