(PowerBuilder) 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.

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

integer li_rc
oleobject loo_Bd
integer li_Success
string ls_B64Str
oleobject loo_Bd2

loo_Bd = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_Bd
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// This example will load a PDF and return it as a base64 string.
li_Success = loo_Bd.LoadFile("qa_data/pdf/helloWorld.pdf")
if li_Success <> 1 then
    Write-Debug "Failed to load file."
    destroy loo_Bd
    return
end if

ls_B64Str = loo_Bd.GetEncoded("base64")
Write-Debug ls_B64Str

// Now write the base64 string back to the binary PDF file:
loo_Bd2 = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_Bd2.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Bd2.AppendEncoded(ls_B64Str,"base64")
li_Success = loo_Bd2.WriteFile("qa_output/helloWorld.pdf")


destroy loo_Bd
destroy loo_Bd2