Xbase++

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..

Xbase++

LOCAL nSuccess
LOCAL oBd
LOCAL x
LOCAL oXml
LOCAL cGifBase64

nSuccess := 0

oBd := CreateObject("Chilkat.BinData")

//  I created an extra-small GIF image for this example..
nSuccess := oBd:LoadFile("qa_data/gif/xsmall.gif")
IF (nSuccess != 1)
    ? "Failed to load GIF image file."
    oBd:destroy()
    RETURN
ENDIF

//  Show GIF bytes as base64:
? oBd: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>"

oXml := CreateObject("Chilkat.Xml")
nSuccess := oXml:LoadXml(x)

//  Get the base64 string:
cGifBase64 := oXml:GetChildContent("def")

? cGifBase64

//  Load bd with the base64 decoded bytes.  
oBd:Clear()
oBd:AppendEncoded(cGifBase64, "base64")

//  Save to a GIF file.
nSuccess := oBd:WriteFile("qa_output/xsmall.gif")

oBd:destroy()
oXml:destroy()