VB图像处理之像素的获取和输出

要处理一个图像，首先要获得该图像的像素值，而VB本身提供的PICTURE控件虽然可以打开很多类型的图片，但是它提供的那个POINT方法读取像素实在是太慢。而使用GetPixel这个API的速度也快不到哪里去，因为PIONT方法本身就是对于GetPixel的一个包装。
　　
　　在VB中要快速获取一幅在PICTURE中打开的图像比较快速的方法是使用DIB方法，当然还有DDB方法，不过使用DDB方法还需要考虑不同颜色深度的图像的分别处理，在程序的实现上要相对复杂，而使用DIB方法则不必，并且在处理速度上比DDB方法也慢的有限。
　　
　　过程一：获得一个在PICTURE控件中打开的图像的所有像素。
　　
　　->PublicSubDibGet(ByValIdSourceAsLong,XBeginAsLong,ByValYBeginAsLong,ByValXEndAsLong,ByValYEndAsLong)
　　　DimiBitmapAsLong
　　　DimiDCAsLong
　　　DimIAsLongDim
　　　DimWAsLong
　　　DimHAsLong
　　
　　　OnErrorGoToErrLine
　　　Done=False
　　　TimeGet=timeGetTime
　　　InPutWid=XEnd-XBegin
　　　InPutHei=YEnd-YBegin
　　　W=InPutWid 1
　　　H=InPutHei 1
　　
　　　I=(Bits8)-1
　　　ReDimColVal(I,InPutWid,InPutHei)
　　　Withbi24BitInfo.bmiHeader
　　.biBitCount=Bits
　　.biCompression=0&
　　.biPlanes=1
　　.biSize=Len(bi24BitInfo.bmiHeader)
　　.biWidth=W
　　.biHeight=H
　　　EndWith
　　
　　　iBitmap=GetCurrentObject(IdSource,7&)
　　　GetDIBitsIdSource,iBitmap,0&,H,ColVal(0,0,0),bi24BitInfo,0&DeleteObjectiBitmap
　　　Done=True
　　　TimeGet=timeGetTime-TimeGetExitSub
　　ErrLine:
　　　MsgBox"错误号："&Err.Number&"："&Err.Description
　　EndSub->
　　在这个过程中所用到的只是一些参数的设定和API的调用，不涉及算法。
　　
　　过程二：图像输出的过程：
　　
　　->PublicSubDIBPut(ByValIdDestinationAsLong)
　　　DimWAsLong
　　　DimHAsLong
　　
　　　OnErrorGoToErrLine
　　　Done=False
　　　TimePut=timeGetTime
　　
　　　W=OutPutWid 1
　　　H=OutPutHei 1
　　
　　　Withbi24BitInfo.bmiHeader
　　.biWidth=W
　　.biHeight=H
　　LineBytes=((W*Bits 31)And&HFFFFFFE0)8
　　.biSizeImage=LineBytes*H
　　　EndWith
　　　SetDIBitsToDeviceIdDestination,0,0,W,H,0,0,0,H,ColOut(0,0,0),bi24BitInfo.bmiHeader,0
　　
　　　Done=True
　　　TimePut=timeGetTime-TimePut
　　　ExitSub
　　ErrLine:
　　　MsgBoxErr.Description
　　EndSub->
　　下面解释一下在过程中到的全局变量和数据结构，以及API的定义。
　　
　　API定义：
　　
　　删除一个DC
　　
　　->PrivateDeclareFunctionDeleteDCLib"gdi32"(ByValhdcAsLong)AsLong->
　　删除一个对象
　　
　　->PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong->
　　选择当前对象
　　
　　->PrivateDeclareFunctionGetCurrentObjectLib"gdi32"(ByValhdcAsLong,ByValuObjectTypeAsLong)AsLong->
　　获取DIB
　　
　　->PrivateDeclareFunctionGetDIBitsLib"gdi32"(ByValaHDCAsLong,ByValhBitmapAsLong,ByValnStartScanAsLong,ByValnNumScansAsLong,lpBitsAsAny,lpBIAsBitMapInfo,ByValwUsageAsLong)AsLong->
　　获取系统时间
　　
　　->PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"()AsLong->
　　数据结构定义：
　　
　　->PrivateTypeBitMapInfoHeader'文件信息头――BITMAPINFOHEADER
　　　biSizeAsLong
　　　biWidthAsLong
　　　biHeightAsLong
　　　biPlanesAsInteger
　　　biBitCountAsInteger
　　　biCompressionAsLong
　　　biSizeImageAsLong
　　　biXPelsPerMeterAsLong
　　　biYPelsPerMeterAsLong
　　　biClrUsedAsLong
　　　biClrImportantAsLong
　　EndType
　　
　　PrivateTypeRGBQuad
　　　rgbBlueAsByte
　　　rgbGreenAsByte
　　　rgbRedAsByte
　　　'rgbReservedAsByte
　　EndType
　　
　　PrivateTypeBitMapInfo
　　　bmiHeaderAsBitMapInfoHeader
　　　bmiColorsAsRGBQuad
　　EndType->
　　这三个数据结构都是在DIB中不可缺少的。我们不必深究，只是按照顺序复制粘贴直接使用就是了。
　　
　　过程中用到的全局变量：
　　
　　->PrivateConstBitsAsLong=32'颜色深度，这里把所有图像都按照32位来处理
　　PublicDoneAsBoolean'用于标记一个过程是否结束
　　PublicTimeGetAsLong'用于记录输入过程处理所花费的时间
　　PublicTimePutAsLong'用于记录输出过程处理所花费的时间
　　DimColVal()AsByte'用于存放从DIB输入的像素值
　　DimColOut()AsByte'用于存放向DIB输出的像素值
　　DimInPutHeiAsLong'用于记录输入图像的高度
　　DimInPutWidAsLong'用于记录输入图像的宽度
　　Dimbi24BitInfoAsBitMapInfo'定义BMP信息->
　　可以看出，我在输入和输出中使用了两个不同的动态数组ColVal()和ColOut()，这么做是有道理的，因为我们不只是为了输入和输出图像，中间还要对像素进行处理。包括图像缩放、色彩调整、锐化、柔化等等处理，使用两个不同的数组来分别存放数据更有利于程序的实现。
　　
　　有些性急的朋友说不定已经把程序贴到工程里试用了，可是会发现根本不能输出图像。这是因为当你用DIBGET获得的图像还在ColVal()中呢，需要把它们放到ColOut()这个数组中去，DIBPUT这个过程才能起作用。
　　
　　这里再给出一个用于数组整体移动数据的过程：
　　
　　->PublicSubCopyData(ByValWAsLong,ByValHAsLong)
　　　DimLengthAsLong
　　　DimIAsLong
　　　DimLAsLong
　　　I=Bits8
　　　L=I-1
　　　Length=(W 1&)*(H 1&)*I
　　　ReDimColOut(L,W,H)
　　　CopyMemoryColOut(0,0,0),ColVal(0,0,0),Length
　　Endsub->
　　API定义：
　　
　　->PrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(pDestAsAny,pSrcAsAny,ByValByteLenAsLong)->
　　这时，我们就可以来试一下效果了：
　　
　　把你的显示器调到32位色。
　　
　　将前面的所有API和变量定义全部贴到一个新建的模块里
　　
　　新建一个窗体，加两个PICTURE控件：pictrue1,picture2一个按钮command1
　　
　　在pictrue1中加载一个图片
　　
　　在command1中写如下代码：
　　
　　->subcommand1_click()
　　　Withpicture1
　　.ScaleMode=3
　　.BorderStyle=0
　　DibGet.hdc,0,0,.scalewidth,.scaleheight
　　　EndWith
　　　CopyDataInPutHei,InPutWid
　　　picture2.AutoRedraw=True
　　　DibPutpicture2.hdc
　　　picture2.refresh
　　endsub->
　　运行一下，按钮按下，pictreu1中的图片就立刻显示到了picture2中。
　　
　　这时，你可能会说，弄了这么半天就贴个图？用PaintPicture不是就可以了吗？
　　
　　不错，如果只是要贴个图，确实不用这么麻烦，可是，我们后面要说的图像处理部分将会用到前门得到的像素值。所以，这只是一个开始，我真正要讲的东西还在后面呢。请大家继续关注。->