如何把BMP的真彩位图变为灰阶图，在线等待。。。。

Question

我用以下笨办法可以实现：
=========================
procedure TForm1.Button1Click(Sender: TObject);
var
   jp : TJpegImage;
begin
  jp := TJpegImage.Create;
  try
    jp.Assign(image1.Picture.Bitmap);
    jp.SaveToFile('c:\temp.jpg');
    image2.Picture.Assign(jp);
    TJPEGImage(Image2.Picture.Graphic).grayscale := true;
    image1.Picture.Graphic.Assign(image2.Picture.Graphic);
  finally
    jp.Free;
  end;
end;
//但一旦不执行 jp.SaveToFile('c:\temp.jpg');这句，则不成，困惑...

Answer 1

将一幅位图转换为灰度图：
procedure ConvertToGrayGraphic(var Bmp: TBitmap);
var
  p :PByteArray;
  Gray,x,y :Integer;
begin
  for y:=0 to Bmp.Height-1 do
  begin
    p:=Bmp.scanline[y];
    for x:=0 to Bmp.Width-1 do
    begin
        Gray:=Round(p[x*3+2]*0.3+p[x*3+1]*0.59+p[x*3]*0.11);//转换公式
        p[x*3]:=Gray;
        p[x*3+1]:=Gray;
        p[x*3+2]:=Gray;
    end;
  end;
end;