B4X

Read/Write JSON with Binary Data such as JPEG Files

See more JSON Examples

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. B4X

Dim success As Boolean = False

'  First load a small JPG file..
Dim bd As ChilkatBinData
bd.Initialize

success = bd.LoadFile("qa_data/jpg/starfish20.jpg")
'  Assume success, but your code should check for success..

'  Create JSON containing the binary data in base64 format.
Dim json1 As ChilkatJsonObject
json1.Initialize
json1.UpdateBd("starfish", "base64", bd)

Dim jsonStr As String = json1.Emit
Log(jsonStr)

'  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..
Dim json2 As ChilkatJsonObject
json2.Initialize
json2.Load(jsonStr)

'  Get the binary bytes.
Dim bd2 As ChilkatBinData
bd2.Initialize
json2.BytesOf("starfish", "base64", bd2)

'  Save to a file.
success = bd2.WriteFile("qa_output/starfish20.jpg")

Log("Success.")