(vb)利用GetBitmapBits,SetBitmapBits加速图像处理

原创 2003年07月07日 08:27:00

(vb)利用GetBitmapBits,SetBitmapBits加速图像处理

(不知道前面有没有人写过这个,这里主要是最近写程序的一些心得,希望对大家有用.久未写东西,会有一堆的毛病,将就着吧.)

最近发现了两个好东东,SetBitmapBits,GetBitmapBits,能极大的提高某些图像处理的速度.

引用别人的话
"SetBitmapBits:
 vb声明: Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
 作用: "将来自缓冲区的二进制位复制到一幅位图"
 参数: hBitmap Long,位图的句柄
  dwCount Long,欲复制的字节数量
  lpBits Any,指向一个缓冲区的指针。这个缓冲区包含了为位图正确格式化的位图位


GetBitmapBits:
 vb声明: Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
        作用: "将来自位图的二进制位复制到一个缓冲区"
 参数: hBitmap Long,位图的句柄
  dwCount Long,欲复制的字节数。如设为零,表示取得位图中的字节数
  lpBits Any,指向容纳位图位的一个缓冲区的指针。注意事先将缓冲区至少初始化成dwCount个字节 "


举一个例子,将图片旋转90度,下面是我写的顺时针旋转90度的函数.
假设目标图像的宽等于源图的长,目标图像的长等于源图的宽,两图颜色值占用的位数相等.
参数: hSrcBmp,源图位图的句柄,vb中对应的是Picture.Handle
 hDestBmp,目标位图的句柄

其中用到的GetObject,CopyMemory函数与BITMAP类型,声明如下
Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)
Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long

End Type


'顺时针旋转90度的函数:

Public Function TurnBmp(hSrcBmp As Long, hDestBmp As Long) As Boolean
Dim X  As Long, Y As Long

Dim BytesPixel As Long


Dim tSBmpInfo As BITMAP, tDBmpInfo As BITMAP
Dim sBits() As Byte, dBits() As Byte

'获得位图信息
Call GetObject(hSrcBmp, Len(tSBmpInfo), tSBmpInfo)
Call GetObject(hDestBmp, Len(tDBmpInfo), tDBmpInfo)
'申请空间
ReDim sBits(1 To tSBmpInfo.bmWidthBytes, 1 To tSBmpInfo.bmHeight)
ReDim dBits(1 To tDBmpInfo.bmWidthBytes, 1 To tDBmpInfo.bmHeight)

'获得源图与目标图二进制位
Call GetBitmapBits(hSrcBmp, tSBmpInfo.bmWidthBytes * tSBmpInfo.bmHeight, sBits(1, 1))
Call GetBitmapBits(hDestBmp, tDBmpInfo.bmWidthBytes * tDBmpInfo.bmHeight, dBits(1, 1))

'计算颜色值占用多少字节
BytesPixel = tSBmpInfo.bmBitsPixel / 8

'旋转
For Y = 1 To tSBmpInfo.bmHeight
    For X = 1 To tSBmpInfo.bmWidth
        Call CopyMemory(dBits((tSBmpInfo.bmHeight - Y) * BytesPixel + 1, X), sBits((X - 1) * BytesPixel + 1, Y), BytesPixel)
    Next X
Next Y

'将旋转的结果复制到目标位图
Call SetBitmapBits(hDestBmp, tDBmpInfo.bmWidthBytes * tDBmpInfo.bmHeight, dBits(1, 1))

End Function


'调用,一定要用image属性,不然会有问题
Call TurnBmp(Picture1.Image.handle, Picture2.Image.handle)

在我的机上(独龙600,win2ksp3),处理一副600*800的图片,
在ide中运行约0.8秒,
编译成exe,编译选项是"Optimize for Fast Code".运行,<0.4秒

有兴趣的可以试试用SetPixelV,GetPixel做上面的事情,肯定会慢许多
SetPixelV,GetPixel对应的vb的方法是pset,point,这个就没必要试了,这个慢得更厉害

                                                                                           lingll
                                                                                           2003-7-5

