用VB写高效的图像处理程序.docVIP

用VB写高效的图像处理程序 自盘古开天地以来（好像夸张了点），一直有人抱怨VB程序速度慢。特别是图像处理，被认为是VB的禁区。说起来也是，市面上的关于VB的图像处理的数据都是先讲计算公式，再直接用PSet（或API函数SetPixel）逐点画（至少我见过的书都是这样）。效果是办到了，但速度慢得离谱：对一幅640*480的图像进行半透明合并就需要10秒钟；而在PhotoShop中，只要一设置图层的透明度，半透明效果立即呈现。难怪有人说VB的闲话。 　　但这并不表示VB不能写高速的图像处理程序，速度慢是因为没有使用正确的方法。 　　从VB5开始，能以本机代码编译成exe文件，所以不存在代码执行速度的问题。那么，是什么拖慢了速度呢？就是PSet和SetPixel！PSet把浮点形式的坐标转为像素单位，再交给SetPixel处理。而SetPixel呢，坐标系转化、剪裁区域判断、将颜色匹配为设备支持的最接近的，最后还要根据不同的颜色格式寻址、为将颜色写入其所在位进行位运算。经过这么多层处理，速度不慢才怪。 　　那么，怎样才能提高处理速度呢？使用DIB，直接对位图所在内存进行操作，速度可以大大提高。现在看看，这只是一个简单的色彩演示程序。 CPU:赛扬333；内存:PC100（很老的概念了）的SDRAM，128MB；单位:毫秒 Windows 98 Windows XP 说　明 VB_PSet 1,199.4553 786.1885 在VB使用 PSet 画的 VB_SetPixel 872.3621 451.3712 在VB使用 SetPixelV 画的 VB_DIB 8.2218 8.2226 在VB使用 DIB 画的 VB_DIB_Ptr 9.6783 9.4420 在VB使用 DIBSection + 模拟指针 画的 VC(Debug) 6.6896 6.6503 VC写的（Debug版） VC(Release) 3.2736 3.6247 VC写的（Release版） 　　从这个表中可看出：?　　1.VC比VB_DIB、VB_DIB_Ptr快两倍，这是因为SafeArray结构的数组比真正的指针慢，但也不是某些人所说的70~100倍；　　2.VB_DIB_Ptr比VB_DIB慢一点，这是因为模拟指针本来就是靠SafeArray结构的数组，而且模拟指针需要对两个数组进行操作，所以速度慢一点；　　3.真正差了70~100倍是VB_PSet和VB_SetPixel，特别是VB_PSet在Windows98下与VB_DIB差了145倍。 　　以上可证，速度慢的原因是SetPixel非常低效，而并不是VB的问题。虽然VC的的确比较快，但是我写这篇文章不是为了讨论速度极限（否则这篇文章会改名为《如何用汇编写高速的图像处理程序》），而是为了告诉大家如何在VB中写能够实时处理的图像处理程序。  　　在 Windows 3.0 以前，Windows系统用的是DDB（设备有关位图）。DDB没有调色板，显示的颜色依赖硬件，处理色彩很不方便。所以 Microsoft 在 Windows 3.0中 重新定义了BMP文件格式（BMP 3.0），使其支持设备无关位图——也就是DIB。 　　时至今日，BMP的版本号已升至5.0（Windows NT 4.0、Windows95 定义了 BMP 4.0，Windows 98、Windows 2000 定义了 BMP 5.0），但基本结构没有变——仍是 BMP文件头 和 DIB 组成： BMP文件 BITMAPFILEHEADER BMP文件头 DIB BITMAPINFOHEADER 位图信息头 BITMAPINFO RGBQUAD[] 调色板 位图数据 （#代表可以不填(=0)的项目）? BMP文件头——BITMAPFILEHEADER 原型定义： typedef struct tagBITMAPFILEHEADER { // bmfh WORD bfType; DWORD bfSize; WORD bfReserved1; WORD bfReserved2; DWORD bfOffBits; } BITMAPFILEHEADER; VB声明： Type BITMAPFILEHEADER bfType(0 to 1) As Byte bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type 说明： bfType 指示文件的类型，必须是“BM” bfSize# 指示文件的大小，包括BITMAPFILEHEADER bfRese