Can I use VBScript to base64 encode a gif?

Question

What I'm trying to do is encode a gif file, to include in an XML document. This is what I have now, but it doesn't seem to work.

Function gifToBase64(strGifFilename)
 On Error Resume Next
 Dim strBase64
 Set inputStream = WScript.CreateObject("ADODB.Stream")
 inputStream.LoadFromFile strGifFilename
 strBase64 = inputStream.Text
 Set inputStream = Nothing
 gifToBase64 = strBase64
End Function

Answer 1

Take a look here: Base64 Encode & Decode Files with VBScript. This example relies on the free XBase64 component and merely provides a wrapper for file handling.

You can also go for a pure VBScript implementation, but here you have to care for the file handling yourself. Should not be too difficult, but encoding performance will be not as good. For a few small image files it will be enough, though.

Google will turn up more.

Answer 2

In your comment to Tomalak you state you don't want to use external dlls but in your attempted example you try to use ADODB. I suspect therefore what you mean is you don't want to install dlls that aren't natively present on a vanilia windows platform.

If that is so then MSXML may be your answer:-

Function Base64Encode(rabyt)

 Dim dom: Set dom = CreateObject("MSXML2.DOMDocument.3.0")
 Dim elem: Set elem = dom.appendChild(dom.createElement("root"))
 elem.dataType = "bin.base64"
 elem.nodeTypedValue = rabyt

 Base64Encode = elem.Text

End Function