VBScript - 图像转二进制

【问题标题】：VBScript - image to binaryVBScript - 图像转二进制
【发布时间】：2010-12-05 19:03:49
【问题描述】：

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

谢谢！

【问题讨论】：

标签： image vbscript binary

【解决方案1】：

Base64编码VBS函数（vb编码算法），源码 http://www.motobit.com/tips/detpg_Base64Encode/

【讨论】：

【解决方案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
...

【讨论】：