B4X

Extract PDF from JSON

See more JSON Examples

Demonstrates how to extract a PDF file contained within JSON. The file is represented as a base64 string within the JSON. Note: This example can extract any type of file, not just a PDF file. B4X

Dim success As Boolean = False

Dim json As ChilkatJsonObject
json.Initialize

'  Load the JSON.
success = json.LoadFile("qa_data/json/JSR5U.json")
If success <> True Then
    Log(json.LastErrorText)
    Return
End If


'  The JSON we loaded contains this:

'  	{
'  	...
'  	...
'  	  "data": {
'  	    "content": "JVBERi0xLjQ..."
'  	  }
'  	...
'  	...
'  	}

Dim sb As ChilkatStringBuilder
sb.Initialize
json.StringOfSb("data.content", sb)

Dim bd As ChilkatBinData
bd.Initialize
bd.AppendEncodedSb(sb, "base64")

success = bd.WriteFile("qa_output/a0015.pdf")