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