如何读取真色彩图像?如何存成三个位图?(0分)

  • 主题发起人 主题发起人 liubin11
  • 开始时间 开始时间
能说的具体点吗?也就是你的要求。
 
将真彩色图像分解为表现红、蓝、绿三色的灰度图像并取逆,存成三个位图,帮帮忙,急!!
 
你可以在像素分解的问题下回答,我给你200分
 
贴一个最近写的一点程序,是从图像中提取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.
 
后退
顶部