AutoIt

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

AutoIt

Local $bSuccess = False

$oBd = ObjCreate("Chilkat.BinData")

; I created an extra-small GIF image for this example..
$bSuccess = $oBd.LoadFile("qa_data/gif/xsmall.gif")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load GIF image file." & @CRLF)
    Exit
EndIf

; Show GIF bytes as base64:
ConsoleWrite($oBd.GetEncoded("base64") & @CRLF)

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

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

$oXml = ObjCreate("Chilkat.Xml")
$bSuccess = $oXml.LoadXml($sX)

; Get the base64 string:
Local $sGifBase64 = $oXml.GetChildContent("def")

ConsoleWrite($sGifBase64 & @CRLF)

; Load bd with the base64 decoded bytes.  
$oBd.Clear()
$oBd.AppendEncoded($sGifBase64,"base64")

; Save to a GIF file.
$bSuccess = $oBd.WriteFile("qa_output/xsmall.gif")