Delphi中GDI+实现图像二值化

最新推荐文章于 2019-12-25 14:22:15 发布

weixin_33856370

最新推荐文章于 2019-12-25 14:22:15 发布

阅读量666

点赞数

CC 4.0 BY-SA版权

文章标签：人工智能

原文链接：http://www.cnblogs.com/rogee/archive/2010/09/15/1827318.html

本文介绍了一种将彩色图像转换为灰度图像并进行二值化的方法，通过使用特定的颜色矩阵来实现灰度化，然后根据设定的阈值进行二值化处理，关键在于选择合适的阈值。

// 灰度或者二值化彩色图像
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。
由此可以看出，在正确得到灰度图图后，二值化程度的关键就在这个阀值。所以关于如何确定阀值的理论也就成立图像二值化最主要的理论。

转载于:https://www.cnblogs.com/rogee/archive/2010/09/15/1827318.html