(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

// First load a small JPG file..
loBd = createobject("CkBinData")

llSuccess = 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.
loJson1 = createobject("CkJsonObject")
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..
loJson2 = createobject("CkJsonObject")
loJson2.Load(lcJsonStr)

// Get the binary bytes.
loBd2 = createobject("CkBinData")
loJson2.BytesOf("starfish","base64",loBd2)

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

? "Success."


release loBd
release loJson1
release loJson2
release loBd2