请各位大虾告诉我如何用最少的代码显示一个GIF图片(50分)

  • 主题发起人 主题发起人 biekvn
  • 开始时间 开始时间
B

biekvn

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位大虾告诉我如何用最少的代码显示一个GIF图片
 
那你认为下面的显示部份的代码多不多呢?
http://www.delphibbs.com/keylife/iblog_show.asp?xid=7478
 
第三控件[:D][8D]
 
用一个anigif.ocx就行了,一行代码都不用写,非常好用,还支持动画的显示。你可以在下个礼拜一进下面这个地方下载
http://www.lingphi.com
 
var
URL: OleVariant;
begin
URL := 'F:/图象/GIF2/[1108].gif';
WebBrowser1.Navigate2(URL);
end;
 
装一控件组Rxlib
 
下载gifimage
//uses gifimage
procedure TForm1.Button1Click(Sender: TObject);
begin
include(GIFImageDefaultDrawOptions, goDirectDraw);
Image1.Picture.LoadFromFile(c:/you.gif'');
end;
//只需要2行就可以显示动画的gif,调试通过给分啊。
 
我的意思没有说清楚,我的意思是:不用控件和那个容易出错的 TGifImage 类,写一段分析GIF文件结构和显示的代码,用最简单的方法!
 
OCX控件不好,还得注册
 
后退
顶部