Delphi二值图片去杂点问题

最新推荐文章于 2021-05-24 10:05:24 发布

转载最新推荐文章于 2021-05-24 10:05:24 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

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

本文介绍了一种基于像素比较的二值图像去噪方法，通过设定阈值N，如果某像素点与其周围8个像素点颜色相同的数量小于N，则认为该点为噪点并进行修正。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

由于二值图点的RGB是0或者255，可以根据一个点A的RGB值与周围的8个点的RBG 比较设定一个值N（0 <N <8）当A的RGB值与周围8个点的RGB相等数小于N时此点为噪点改变其RGB值即可 .

附上一段代码没具体测试。

procedure ClearNoise(Bitmap:TBitmap;N:Integer);
var
  piexl : tcolor;
  nearDots,x,y,RGBz : integer;
begin
  bitmap.Canvas.Pixels[0,0]:=rgb(255, 255, 255);
  bitmap.Canvas.Pixels[bitmap.Width - 1,bitmap.Height - 1]:=rgb(255, 255, 255);
  for x := 1 to bitmap.Width -2 do
  for y := 1 to bitmap.Height-2 do
  begin
    piexl := bitmap.Canvas.Pixels[x,y];
    RGBz := getrvalue(piexl);
    if (RGBz = 0) then
    begin
      nearDots := 0;  //判断周围8个点RGB是否相等
      if (getrvalue(bitmap.Canvas.Pixels[x - 1, y - 1]) = RGBz) then nearDots:=nearDots+1 ;
      if (getrvalue(bitmap.Canvas.Pixels[x, y - 1]) = RGBz) then nearDots:=nearDots+1 ;
      if (getrvalue(bitmap.Canvas.Pixels[x + 1, y - 1]) = RGBz) then nearDots:=nearDots+1 ;
      if (getrvalue(bitmap.Canvas.Pixels[x - 1, y]) = RGBz) then nearDots:=nearDots+1 ;
      if (getrvalue(bitmap.Canvas.Pixels[x + 1, y]) = RGBz) then nearDots:=nearDots+1 ;
      if (getrvalue(bitmap.Canvas.Pixels[x - 1, y + 1]) = RGBz) then nearDots:=nearDots+1 ;
      if (getrvalue(bitmap.Canvas.Pixels[x, y + 1]) = RGBz) then nearDots:=nearDots+1 ;
      if (getrvalue(bitmap.Canvas.Pixels[x + 1, y + 1] )= RGBz) then nearDots:=nearDots+1 ;
      if (nearDots < N) then  bitmap.Canvas.Pixels[x,y]:=rgb(255, 255, 255)
    end
    else
      bitmap.Canvas.Pixels[x,y]:=rgb(255, 255, 255);
  end;
end;

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