Comment puis-je obtenir png RGBcolors d'image dans delphi 2009

Question

j'ai un chiffre codé comme une série de couleurs dans une image .png

l'image est de couleur RVB, mais le code est encrypté que dans l'octet vert

Comment puis-je obtenir les couleurs RVB dans cette image 1x84 pixels?

Answer 1

Ce n'est pas difficile. Exemple, montrant les octets R, G et B du pixel (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;