请问：读取BMP的方法

Question

请问，如何将128×128图片的每个象素的颜色读出来（只有3种颜色）
谢谢指教

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  str: string;
  cl: TColor;
begin
  memo1.Text := '';
  for i := 1 to image1.Height do
  begin
    str := '';
    for j := 1 to image1.Width do
    begin
      cl := image1.Canvas.Pixels[i,j];
      str := str + IntToStr(integer(cl)) + '  ';
    end;
    memo1.Lines.Add(str);
  end;
end;

Answer 2

var C:TColor;
   R,G,B:Byte;
for x:=1 to 128 do
  for y:=1 to 128 do
  begin
  C:=Image.Picture.Bitmap.Canvas.Pixels[x,y];//颜色
  R:=GetRValues(C);//三原色
  G:=GetGValues(C);//..
  B:=GetBValues(C);//..
  .......
  end;不知道楼主说的是不是这个.....

Answer 3

BMP文件存贮的是图片的点阵信息吗？请问怎样可以读出矩阵！