在Image控件上的图象类型为JPG时,为什么不能在Image.Canvas上画图

xyz_no1 2001-08-31 01:32:42
而当类型为BMP时,则行?
...全文
102 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ch81 2001-08-31
  • 打赏
  • 举报
回复
bmp--->jpg
代码如下,记得加入 use jpeg.
var
MyJpeg: TJpegImage;
Image1: TImage;
begin
Image1:= TImage.Create(self);
MyJpeg:= TJpegImage.Create;
Image1.Picture.Bitmap.LoadFromFile('c:\windows\desktop\aa.BMP'); // Load the Bitmap from a file
MyJpeg.Assign(Image1.Picture.Bitmap); // Assign the BitMap to MyJpeg object
MyJpeg.CompressionQuality:=StrToInt('75');
MyJpeg.Compress;
MyJpeg.SaveToFile('c:\windows\desktop\test.JPG'); // Save the JPEG to Disk
end;

jpg--->bmp
JpegImage:TJPEGImage;
BitmapImage:TBitmap;
JpegImage:=TJPGEImage.Create();
Bitmap:=TBitmap.Create();
JpegImage.LoadFromFile('D:\test.jpeg');
Bitmap.Assign(JpegImage);
Bitmap.SaveToFile('D:\test.bmp');
JpegImage.Free;
JpegImage:=nil;
BitmapImage.Free;
BitmapImage:=nil;
xyz_no1 2001-08-31
  • 打赏
  • 举报
回复
up
xyz_no1 2001-08-31
  • 打赏
  • 举报
回复
如何转化?
ch81 2001-08-31
  • 打赏
  • 举报
回复
Image控件上只能放bmp,对于bmp是可以画的。你可先把jpg转成bmp,然后画完后,在bmp转成jpg

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