彩色图变为灰度图的问题。

Question

一个256色的bmp,要将其变为灰度图。
图像中每一个像素应该是在调色板中索引值（不知是不是）
要灰度化的话，必须先取出基R，G，B分量，再乘以一定的系数才行，是吗？
如果是，只能在调色板中得到是吗？
如果得到灰度后，是不是得从新创建一个新的调色板呢？谢谢。
希望大家指点。

Answer 1

灰度级处理
procedure Gray(bmp: TBitmap);
var
  p: PByteArray;
  w: Integer;
  i, j: Integer;
begin
  bmp.pixelformat := pf24bit;
  for i := 0 to bmp.height - 1 do
  begin
    p := bmp.scanline[i];
    j := 0;
    while j < (bmp.width-1) * 3 do
    begin
      w :=(p[j] * 28 + p[j+1] * 151 + p[j+2]*77);
      w := w shr 8;
      p[j] := byte(w);
      p[j+1] := byte(w);
      p[j+2] := byte(w);
      inc(j, 3)
    end;
  end;
end; **************************
//This function turns a colored Bitmap into Grayshades 
uses 
  Windows, Graphics; function ConvertBitmapToGrayscale1(const Bitmap: TBitmap): TBitmap; 
var 
  i, j: Integer; 
  Grayshade, Red, Green, Blue: Byte; 
  PixelColor: Longint; 
begin 
  with Bitmap do 
    for i := 0 to Width - 1 do 
      for j := 0 to Height - 1 do 
      begin 
        PixelColor := ColorToRGB(Canvas.Pixels[i, j]); 
        Red        := PixelColor; 
        Green      := PixelColor shr 8; 
        Blue       := PixelColor shr 16; 
        Grayshade  := Round(0.3 * Red + 0.6 * Green + 0.1 * Blue); 
        Canvas.Pixels[i, j] := RGB(Grayshade, Grayshade, Grayshade); 
      end; 
  Result := Bitmap; 
end; procedure ConvertBitmapToGrayscale2(const Bmp: TBitmap); 
  {From: Pascal Enz, [email protected] } 
type 
  TRGBArray = array[0..32767] of TRGBTriple; 
  PRGBArray = ^TRGBArray; 
var 
  x, y, Gray: Integer; 
  Row: PRGBArray; 
begin 
  Bmp.PixelFormat := pf24Bit; 
  for y := 0 to Bmp.Height - 1 do 
  begin 
    Row := Bmp.ScanLine[y]; 
    for x := 0 to Bmp.Width - 1 do 
    begin 
      Gray           := (Row[x].rgbtRed + Row[x].rgbtGreen + Row[x].rgbtBlue) div 3; 
      Row[x].rgbtRed := Gray; 
      Row[x].rgbtGreen := Gray; 
      Row[x].rgbtBlue := Gray; 
    end; 
  end; 
end; 
procedure ConvertBitmapToGrayscale3(const Bitmap: TBitmap); 
type 
  PPixelRec = ^TPixelRec; 
  TPixelRec = packed record 
    B: Byte; 
    G: Byte; 
    R: Byte; 
    Reserved: Byte; 
  end; 
var 
  X: Integer; 
  Y: Integer; 
  P: PPixelRec; 
  Gray: Byte; 
begin 
  Assert(Bitmap.PixelFormat = pf32Bit); 
  for Y := 0 to (Bitmap.Height - 1) do 
  begin 
    P := Bitmap.ScanLine[Y]; 
    for X := 0 to (Bitmap.Width - 1) do 
    begin 
      Gray := Round(0.30 * P.R + 0.59 * P.G + 0.11 * P.B); 
      // Gray := (P.R shr 2) + (P.R shr 4) + (P.G shr 1) + (P.G shr 4) + (P.B shr 3); 
      P.R := Gray; 
      P.G := Gray; 
      P.B := Gray; 
      Inc(P); 
    end; 
  end; 
end;