Delphi中对Jpeg格式文件的处理
(1).在 Uses 中加入 JPEG 单元;
(2).定义一个全程变量,例如 var AJPEG : TJPEGImage;
(3).在 Form 的 OnCreate 事件中加入 :
Canvas.Pen.Color:=clBlack;
Canvas.Pen.Style:=psSolid;
Canvas.Brush.color:=clBtnFace;
Canvas.Brush.Style:=bsSolid; //此上是设置 Canvas 的一些属性,便于以后
//Clear Form and Load a new JPEG file;
AJpeg:=TJpegImage.Create;//动态生成AJpeg;
AJpeg.LoadFromFile('D:\Temp.jpg') //生成 AJpeg 后,调入 JPEG 文件 ;
(4).在 Form 的 OnPain 事件中加入
Canvas.Rectangle(2,2,560,430); //画一个黑框的矩形将图片围住;
x:=10; y:=10;
Form1.Canvas.Draw(x,y,AJpeg); //以(x,y)为左上角输出 JPEG 文件;
//实际上其作用是当图形被破坏是使图形恢复;
(5).在'Load'或'Browse'按钮的 OnClick 事件中加入:
begin
if OpenPictureDialog1.Execute then
begin
AJpeg.Free; //释放旧AJpeg;
AJpeg:=TJpegImage.Create; //产生一个新的AJpeg;
AJpeg.LoadFromFile(OpenPictureDialog1.Filename); //载入JPEG文件;
end;
Canvas.Rectangle(2,2,560,430); //将Form Clear;
x:=10;
y:=10;
Form1.Canvas.Draw(x,y,AJpeg); //显示新的AJpeg;
end;
转载于:https://www.cnblogs.com/myamanda/articles/1545362.html
Delphi中对Jpeg格式文件的处理相关推荐
- iphone6php怎么打开,苹果手机中的heic格式文件怎么打开
苹果手机中的heic格式文件怎么打开?在使用手机拍照时经常会显示图片是heic格式文件,这样会导致图片不仅在手机上打不开,在电脑上也是如此.那么该如何解决呢?下面这篇教程我们就来为大家分享一下,苹果手 ...
- 在web中打开SVG格式文件
在web网页中打开SVG格式文件 浏览器:QQ浏览器.火狐浏览器.谷歌浏览器均可 效果图: 第一步:打开 QQ浏览器: 第二步:将 .svg 文件拖入网页栏: 第三步:打开拖入的网页即可.
- R语言导入数据文件(数据导入、加载、读取)、使用haven包的read_dta函数导入Stata中的dta格式文件
R语言导入数据文件(数据导入.加载.读取).使用haven包的read_dta函数导入Stata中的dta格式文件 目录
- R语言导入数据文件(数据导入、加载、读取)、haven包的read_spss函数导入SPSS中的sav格式文件
R语言导入数据文件(数据导入.加载.读取).haven包的read_spss函数导入SPSS中的sav格式文件 目录
- R语言导入数据文件(数据导入、加载、读取)、使用haven包的read_sav函数导入SPSS中的sav格式文件
R语言导入数据文件(数据导入.加载.读取).使用haven包的read_sav函数导入SPSS中的sav格式文件 目录
- 在Delphi中获取和修改文件的时间
Delphi中提供了很完备的Windows API函数的调用接口,可以方便的进行高级Windows编程.利用Delphi中的FindFirst函数可以得到一个文件的属性记录,该记录中的FindData ...
- 生信笔记 | 自定义GSEA分析中的gmt格式文件
在GSEA分析中,在MSigDB(Molecular Signatures Database)数据库中定义了很多基因集,下载的基因集是gmt格式文件.下载的gmt格式文件,打开后可以看见是下面这个样子 ...
- ATS 5.3.0中自定义日志格式文件logs_xml.config解读
缘起 近来因为公司项目需要,阅读了一部分ATS logging system的源码实现,越发觉得logs_xml.config文件的配置非常重要,而我目前只是实践了一点它的皮毛.为此,根据自己的理解, ...
- vim中删除dos格式文件中的^M号的方法以及深度规整文件格式
在windows平台上开发时, 我们编辑的文件多半是dos格式, 当我们将它们采用xftp或是secureCRT等ssh软件传输到Linux的vim环境下面时, 通常会出现如下令人惨不忍睹的画面: 为 ...
最新文章
- 用创新技术增进互联网广告的行业价值
- SQL Server 存储过程的应用
- 《大型数据库技术》MySQL数据库安装配置及基础使用
- 开始使用windows live writer写博客。
- undefined reference to '__android_log_print'解决方案
- 2016 Multi-University Training Contest 10
- ENVI软件中决策树分类和监督分类算法比较
- 移动端强大的富文本编辑器richeditor-android
- SC-GlowTTS论文阅读
- 正项级数敛散性的判别
- python删除数组元素remove_python如何对数组删除元素
- 虐心的《西部世界》第二季:我看哭了 人类和AI傻傻分不清
- iOS-QQ分享功能实现
- C# 滑块/滑杆/拖动条控件trackBar
- python3查找元素在数组位置_Python:查找数组中元素的位置
- C# 参数1:值参数----值类型和引用类型及特例string
- nmn是一款什么样的产品,关于nmn产品你会选吗,一起来了解
- git更新失败出现向下箭头
- ENVI中使用水体指数法NDWI提取水体
- Linux文件读取操作:read函数的使用