; p[3*x+1]:=byte(Gray);
p[3*x]:=byte(Gray);
end;
end;
image4.Picture.Bitmap := Bmp;
Bmp.Free;//释放TBitmap
end;
原图：
处理后：
procedure TForm1.BitBtn4Click(Sender: TObject);
var
p: pbyteArray; //位指针
x,y: integer;//x宽，y高
Bmp: TBitmap;//位图组件（TBitMap）
Gray: integer;//灰度值
begin
Bmp := TBitmap.Create;//建立一个TBitmap
Bmp.Assign(Form1.Image1.Picture.Bitmap);//将image图片转为位图模式
Bmp.PixelFormat := pf24bit; //设为24位之彩色位图，PixelFormat 为位图的内存格式和颜色深度，总共9个值
for y := 0 to Bmp.Height-1 do
begin
p :=Bmp.ScanLine[y];//ScanLine方法用于获取像素颜色值
for x:=0 to Bmp.Width-1 do
begin
Gray:=round(p[3*x+2]*0.3+p[3*x+1]*0.59+p[3*x]*0.11);//公式Y=0.299R+0.857G+0.113B
p[3*x+2]:=byte(Gray);
p[3*x+1]:=byte(Gray);
p[3*x]:=byte(Gray);
end;
end;
image4.Picture.Bitmap := Bmp;
Bmp.Free;//释放TBitmap
end;
原图：
处理后：
步骤四：image图片的二值化
阈值的选择主要分为两类：全局阈值和局部阈值。
全局阈值是对整个图像采用一个阈值进行划分，例如固定阈值法二值化、判断分析化二值化等；
局部阈值是将图像分为几块，每个子块采用不同的阈值；（具体局部阈值法可以自行百度，这里不必过多解释）
代码：
procedure TForm1.BitBtn4Click(Sender: TObject);
var
p: pbyteArray; //位指针
x,y: integer;//x宽，y高
Bmp: TBitmap;//位图组件（TBitMap）
Gray: integer;//灰度值
begin
Bmp := TBitmap.Create;//建立一个TBitmap
Bmp.Assign(Form1.Image1.Picture.Bitmap);//将image图片转为位图模式
Bmp.PixelFormat := pf24bit; //设为24位之彩色位图，PixelFormat 为位图的内存格式和颜色深度，总共9个值
for y := 0 to Bmp.Height-1 do
begin
p :=Bmp.ScanLine[y];//ScanLine方法用于获取像素颜色值
for x:=0 to Bmp.Width-1 do
begin
Gray:=round(p[3*x+2]*0.3+p[3*x+1]*0.59+p[3*x]*0.11);//公式Y=0.299R+0.857G+0.113B
//图像二值化
if Gray > 120 then//
阈值为120
begin
p[3*x+2]:=255;
p[3*x+1]:=255;
p[3*x]:=255;
end
else
begin
p[3*x+2]:=0;
p[3*x+1]:=0;
p[3*x]:=0;
end;
//分割线-------------------------------------
end;
end;
image4.Picture.Bitmap := Bmp;
Bmp.Free;//释放TBitmap
end;
原图： 
处理后：
从效果图可以看出，图像二值化就是设定一个阈值，然后判定每点的RGB值大于还是小于阈值，大于则为255即黑色，小于阈值则为0即白色。
qq：673890989 欢迎有兴趣的伙伴交流
经验