delphi Jpg和Bitmap互转转换的方法

本文整理自网络，侵删。

 
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;
--------------------- 
作者：zb872676223 
来源：CSDN 
原文：https://blog.csdn.net/zb872676223/article/details/81204551 

 

相关阅读 >>

Delphi如何计算一个文件目录的大小

Delphi dbgrid 表格自适应宽度

Delphi memo 内容每n行分批处理

Delphi listview 与数据库连接

Delphi中如何用一个按钮控制开与关两个状态

Delphi 从其它access数据导入数据到本地数据库

Delphi 判断是否出现滚动条

Delphi tchart使用经验小结

Delphi 字符串查找函数

Delphi xe5 Delphi 解析 json

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Jpg和Bitmap互转转换的方法