GetObject 和 GetBitmapBits 获取位图数据的区别

表面上看GetBitmapBits(...) 和 GetObject(...)都可以获取位图句柄中的数据,例如: 第一种方法:      HBITMAP hbitmap = (HBITMAP)Load...
  • jfu22
  • jfu22
  • 2015年04月25日 10:14
  • 2292

GetBitmapBits和GetDIBits的区别(Windows GDI)

Windows GDI中有两个用来得到位图图像数据的API,分别是GetBitmapBits和GetDIBits; 按照MSDN的解释,前者是用来得到设备独立位图的BITS, 后者是得到兼容位图的...
  • midle110
  • midle110
  • 2012年10月16日 12:15
  • 5354

GetObject 和 GetBitmapBits 获取位图数据的区别

表面上看GetBitmapBits(...) 和 GetObject(...)都可以获取位图句柄中的数据,例如: 第一种方法:      HBITMAP hbitmap = (HBITMAP)Load...
  • jfu22
  • jfu22
  • 2015年04月25日 10:14
  • 2292

Win32 使HBITMAP显示成透明效果

如何使HBITMAP显示成透明效果 将得到的HBITMAP显示到界面上,方法很多,最常用的就是用GDI+的Graphics对象,把它画到界面上: Graphics gg(hdc); B...
  • leehong2005
  • leehong2005
  • 2013年02月24日 22:00
  • 5861

vb.net中彩色图像数据的快速获取

一直以来,图像处理都是VB的禁区,主要的原因可能是因为她没有指针,而图像的数据量通常都很大。其实,只要有正确的方法,VB同样可以写出高效而又快速的图像处理程序的。         我并不是学图像...
  • sdgaojian
  • sdgaojian
  • 2014年02月18日 11:26
  • 1174

基于GPU平台利用CUDA加速图像处理算法 实时处理高清图像

近年来,以NVIDIATesla为代表的异构芯片(协处理器)逐渐被引入到通用计算领域中。最初的图形处理(GraphicProcessing Unit, GPU)就是用来处理大规模的并行计算,并且GPU...
  • zhang0311
  • zhang0311
  • 2012年11月25日 12:05
  • 5309

ZYNQ HLS图像处理加速总结(一)——FPGA硬件部分

以个人的理解,xilinx将HLS(高层次综合)定位于更方便的将复杂算法转化为硬件语言,通过添加某些配置条件HLS工具可以把可并行化的C/C++的代码转化为vhdl或verilog,相比于纯人工使用v...
  • u011070641
  • u011070641
  • 2016年01月11日 22:20
  • 3558

ZBar大图像处理加速

为了减少处理时间,可以设定更大的扫描间距,减少不必要的解码类型,去除位置记录: zbarimg -Sdisable -Scode128.enable -Sno-position -Sx-densit...
  • sunflower_boy
  • sunflower_boy
  • 2015年12月29日 20:44
  • 2527

GPU 加速下的图像处理

GPUImage是一个开源的资源,里面有一些非常酷的着色器。一个非常好的学习着色器的方式,就是拿一个你觉得很有意思的着色器,然后一行一行看下去,搜寻任何你不理解的部分。GPUImage 还有一个着色器...
  • SpriteKit
  • SpriteKit
  • 2015年06月04日 13:37
  • 1501

GPU 加速下的图像处理

Instagram,Snapchat,Photoshop。 所有这些应用都是用来做图像处理的。图像处理可以简单到把一张照片转换为灰度图,也可以复杂到是分析一个视频,并在人群中找到某个特定的人。尽...
  • Real_Myth
  • Real_Myth
  • 2016年04月19日 14:33
  • 572
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:(vb)利用GetBitmapBits,SetBitmapBits加速图像处理
举报原因:
原因补充:

(最多只允许输入30个字)