PowerBuilder

Decode Base64 Image String (GIF, JPG, etc.) and Save to File

I have an XML response that includes a base 64 encoded image string (UPS label). It's a huge string and I need to save it as a gif file on my users pc.

This example shows how to do it..

PowerBuilder

integer li_rc
long li_Success
oleobject loo_Bd
string x
oleobject loo_Xml
string ls_GifBase64

li_Success = 0

loo_Bd = create oleobject
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

//  I created an extra-small GIF image for this example..
li_Success = loo_Bd.LoadFile("qa_data/gif/xsmall.gif")
if li_Success <> 1 then
    Write-Debug "Failed to load GIF image file."
    destroy loo_Bd
    return
end if

//  Show GIF bytes as base64:
Write-Debug loo_Bd.GetEncoded("base64")

//  This particular GIF in base64 is this:
//  R0lGODlhBQAFAMQAAAAAAP////z8/PHx8evr6+jo6OHh4d7e3sPDw8LCwpqamo2NjWxsbGRkZFpaWk1NTUtLS0hISCwsLCQkJP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAABQALAAAAAAFAAUAAAUTYCAYQUBAU1lI0TIgztE8jFImIQA7

//  Let's begin with an XML string:
x = "<abc><def>R0lGODlhBQAFAMQAAAAAAP////z8/PHx8evr6+jo6OHh4d7e3sPDw8LCwpqamo2NjWxsbGRkZFpaWk1NTUtLS0hISCwsLCQkJP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAABQALAAAAAAFAAUAAAUTYCAYQUBAU1lI0TIgztE8jFImIQA7</def></abc>"

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

li_Success = loo_Xml.LoadXml(x)

//  Get the base64 string:
ls_GifBase64 = loo_Xml.GetChildContent("def")

Write-Debug ls_GifBase64

//  Load bd with the base64 decoded bytes.  
loo_Bd.Clear()
loo_Bd.AppendEncoded(ls_GifBase64,"base64")

//  Save to a GIF file.
li_Success = loo_Bd.WriteFile("qa_output/xsmall.gif")


destroy loo_Bd
destroy loo_Xml