(VBScript) Append Encoded Binary Data to StringBuilder

Demonstrates how to append encoded binary data to the contenets of a StringBuilder.

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = CreateObject("Chilkat.BinData")

success = bd.LoadFile("qa_data/jpg/starfish.jpg")
If (success = 0) Then
    outFile.WriteLine("Failed to load file.")
    WScript.Quit
End If

' For example, let's say we want construct simple JSON containing the base64 representation of the above JPG file.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.Append("{ ""jpg"": """)
' GetEncodedSb appends the enocded representation of the binary data to the StringBuiler passed in the 2nd arg.
success = bd.GetEncodedSb("base64",sb)
success = sb.Append(""" }")

outFile.WriteLine(sb.GetAsString())

' Output looks like this:
'  { "jpg": "/9j/4AAQSkZJRgABAg...rcQ+vo//2Q==" }

outFile.Close