在Delphi5中如何显示GIF文件内容(50分)

  • 主题发起人 主题发起人 wjshh
  • 开始时间 开始时间
W

wjshh

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi5中如何显示GIF文件内容
 
1。找一控件
2。检索一下，这样的问题很多
 
procedure TForm1.Button1Click(Sender: TObject);
var
jpgPic:TJpegImage;
bitPic:TBitMap;
begin
jpgPic:=TJpegImage.Create ;
with jpgPic do
begin
LoadFromFile('C:/splash.jpg');
bitPic:=TBitMap.Create ;
with bitPic do
begin
Width:=jpgPic.Width;
Height:=jpgPic.Height;
Canvas.Draw (0,0,jpgPic);
end;
Image1.Picture.Assign(jpgPic);
bitPic.Free;
end;
jpgPic.Free;
end;
 
搞错了一个东西
procedure TForm1.Button1Click(Sender: TObject);
var
jpgPic:TJpegImage;
bitPic:TBitMap;
begin
jpgPic:=TJpegImage.Create ;
with jpgPic do
begin
LoadFromFile('C:/splash.jpg');
bitPic:=TBitMap.Create ;
with bitPic do
begin
Width:=jpgPic.Width;
Height:=jpgPic.Height;
Canvas.Draw (0,0,jpgPic);
end;
Image1.Width :=bitPic.width;
Image1.Height :=bitPic.Height ;
Image1.Picture.Assign(bitPic);
bitPic.Free;
end;
jpgPic.Free;
end;

 
http://www.wapsec.com.cn/delphi/
有一个可以显示GIF的控件，gifimage
 
RxLib里面有一个空间能够显示GIF控件
 
用控件呀
 
to MY Email
send you ====>>>GIF控件
 
去http://www.wapsec.com.cn/delphi/下载一个gif控件，我试了一下，还不错，还有原码。
D3,D4,D5都行，不要再犹豫了，快去吧！
 
装个RXlib不就行了么
 
没错，RXlib控件中的RXgif就可以自动播放Gif动画，如果你要的话
http://www.nbren.net/love里有去找吧，还有更新包和汉化包
 
如果不愿用控件的话，其实还有一个方法，就是用TWebBrowser，简单方便。：）
 
〉〉如果不愿用控件的话，其实还有一个方法，就是用TWebBrowser，简单方便。：）

如何除去TWebBrowser的滚动条？？
 
如何改变TWebBrowser边框？？
 
我用flash的activex太好了！
用吧！！！
安装方法:http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=359329
 
给分吧！
 
wjshh：你2个的问题已经解决为何不结束？好像我帮你结束过好几个帖子了，请自觉！
 
用Tgifimage
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
T
请问在Delphi中可以显示Gif图像吗？如何显示。谢谢！(20分)
回复
5
查看
261
tianjh007
T
D
调用gif文件？(200分)
回复
12
查看
141
suniori
S
G
如何在image控件中显示GIF动画(100分)
回复
3
查看
132
jsxjd
J
M
如何将读入的各种格式的文件在内存中转换成bmp文件?(100分)
回复
4
查看
252
microluck
M
后退
顶部