从 TBitmap.Palette 中提取的颜色错误答案

【问题标题】：Wrong colors extracted from TBitmap.Palette从 TBitmap.Palette 中提取的颜色错误
【发布时间】：2017-12-19 11:12:02
【问题描述】：

我正在尝试使用 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;

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

【问题讨论】：

请不要将 JPG 用于非摄影图像。
@AndreasRejbrand，你在哪里看到 JPG？
@Kobik 这里：[1]: https://i.stack.imgur.com/xTsgF.jpg，用放大镜观察时也清晰可见。尤其是在讨论像素及其颜色时，jpg 伪影可能会让任何试图重现该问题的人望而却步。
@TomBrunberg，好的，我明白你的意思（完全错过了屏幕截图格式）。但我认为它不会影响 这种情况 中的任何内容。托盘显然不一样。
感谢您的意见，下次我会使用 PNG。

标签： delphi winapi bitmap delphi-xe5 palette

【解决方案1】：

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

【讨论】：