delphi显示jpg、png、gif图片
2020-02-16 16:32
381 查看
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 关键字详解
- 基于Delphi的BHO开发基础
- 使用Delphi开发IE右键菜单扩展
- 初探Delphi中的插件编程
- 使用Delphi开发IE按钮扩展
- 转:用Delphi开发过滤特定网址的BHO插件
- Delphi开发嵌入式IE浏览器监控程序
- delphi使用IdTcpClient和IdTcpServer数据通信
- delphi 调用C# DLL程序集
- Delphi版本号对照(条件编译中用到)
- Delphi中易混淆的概念
- Delphi中建议使用的语句
- delphi读XML
- Delphi下Webbrowser的使用技巧
- delphi 在DLL中添加窗体.
- 关于DELPHI2010 安装GLScene V1.2的相关总结!
- DELPHI 异常处理
- delphi传递与复制对象(DELPHI5从入门到精通75页)
- 关于delphi制作安装文件的问题!急,急,急!
- 请教关于Delphi 开发使用报表