从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。