delphi Jpg和Bitmap互转转换的方法：

最新推荐文章于 2024-04-25 19:51:18 发布

原创最新推荐文章于 2024-04-25 19:51:18 发布 · 3.1k 阅读

1 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

2 篇文章

订阅专栏

本文提供了在Delphi中实现JPG图片文件与Bitmap之间的互相转换的代码示例。通过使用JPEG组件，可以轻松地完成这两种图像格式的转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

delphi Jpg和Bitmap互转转换的方法：

uses Jpeg;

procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(JpgFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;

procedure Jpeg2Bmp(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Jpg.LoadFromFile(JpgFileName);
    Bmp.Assign(Jpg);
    Bmp.SaveToFile(BmpFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;