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 xe7写的一个http post的小测试程序

Delphi fdquery1查询，有无返回集

Delphi xe使用tjsonobject解析json数据

Delphi整理六（数据与记录）

Delphi 利用windows api判断文件共享锁定状态

delhpi如何直接获得webbrowser输入的xml文件

Delphi多线程学习：多线程数据库查询（ado）

Delphi 防局域网控制网速代码

Delphi xe 中使用正则表达式

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

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