delphi - 从 TBitmap.Palette 中提取的颜色错误

Question

我正在尝试使用 TBitmap.Palette 从 8 位位图中提取颜色。我的颜色乱了，我不知道为什么。我创建了一个简单的视觉测试来比较结果:

我正在使用的代码:

procedure TForm36.FormCreate(Sender: TObject);
var
  LBitmap1, LBitmap2: TBitmap;
  LPaletteEntries: TMaxLogPalette;
  P1: PByteArray;
  P2: PRGBTriple;
  X,Y: Integer;
begin
  {$POINTERMATH ON}
  LBitmap1 := TBitmap.Create;
  LBitmap1.LoadFromFile('E:\3x2x8.bmp');
  img1.Picture.Assign(LBitmap1);

  LBitmap2 := TBitmap.Create;
  LBitmap2.Width := LBitmap1.Width;
  LBitmap2.Height := LBitmap1.Height;
  LBitmap2.PixelFormat := pf24bit;

  GetPaletteEntries(LBitmap1.Palette, 0, 256, LPaletteEntries);
  for Y := 0 to LBitmap1.Height - 1 do
  begin
    P1 := LBitmap1.ScanLine[Y];
    P2 := LBitmap2.ScanLine[Y];
    for X := 0 to LBitmap1.Width - 1 do
    begin
      P2[X].rgbtBlue := LPaletteEntries.palPalEntry[P1[X]].peBlue;
      P2[X].rgbtGreen := LPaletteEntries.palPalEntry[P1[X]].peGreen;
      P2[X].rgbtRed := LPaletteEntries.palPalEntry[P1[X]].peRed;
    end;
  end;
  img2.Picture.Assign(LBitmap2);
end;

知道我做错了什么吗？谢谢。

Answer 1

我向 GetPaletteEntries 传递了错误的结构。我应该传递 palPalEntry: array [0..255] of TPaletteEntry; 而不是 TMaxLogPalette。