如何得到timage上一点的颜色(50分)

  • 主题发起人 主题发起人 dreamese
  • 开始时间 开始时间
D

dreamese

Unregistered / Unconfirmed
GUEST, unregistred user!
偶使用Image1.Canvas.Pixels[x,y]
怎么就报错了呢

project Project1.exe raise exception class EInvalidOpration with message
'Can only modify an image if it contains a bitmap'

偶给image1倒入的图片是jpg的
 
'Can only modify an image if it contains a bitmap'
只能修改一个包含bitmap(bmp格式)的image换成bmp试试。
 
是的,换成bmp就可以了
能不能介绍个直接jpg图片颜色方法
 
procedure TForm1.Button5Click(Sender: TObject);
var
MyBmp: TBitmap;
begin
MyBmp := TBitmap.Create;
MyBmp.Assign(Image1.Picture.Bitmap);//Image1中调用的是Jpg图片
Showmessage(IntToStr(MyBmp.Canvas.Pixels[0,0]));//得到第[0,0]点颜色值
MyBmp.Free;
end;

 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
664
import
I
I
回复
0
查看
711
import
I
后退
顶部