WEB开发网
开发学院WEB开发综合 VB图像处理之像素的获取和输出 阅读

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

 2006-02-27 11:50:09 来源:WEB开发网   
核心提示:要处理一个图像,首先要获得该图像的像素值,VB图像处理之像素的获取和输出,而VB本身提供的PICTURE控件虽然可以打开很多类型的图片,但是它提供的那个POINT方法读取像素实在是太慢,这只是一个开始,我真正要讲的东西还在后面呢,而使用GetPixel这个API的速度也快不到哪里去,因为PIONT方法本身就是对于Get
要处理一个图像,首先要获得该图像的像素值,而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=(Bits\8)-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=Bits\8
 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不是就可以了吗?

  不错,如果只是要贴个图,确实不用这么麻烦,可是,我们后面要说的图像处理部分将会用到前门得到的像素值。所以,这只是一个开始,我真正要讲的东西还在后面呢。请大家继续关注。->

Tags:VB 图像处理 像素

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接