delphi显示jpg、png、gif图片

delphi显示jpg、png、gif图片 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses jpeg, GIFImg, pngimage; {显示 jpg 图片} procedure TForm1.Button1Click(Sender: TObject); var jpg: TJPEGImage; begin jpg := TJPEGImage.Create; jpg.LoadFromFile('C:/Temp/Test.jpg'); Canvas.Draw(0, 0, jpg); jpg.Free; end; {显示 png 图片} procedure TForm1.Button2Click(Sender: TObject); var png: TPngImage; begin png := TPngImage.Create; png.LoadFromFile('C:/Temp/Test.png'); Canvas.Draw(0, 0, png); png.Free; end; {显示 gif 图片} procedure TForm1.Button3Click(Sender: TObject); var gif: TGIFImage; begin gif := TGIFImage.Create; gif.LoadFromFile('C:/Temp/Test.gif'); Canvas.Draw(0, 0, gif); gif.Free; end; {显示 gif 动画} procedure TForm1.Button4Click(Sender: TObject); var gif: TGIFImage; begin gif := TGIFImage.Create; gif.LoadFromFile('C:/Temp/Test.gif'); gif.Animate := True; with TImage.Create(Self) do begin Parent := Self; Left := 0; Top := 0; Picture.Assign(gif); end; gif.Free; end; end.

delphi显示jpg、png、gif图片相关推荐

Delphi FMX正确加载图片最大限度减少内存占用（之一TBitmapSurface）
Delphi FMX正确加载图片最大限度减少内存占用(之一TBitmapSurface) 国庆前,无意间发现App内存占用陡增,发现是几张4K图片(7680x4320像素)加载引发的(TImage.B ...
Delphi 使用双缓冲解决图片切换时的闪烁问题 good
Delphi 使用双缓冲解决图片切换时的闪烁问题 good 参考文章: (1)Delphi 使用双缓冲解决图片切换时的闪烁问题 good (2)https://www.cnblogs.com/find ...
如何在python中显示电脑中的图片-python如何实现多个图片显示在屏幕上？
pygame的三个方法(屏幕上显示需要的图片) yuhu102319582018-12-16 python将多幅图片显示在一张图片上 wugui1111116282018-06-15 iOS 图片显示 ...
Delphi FastReport动态加载图片
Delphi FastReport动态加载图片 2011-01-06 作者:李海彬阅读:684 以前用FastReport制作报表,从来没有打印过图片,这段时间做了个打印个人简历的 ...
如何显示服务器上的图片,显示服务器上的图片怎么写
显示服务器上的图片怎么写内容精选换一换内容审核服务输入图片参数"Image"是图片的base64编码,本节介绍利用谷歌浏览器进行图片格式转换,获取图片的base64编码信息. ...
access找不到输入表或者dual_在Access窗体中显示指定路径的图片
↑↑↑点击上方图片,了解详情在Access中,如果把图形对象以OLE格式的字段保存,那么在窗体中可以直接显示出图片来.但是这样做有以下不足: 一.需要将图片逐一插入到表中,工作量太大. 二.使数据库 ...
用CImage类来显示PNG JPG等图片
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 系统环境 ...
前端：JS/29/实例:控制div显示_滚动的图片
实例:控制div显示_滚动的图片 <!DOCTYPE html> <html lang="en"><head><meta charset= ...
怎样在CSDN的博客里面显示上传的图片，教你一招
有些时候,博客里面用的图片,这肯定是很正常的,CSDN也给我们提供了图片上传的功能,并且也能够将图片上传上去,并且提供了一个很好的图片及文件管理工具,心想这下可以给我的博客装装衣衣服了,因为博客里面总 ...
vue通过链接显示服务器上的图片_图片网站该如何做SEO优化？详细讲解图片优化技巧...
通常,在网站搜索引擎优化的过程中,很多站长和SEOer经常忽略图片的优化,但事实上,每个网站都有很多图片,所以优化网站图片就像优化其他内容一样,成为搜索引擎优化的一个重要工作内容. 如果你能成功地优化 ...

delphi显示jpg、png、gif图片

delphi显示jpg、png、gif图片相关推荐

最新文章

热门文章