//

 灰度或者二值化彩色图像

procedure

 GrayImage(Image: TGpImage; Threshold: Single 

=

 

0.0

);

const

  ColorMatrix: TColorMatrix 

=

   ((

0.3

, 

0.3

, 

0.3

, 

0.0

, 

0.0

),

    (

0.59

, 

0.59

, 

0.59

, 

0.0

, 

0.0

),

    (

0.11

, 

0.11

, 

0.11

, 

0.0

, 

0.0

),

    (

0.0

, 

0.0

, 

0.0

, 

1.0

, 

0.0

),

    (

0.0

, 

0.0

, 

0.0

, 

0.0

, 

1.0

));

var

  Tmp: TGpImage;

  attr: TGpImageAttributes;

  g: TGpGraphics;

begin

  Tmp :

=

 Image.Clone;

  g :

=

 TGpGraphics.Create(Image);

  attr :

=

 TGpImageAttributes.Create;

  

try

    attr.SetColorMatrix(ColorMatrix);        

//

 灰度化

    

if

 Threshold 

>

 

0.0

 

then

                        

//

 如果给出了阀值，在灰度图基础上二值化

      attr.SetThreshold(Threshold);

    g.DrawImage(Tmp, GpRect(

0

, 

0

, Image.Width, Image.Height),

                

0

, 

0

, Tmp.Width, Tmp.Height, utPixel, attr);

  

finally

    g.Free;

    attr.Free;

    Tmp.Free;

  

end

;

end

;

procedure

 TForm1.Button1Click(Sender: TObject);

var

  Image: TGpImage;

  g: TGpGraphics;

begin

  Image :

=

 TGpImage.Create(

'

..mediaFRUIT.jpg

'

);

  g :

=

 TGpGraphics.Create(Handle, False);

  g.DrawImage(Image, 

10

, 

10

, Image.Width, Image.Height);

  GrayImage(Image, 

0.5

);

  g.DrawImage(Image, 

220

, 

10

, Image.Width, Image.Height);

  g.Free;

  image.Free;

end

;

 

 

从例子可以看出，彩色图像二值化，就是在其灰度化基础上给定一个0 - 1之间的阀值，所谓阀值就是每种颜色成分的分界点。假定阈值设置为 0.7，并且假定当前所呈现的颜色中的红色、绿色和蓝色成分分别为 230、50 和 220，那么红色成分 230 大于 0.7x255，因此，红色成分将更改为 255（全亮度）；绿色成分 50 小于0.7x255，因此，绿色成分将更改为 0； 蓝色成分 220 大于 0.7x255，因此，蓝色成分将更改为 255。

    由此可以看出，在正确得到灰度图图后，二值化程度的关键就在这个阀值。所以关于如何确定阀值的理论也就成立图像二值化最主要的理论。