Delphi 图片转换,jpg、bitmap、png、gif
Delphi 图片转换(jpg、bitmap、png、gif)
1、jpg
var jpg: TJPEGImage; // 要uses Jpeg单元 begin // 显示jpg大图片的方式 jpg := TJPEGImage.Create; jpg.LoadFromFile(getcurrentdir() + '\pic.jpg'); Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的 jpg.Free; end;
2、bitmap
begin // 加载24位高清BMP图片(小、大都能成立) Image1.Picture.Bitmap.LoadFromFile(getcurrentdir() + '\pic24位-大.bmp'); end;
3、png
var png: TPNGObject; // uses pngimage; begin png := TPNGObject.Create; png.LoadFromFile(getcurrentdir() + '\pic.png'); Image1.Picture.Assign(png); png.Free; end;
4、gif
var gif: tgifimage; //uses gifimage begin gif := tgifimage.Create; gif.LoadFromFile(getcurrentdir() + '\pic.gif'); Image1.Picture.Assign(gif); //Image1.Picture.Bitmap.Assign(gif); //注意区别 gif.Free; end;
创建时间:2020.08.27 更新时间:2020.09.25