delphi 获取图片某一像素的颜色值

前言:在VCL里有GetPixel函数,可直接用,在FMX里直接用这个函数没有定义,在FMX的library中找这个函数在FMX.Graphics.TBitmapData.GetPixel中

  结果我引用FMX.Graphics不行,引用FMX.Graphics.TBitmapData也不行,然后我就郁闷了半天。

  后来我声明了一个TBitmapData变量,结果可以使用该函数了,我欣喜若狂...

在窗体上放一个Image,在Image的OnMouseUp事件中取出鼠标点击那点的像素

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
vBitMapData: TBitmapData;
color: TAlphaColor;
begin
if Image1.Bitmap.Map(TMapAccess.Write, vBitMapData) then
begin
color := vBitMapData.GetPixel(Round(X), Round(Y)); // 获取像素 返回类型为TAlphaColor
ShowMessage(IntToHex(color, 1));              //为十六进制的颜色值
end;
Image1.Bitmap.Unmap(vBitMapData);
end;

http://www.cnblogs.com/studypanp/p/5003036.html 获取RGB

上一篇:JS相关链接


下一篇:终于说再见了!Google Reader