(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.
integer li_rc
oleobject loo_Bd
integer li_Success
string ls_B64Str
oleobject loo_Bd2
loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat_9_5_0.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
li_rc = loo_Bd2.ConnectToNewObject("Chilkat_9_5_0.BinData")
li_Success = loo_Bd2.AppendEncoded(ls_B64Str,"base64")
li_Success = loo_Bd2.WriteFile("qa_output/helloWorld.pdf")
destroy loo_Bd
destroy loo_Bd2
|