⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bmp_to_jpg.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
 
<HTML>
<!-- #BeginTemplate "/Templates/alltips.dwt" --> 
<HEAD>
<TITLE>Delphi爱好者--技巧集</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.font9 {  font-size: 9pt; text-decoration: none}
.font105 {  font-size: 10.5pt; text-decoration: none}
a:hover {  color: #F77C02; text-decoration: underline}
a:active {  color: #0000FF; text-decoration: none}
a {  color: #0000FF; text-decoration: none}
-->
</style>
</HEAD>
<BODY BGCOLOR="#FFFFFF" class="font9">
<!-- #BeginEditable "head" --> 
<p align="center"><b>如何将bmp文件转换为jpg文件，请问在Delphi中要怎样转换才能装入 jpg文件？</b></p>
<p>回答网友问题： <br>
  =========================================================================〉 <br>
  : 如何将bmp文件转换为jpg文件，请问在Delphi中要怎样转换才能装入<br>
  : jpg文件？<br>
  : <br>
  &lt;======================================================================== 
  <br>
  这位网友，如果你使用Delphi4，注意到它的TImage支持的文件格式可以为*.Jpg,*.Jpeg,*.bmp,*.ico……这个问题将很好解决！ 
  <br>
  下面是源代码：<br>
  &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt; 
  <br>
  procedure TForm1.Button1Click(Sender: TObject); <br>
  (*压缩MBP为JPEG;但是没有提供压缩比可选项 <br>
  凑合用吧，大概1/3 ^_^: <br>
  Note:必须加上JPEG到Uses单元 <br>
  *) <br>
  var <br>
  MyJPEG : TJPEGImage; <br>
  MyBMP : TBitmap; <br>
  begin <br>
  MyBMP := TBitmap.Create; <br>
  with MyBMP do <br>
  try <br>
  LoadFromFile('e:\lm.BMP'); //你的图片位置 <br>
  MyJPEG := TJPEGImage.Create; <br>
  with MyJPEG do begin <br>
  Assign(MyBMP); <br>
  CompressionQuality:=10; //压缩比例 <br>
  Compress; <br>
  SaveToFile('e:\lm01.JPEG');//保存路径…… <br>
  Free; <br>
  end; <br>
  finally <br>
  Free; <br>
  end; <br>
  end; <br>
  &gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt; 
</p>
<p></p>
<p>窗体As text代码 <br>
  （不必要……）</p>
<br>
<div align="center" class="font9"><span class="font9">『Site:<a href="../index.html" target="_top">delphi爱好者</a> 
  | E-mail:<a href="mailto:delphifan@990.net%20">delphifan@990.net </a>| Webmaster:<a href="../aboutme.htm" target="_top">梁 
  明</a>』</span> <br>
  <span class="font9">---------------------------------------------------------------------------</span> 
</div>
<div align="center"> </div>
<div align="center"> 
  <input type="button" value="返 回" onClick="history.go( -1 );return true;" name="button">
</div>
<!-- #EndEditable --> 
</BODY>
<!-- #EndTemplate -->
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -