(Classic ASP) 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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' First load a small JPG file..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = Server.CreateObject("Chilkat.BinData")

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.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json1 = Server.CreateObject("Chilkat.JsonObject")
success = json1.UpdateBd("starfish","base64",bd)

jsonStr = json1.Emit()
Response.Write "<pre>" & Server.HTMLEncode( jsonStr) & "</pre>"

' 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")
set json2 = Server.CreateObject("Chilkat.JsonObject")
success = json2.Load(jsonStr)

' Get the binary bytes.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd2 = Server.CreateObject("Chilkat.BinData")
success = json2.BytesOf("starfish","base64",bd2)

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

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>