http://www.ss.ss/img.gif 在dephi中怎样用Timage中显示出来？或者有没有更好的解决方法？

[hb_boy]

如题

[thunderniao]

使用GIFIMAGE这个非可视组件可以把GIF动态图象用TIMAGE显示出来，很多地方可以下载，DEMO中附带使用例子

[F555666]

使用GIFIMAGE这个非可视组件

[F555666]

控件下载地址：
web: http://finn.mobilixnet.dk/delphi/

[getit911]

var
s1:string;
s2:string;
tfs:TMemorystream;
AGIFImage:TGIFImage;
begin
s1:=IdHTTP1.Get('http://211.137.33.105:8080/interhall/images/char/cc.gif');
s2:=IdHTTP1.Get('http://211.137.33.105:8080/interhall/images/char/kk.gif');
AGIFImage:=TGIFImage.Create;
tfs:=TMemorystream.Create;
tfs.Write(s1[1],length(s1));
tfs.Write(s2[1],length(s2));
Memo1.Lines.Text:=s1;
tfs.Position:=0;
Image1.Picture.Graphic:=AGIFImage;
Image1.Picture.Graphic.LoadFromStream(tfs);
Image1.Repaint;
freeandnil(tfs);
end;