在delphi我怎樣才能png圖片RGBcolors 2009年

Question

我有一個密碼編碼爲一個PNG圖像

圖像色彩系列RGB顏色，但代碼只在綠色字節加密

如何在這個1x84像素圖像中獲得RGB顏色？

Answer 1

這並不難。示例顯示像素（0,0）的R，G和B字節：

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;