Delphi 图片转换（jpg、bitmap、png、gif）

Delphi 图片转换（jpg、bitmap、png、gif）

1、jpg

?

1 2 3 4 5 6 7 8 9

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

?

1 2 3 4

begin   // 加载24位高清BMP图片（小、大都能成立）   Image1.Picture.Bitmap.LoadFromFile(getcurrentdir() + '\pic24位-大.bmp'); end;

 

3、png

?

1 2 3 4 5 6 7 8

var   png: TPNGObject;  // uses pngimage; begin   png := TPNGObject.Create;   png.LoadFromFile(getcurrentdir() + '\pic.png');   Image1.Picture.Assign(png);   png.Free; end;

4、gif

 

?

1 2 3 4 5 6 7 8 9

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