Delphi中的jpg、png、gif 图片及 gif 动画的显示
2012-03-10 16:03
295 查看
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.
[/code]
相关文章推荐
- delphi显示 jpg、png、gif 图片及 gif 动画的方法
- 显示 jpg、png、gif 图片及 gif 动画
- 显示 jpg、png、gif 图片及 gif 动画 - 回复 "格兰特" 的问题
- delphi显示jpg、png、gif图片
- delphi显示jpg、png、gif图片
- php图片等比压缩代码,支持jpg,png,gif,验证gif动画
- [转]Delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- android开发 实现同时显示png/jpg 等bitmap图片还可以显示gif图片,有效防止OOM
- SWT图片显示,支持JPEG,GIF(动画),BMP,ICO,PNG和TIFF
- qt生成的exe可执行程序打包到其他电脑上执行时jpg、gif图片不能正常显示,但png等其他格式可以显示
- win mobile 5显示jpg,png,gif图片的方法--5mbox的图片库封装
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- 在VC6中基于dll开发插件用于各种图片显示(BMP/TGA/JPG/GIF/PNG/TIF/ICO/WMF/EMF/...)
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- Delphi png、bmp、gif等图片格式转换成jpg
- SWT图片显示,支持JPEG,GIF(动画),BMP,ICO,PNG和TIFF
- beamer加载动画+gif导出多个png或者jpg图片
- 在VC6中基于dll开发插件用于各种图片显示(BMP/TGA/JPG/GIF/PNG/TIF/ICO/WMF/EMF/...)