Delphi 驗證碼 圖片去雜點

由于二值圖點的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;