Xojo Plugin

Convert any File to Base64 (and back)

Demonstrates how to get the contents of any file as a base64 string, and then write it back. Xojo Plugin

Dim success As Boolean
success = False

Dim bd As New Chilkat.BinData

// This example will load a PDF and return it as a base64 string.
success = bd.LoadFile("qa_data/pdf/helloWorld.pdf")
If (success <> True) Then
    System.DebugLog("Failed to load file.")
    Return
End If

Dim b64Str As String
b64Str = bd.GetEncoded("base64")
System.DebugLog(b64Str)

// Now write the base64 string back to the binary PDF file:
Dim bd2 As New Chilkat.BinData
success = bd2.AppendEncoded(b64Str,"base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")