VBScript - 图像到二进制

Question

我不是一个VB程序员，但我需要一个vbscript转换图像文件（从本地磁盘）被转换为二进制数据和传递给web服务。我意识到如何将数据传递给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 
...