📄 005.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--多媒体类-->Delphi中对Jpeg格式文件的处理...</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--多媒体类 Delphi中对Jpeg格式文件的处理...">
<META NAME="description" CONTENT=" - DELPHI专题--多媒体类 - Delphi中对Jpeg格式文件的处理...">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index.html">返回</a>

<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">Delphi中对Jpeg格式文件的处理...</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p class="tt2">(1).在&nbsp;Uses&nbsp;中加入&nbsp;JPEG&nbsp;单元; &nbsp;&nbsp; 
&nbsp;<br> 
&nbsp;&nbsp;(2).定义一个全程变量,例如&nbsp;var&nbsp;&nbsp;AJPEG&nbsp;:&nbsp;TJPEGImage; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;(3).在&nbsp;Form&nbsp;的&nbsp;OnCreate&nbsp;事件中加入&nbsp;: 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Pen.Color:=clBlack;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Pen.Style:=psSolid;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Brush.color:=clBtnFace;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Brush.Style:=bsSolid;&nbsp;&nbsp;//此上是设置&nbsp;Canvas&nbsp;的一些属性,便于以后 
&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//Clear&nbsp;Form&nbsp;and&nbsp;Load&nbsp;a&nbsp;new&nbsp;JPEG&nbsp;file; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;AJpeg:=TJpegImage.Create;//动态生成AJpeg;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;AJpeg.LoadFromFile('D:\Temp.jpg')&nbsp;&nbsp;//生成&nbsp;AJpeg&nbsp;后,调入&nbsp;JPEG&nbsp;文件&nbsp;; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;(4).在&nbsp;Form&nbsp;的&nbsp;OnPain&nbsp;事件中加入&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Rectangle(2,2,560,430);&nbsp;//画一个黑框的矩形将图片围住; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x:=10;&nbsp;&nbsp;y:=10;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Form1.Canvas.Draw(x,y,AJpeg);&nbsp;//以(x,y)为左上角输出&nbsp;JPEG&nbsp;文件; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//实际上其作用是当图形被破坏是使图形恢复;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br> 
&nbsp;&nbsp;(5).在'Load'或'Browse'按钮的&nbsp;OnClick&nbsp;事件中加入: 
&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;begin&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;if&nbsp;OpenPictureDialog1.Execute&nbsp;then&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AJpeg.Free;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//释放旧AJpeg; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AJpeg:=TJpegImage.Create;&nbsp;&nbsp;&nbsp;//产生一个新的AJpeg; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AJpeg.LoadFromFile(OpenPictureDialog1.Filename);&nbsp;//载入JPEG文件; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;end;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;Canvas.Rectangle(2,2,560,430);&nbsp;&nbsp;//将Form&nbsp;Clear; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;x:=10;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;y:=10;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;&nbsp;Form1.Canvas.Draw(x,y,AJpeg);&nbsp;&nbsp;&nbsp;//显示新的AJpeg; 
&nbsp;&nbsp;&nbsp; &nbsp;<br> 
&nbsp;&nbsp;end;&nbsp;</p> 
<hr color="#EE9B73" size="1" width="94%"> 
 
</TD> 
 
</TR> 
</table> 
</BODY></HTML>
⌨️ 快捷键说明

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