图像干扰处理1

图像识别是一个复杂的过程，分别要经过图像处理、图像分割、图像校正、图像识别等过程
其中第一步就是去掉干扰
以下是itpub.net中的图灵    经过处理后的样子
                
代码如下
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Bmp: TBitmap;
  Color: TColor;
  x, y: Integer;
begin
  Bmp := TBitmap.Create;
  Bmp.Assign(Image1.Picture.Graphic);
  Bmp.PixelFormat := pf4bit;
  Color := BTColorIndex(Bmp, 2);
  for x := 0 to Bmp.Width - 1 do for y := 0 to Bmp.Height - 1 do
  begin
    if Bmp.Canvas.Pixels[x, y] = Color then Bmp.Canvas.Pixels[x, y] := ClBlack else Bmp.Canvas.Pixels[x, y] := ClWhite;
  end;
  Image2.Picture.Bitmap := Bmp;
end;