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

最新推荐文章于 2021-09-11 09:36:21 发布

原创

最新推荐文章于 2021-09-11 09:36:21 发布 · 6.4k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#图像处理 #vb #function #integer #byte #image

本文介绍了如何利用VB中的GetBitmapBits和SetBitmapBits函数来加速图像处理，特别是图像旋转操作。通过直接操作位图的二进制数据，实现了比使用SetPixelV和GetPixel更快的图像旋转功能。作者提供了顺时针旋转90度的函数示例，展示了在不同环境下运行的速度提升。

(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度的函数.
假设目标图像的宽等于源图的长,目标图像的长等于源图的宽,两图颜色值占用的位数相等.<