贴一个最近写的一点程序,是从图像中提取R通道,至于G,B通道是一样的道理。
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to Image1.Width do
for j:=1 to image1.Height do
begin
Image2.Canvas.Pixels[i,j]:=Image1.Canvas.Pixels[i,j]and $0000ff;
end;
end;
程序说明:
image1:用来显示打开图像。
image2:用来显示变化和后的图像。
如果想提取G通道,将$0000ff换成$00ff00,B通道,$ff0000.
如果想存的话,用image2.picture.savetofile.