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

天下风起

本文实例讲述了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程序设计有所帮助。

您可能感兴趣的文章:

• Delphi基本图像处理方法汇总
• Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
• delphi字符串分隔函数用法实例
• Delphi7中群发Email邮件的方法
• delphi实现保存和读取图片的方法
• Delphi远程连接Mysql的实现方法
• Delphi实现获取进程列表及相关信息的实例