如何直接显示内存中的二进制图像数据

大佬教程收集整理的这篇文章主要介绍了如何直接显示内存中的二进制图像数据，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

有时在进行网络程序设计时，我们希望客户端接收到服务器传来的图像文件的二进制数组的，能够直接显示，而不是通过保存到临时文件后显示，其实通过COM的IPicture接口，在VB里非常容易做到，比如以下代码：

Option Explicit '* <a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a>* * '* 模块名称：frmTest.frm '* 模块功能：直接显示图像数据 '* 作者：lyserver '* 联系方式：<a href="http://code.js-code.com/tag/http/" target="_blank" class="keywords">http</a>://blog.csdn.net/lyserver '* <a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a>* * Private Type GUID Data1 As Long Data2 As <a href="http://code.js-code.com/tag/Intege/" target="_blank" class="keywords">Intege</a>r Data3 As <a href="http://code.js-code.com/tag/Intege/" target="_blank" class="keywords">Intege</a>r Data4(7) As Byte End Type Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long,ByVal f<a href="http://code.js-code.com/tag/delet/" target="_blank" class="keywords">delet</a>eOnRelease As Long,ppstm As stdole.IUnknown) As Long Private Declare Function OleLoadPicture Lib "olepro32" (ByVal pStream As Long,ByVal lSize As Long,ByVal fRunmode As Long,riid As Any,ppvObj As stdole.IUnknown) As Long Private Declare Function CLSIDFrom<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng Lib "ole32" (ByVal lpwsz As Long,pclsid As Any) As Long Private Const ERROR_<a href="http://code.js-code.com/tag/succes/" target="_blank" class="keywords">succes</a>S = 0& Function ShowPictureFromStream(ByRef bPic() As Byt<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a> As StdPicture Dim IID_IPicture As GUID Dim IStm As stdole.IUnknown,IPic As IPicture Dim PicW As Long,PicH As Long If CreateStreamOnHGlobal(VarPtr(bPic(0)),1,IStm) = ERROR_<a href="http://code.js-code.com/tag/succes/" target="_blank" class="keywords">succes</a>S Then If CLSIDFrom<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng(StrPtr("<a href="http://code.js-code.com/tag/" target="_blank" class="keywords">{</a>7BF80980-BF32-101A-8BBB-00AA00300CAB}"),IID_IPictur<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a> = ERROR_<a href="http://code.js-code.com/tag/succes/" target="_blank" class="keywords">succes</a>S Then If OleLoadPicture(ByVal ObjPtr(IStm),UBound(bPi<a href="http://code.js-code.com/tag/C/" target="_blank" class="keywords">C)</a> + 1,IID_IPicture,IPi<a href="http://code.js-code.com/tag/C/" target="_blank" class="keywords">C)</a> = ERROR_<a href="http://code.js-code.com/tag/succes/" target="_blank" class="keywords">succes</a>S Then PicW = Me.ScaleX(IPic.Width,vbHimetric,vbPixels) PicH = Me.ScaleY(IPic.Height,vbPixels) Set ShowPictureFromStream = IPic End If End If Set IStm = Nothing End If Erase bPic End Function Private Sub Command1_Click() Dim b() As Byte Open "c:/temp2.jpg" For Binary As #1 b = InputB(LOF<a href="http://code.js-code.com/tag/1/" target="_blank" class="keywords">(1)</a>,1) Close #1 Set Me.Picture = ShowPictureFromStream(b) Erase b End Sub

请注意，因为要模拟直接显示二进制图像数据，上述代码中并没有使用LoadPicture方法。

大佬总结

以上是大佬教程为你收集整理的如何直接显示内存中的二进制图像数据全部内容，希望文章能够帮你解决如何直接显示内存中的二进制图像数据所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。