将字节数组转换为图片（c#=>；VB6）
我用C#编写了以下代码，将给定的字节数组（FF 3C FF…等）转换为位图 你能帮我得到这个代码的VB6版本吗 我已经在这里尝试了以下方法： 但我不能让它工作。我尝试直接将图片加载到picturebox或wirte到.bmp文件，但结果不是图片 多谢各位将字节数组转换为图片（c#=>；VB6）,c#,arrays,bitmap,vb6,C#,Arrays,Bitmap,Vb6,我用C#编写了以下代码，将给定的字节数组（FF 3C FF…等）转换为位图 你能帮我得到这个代码的VB6版本吗 我已经在这里尝试了以下方法： 但我不能让它工作。我尝试直接将图片加载到picturebox或wirte到.bmp文件，但结果不是图片 多谢各位 public static Bitmap ByteArrayToBitmap(byte[] data, int width, int height) { Bitmap bmp = new Bitm
public static Bitmap ByteArrayToBitmap(byte[] data, int width, int height)
{
Bitmap bmp = new Bitmap(width, height, System.Drawing.Imaging.PixelFormat.Format1bppIndexed);
// Prepare a locked image memory area
System.Drawing.Imaging.BitmapData bmpData = bmp.LockBits(new Rectangle(0, 0, bmp.Width, bmp.Height), System.Drawing.Imaging.ImageLockMode.WriteOnly, bmp.PixelFormat);
// Move our data in
System.Runtime.InteropServices.Marshal.Copy(data, 0, bmpData.Scan0, data.Length);
bmp.UnlockBits(bmpData);
return bmp;
}
Private子框
Dim buff（1023）作为字节
'填充字节数组。。。
设置PictureLCD.Picture=PictureFromBits（buff）
端接头
公共函数PictureFromBits（abPic（）作为字节）作为IPacture'不是StdPicture！！
暗淡无光
长得一样
暗淡的hMem一样长
暗lpMem与长lpMem相同
作为GUID的Dim IID_i结构
暗istm为stdole.IUnknown'IStream
Dim ipic作为IPacture
'获取图片位的大小
100 nLow=LBound（abPic）
110 cbMem=（UBound（abPic）-nLow）+1
'分配一个全局内存对象
120 hMem=全球ALLOC（GMEM_可移动，cbMem）
130如果嗯，那么
'锁定内存对象并获取指向它的指针。
140 lpMem=全球洛克（hMem）
150如果lpMem那么
'将图片位复制到内存指针并解锁手柄。
160移动内存字节值lpMem、abPic（nLow）、cbMem
170呼叫GlobalUnlock（hMem）
'从图片位创建ISteam（我们可以显式释放hMem
'下面，但我们会让电话做它…）
180如果（CreateStreamOnHGlobal（hMem、CTrue、istm）=S_OK），则
190如果（CLSIDFromString（strprtr（sIID_ipacture），IID_ipacture）=S_OK），那么
'从IStream创建一个IPicture（文档说调用没有
'AddRef是它的最后一个参数，但看起来引用计数是正确的..）
200呼叫OleLoadPicture（ByVal ObjPtr（istm）、cbMem、CFalse、_
IID_i结构，图片（二进制位）
如果“CLSIDFromString”，则结束
如果“CreateStreamOnHGlobal”，则结束
如果“lpMem”结束
“呼叫全球自由”（hMem）
结束吧
端函数
专用常量BI_RGB=0&
私有常量CBM_INIT=&H4
私有常量DIB_RGB_颜色=0
Private Const SRCCOPY=&hcc020
私有类型BitMapInfo标头
一分为二
宽度与长度相同
双倍高度
作为整数的双平面
双比特计数为整数
双压缩等长
比斯泽姆年龄一样长
双峰