delphi实现将BMP格式图形转化为JPG格式图形的方法

 更新时间:2014年12月20日 10:38:56   投稿:shichen2014  
这篇文章主要介绍了delphi实现将BMP格式图形转化为JPG格式图形的方法,通过简单的自定义函数调用系统自带的changefileext及SaveToFile等方法来实现格式转换功能,是非常实用的技巧,需要的朋友可以参考下
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud

(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun

本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下:

复制代码 代码如下:

procedure ConvertBMPtoJPG(SFileName,DFileName:string);
Var
  J:TJpegImage;
  I:TBitmap;
  S,D:String;
begin
  s:=SFileName;
  d:=DFileName;
  J:=TJpegImage.Create;
  I:=TBitmap.Create;
  I.LoadFromFile(s);
  J.Assign(I);
  I.Free;
  d:=changefileext(d,'.jpg');
  J.SaveToFile(d);
  Application.processmessages;
  J.Free;
end;

希望本文所述对大家的Delphi程序设计有所帮助。

相关文章

最新评论

?


http://www.vxiaotou.com