VBScript - 图像到二进制

Question

我不是VB程序员但是我需要一个vbscript来转换图像文件（从本地磁盘）转换为二进制数据并传递给webservice。我意识到如何将数据传递给webservice，但我找不到如何将图像文件转换为二进制数据。我花了很多时间找到某种解决方案，但没有运气。 有人可以帮帮我吗？

谢谢！

Answer 1

Base64编码VBS功能（vb编码器算法），源代码 http://www.motobit.com/tips/detpg_Base64Encode/

Answer 2

如果您只需要将图像文件作为二进制数据读取（以类似于阅读文本文件的方式），则可以使用ADODB.Stream对象：

Const adTypeBinary = 1
Dim oStream, bData

Set oStream = CreateObject("ADODB.Stream")
oStream.Type = adTypeBinary
oStream.Open
oStream.LoadFromFile "C:\MyImage.png"

bData = oStream.Read

' Do whatever you need with bData
...