Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Tcl) Decode Base64 Image String (GIF, JPG, etc.) and Save to FileI 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..
load ./chilkat.dll set bd [new_CkBinData] # I created an extra-small GIF image for this example.. set success [CkBinData_LoadFile $bd "qa_data/gif/xsmall.gif"] if {$success != 1} then { puts "Failed to load GIF image file." delete_CkBinData $bd exit } # Show GIF bytes as base64: puts [CkBinData_getEncoded $bd base64] # This particular GIF in base64 is this: # R0lGODlhBQAFAMQAAAAAAP////z8/PHx8evr6+jo6OHh4d7e3sPDw8LCwpqamo2NjWxsbGRkZFpaWk1NTUtLS0hISCwsLCQkJP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAABQALAAAAAAFAAUAAAUTYCAYQUBAU1lI0TIgztE8jFImIQA7 # Let's begin with an XML string: set x "<abc><def>R0lGODlhBQAFAMQAAAAAAP////z8/PHx8evr6+jo6OHh4d7e3sPDw8LCwpqamo2NjWxsbGRkZFpaWk1NTUtLS0hISCwsLCQkJP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAABQALAAAAAAFAAUAAAUTYCAYQUBAU1lI0TIgztE8jFImIQA7</def></abc>" set xml [new_CkXml] set success [CkXml_LoadXml $xml $x] # Get the base64 string: set gifBase64 [CkXml_getChildContent $xml "def"] puts "$gifBase64" # Load bd with the base64 decoded bytes. CkBinData_Clear $bd CkBinData_AppendEncoded $bd $gifBase64 "base64" # Save to a GIF file. set success [CkBinData_WriteFile $bd "qa_output/xsmall.gif"] delete_CkBinData $bd delete_CkXml $xml |
© 2000-2020 Chilkat Software, Inc. All Rights Reserved.