delphi实现将BMP格式图形转化为JPG格式图形的方法
<p>本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下：</p><p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code82357"><br />
procedure ConvertBMPtoJPG(SFileName,DFileName:string);<br />
Var<br />
J:TJpegImage;<br />
I:TBitmap;<br />
S,D:String;<br />
begin<br />
s:=SFileName;<br />
d:=DFileName;<br />
J:=TJpegImage.Create;<br />
I:=TBitmap.Create;<br />
I.LoadFromFile(s);<br />
J.Assign(I);<br />
I.Free;<br />
d:=changefileext(d,'.jpg');<br />
J.SaveToFile(d);<br />
Application.processmessages;<br />
J.Free;<br />
end;<br />
</div></p>
<p>希望本文所述对大家的Delphi程序设计有所帮助。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>Delphi基本图像处理方法汇总</li><li>Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法</li><li>delphi字符串分隔函数用法实例</li><li>Delphi7中群发Email邮件的方法</li><li>delphi实现保存和读取图片的方法</li><li>Delphi远程连接Mysql的实现方法</li><li>Delphi实现获取进程列表及相关信息的实例</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]