(PowerBuilder) Base64 Encode/Decode a String

PowerBuilder example to base-64 encode and decode a string.

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

integer li_rc
oleobject loo_Bd
string s
integer li_Success
string ls_StrBase64
oleobject loo_Bd2
string ls_Decoded

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

s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

li_Success = loo_Bd.AppendString(s,"utf-8")

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

// To decode:
loo_Bd2 = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_Bd2.ConnectToNewObject("Chilkat.BinData")

loo_Bd2.AppendEncoded(ls_StrBase64,"base64")

ls_Decoded = loo_Bd2.GetString("utf-8")
Write-Debug ls_Decoded


destroy loo_Bd
destroy loo_Bd2