Как я могу получить изображение PNG RGBcolors в Delphi 2009

Question

У меня есть шифр, закодированный в виде цветовой серии в изображении png

изображение имеет цвет RGB, но код зашифрован только зеленым байтом

Как получить RGBцвета в этом 1x84 пиксельном изображении?

Answer 1

Это не сложно.Пример, показывающий R, G и B байтов пикселя (0, 0):

procedure TForm1.Click(Sender: TObject);
var
  png: TPngImage;
  clr: TColor;
begin
  png := TPngImage.Create;
  try
    png.LoadFromFile('C:\example.png');
    clr := png.Canvas.Pixels[0, 0];
    ShowMessage(IntToStr(GetRValue(clr)));
    ShowMessage(IntToStr(GetGValue(clr)));
    ShowMessage(IntToStr(GetBValue(clr)));
  finally
    png.Free;
  end;
end;