I'm trying to encode a JPG image into Base64 format for HTML (<img src="data:image/jpg .." />) in VBA Excel.
I found a similiar question, Convert image (jpg) to base64 in Excel VBA?, and tried the code:
'https://stackoverflow.com/questions/2043393/convert-image-jpg-to-base64-in-excel-vba
Sub EncodeFile()
Dim strPicPath: strPicPath = "MyDriveHere:\SomePath\image.jpg"
'Credit to Wikipedia for orange picture: 'https://upload.wikimedia.org/wikipedia/commons/thumb/1/10/Citrus_reticulata_April_2013_Nordbaden.JPG/220px-Citrus_reticulata_April_2013_Nordbaden.JPG
Const adTypeBinary = 1 ' Binary file is encoded
' Variables for encoding
Dim objXML
Dim objDocElem
' Variable for reading binary picture
Dim objStream
' Open data stream from picture
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile (strPicPath)
' Create XML Document object and root node
' that will contain the data
Set objXML = CreateObject("MSXml2.DOMDocument")
Set objDocElem = objXML.createElement("Base64Data")
objDocElem.DataType = "bin.base64"
' Set binary value
objDocElem.nodeTypedValue = objStream.Read()
' Get base64 value
Debug.Print objDocElem.text
' Clean all
Set objXML = Nothing
Set objDocElem = Nothing
Set objStream = Nothing
End Sub
Using the image here, https://upload.wikimedia.org/wikipedia/commons/thumb/1/10/Citrus_reticulata_April_2013_Nordbaden.JPG/220px-Citrus_reticulata_April_2013_Nordbaden.JPG
The output started with
2ESk9uWHSmQ6ayKMjmX1FWRYG5BkERRkgK9qYbqyHKTijDQc
but it should start with
/9j/4AAQSkZJRgABAQEASABIAAD//g
The output from the code also didn't generate any image on https://codebeautify.org/base64-to-image-converter#
Why is the generated output giving me a different encoding than the standard Base64 encoding?
The Immediate window doesn't have an unlimited capacity: if you print too much you will begin to lose the start...
Debug.Print Left(objDocElem.Text, 200)
gives me the expected start /9j/4AAQSkZJRgABAQEASABIAAD//gBgRmlsZ