兄弟们，如何在Delphi6.0中加入gif图片？

不行啊，我现在有的TGifImage不支持Delphi6.0的。
你行吗？
如果可以的话，能发个过来吗？
email:[email protected]
谢了

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

不行啊，我现在有的TGifImage不支持Delphi6.0的。
你行吗？
如果可以的话，能发个过来吗？
email:[email protected]
谢了
怎么会不支持？JEDI可是提供源代码的啊。
TO:chechy(chechy)　
能给我发一份吗？
也发一份给我？？
[email protected]
gif吗？
好说(delphi就有现成的控件)
  用WebBrowser就行了
用RX控件组，里面就有支持gif的控件
要吗
GIF 格式有版权的，不然DELPHI早就支持了！
为什么不用DELPHI 5 ，DELPHI 6真那么好么？
是的,在d6下gifimage.pas会死机,操!
borland软件的版本兼容性太糟,应跟微软学学!
我这倒不是死机，
如果是动态的gif出不来，必须手动刷新
静态的gif又行，很奇怪。
我现在还没收到，还没找到，哎，难道真的这么难吗？
CSDN的同志们，我想把我的东东移到D6上去，但是我又没有支持D6的GIF控件。如何办？email: [email protected]
procedure ShowGIF( GIFFileName : String );
var
   TargetFrameName,PostData,Heads,Flags : OleVariant;
   URL : widestring;
begin
  TargetFrameName := '';{指定Frame的空字符串时,则在当前Frame中打开动画文件}
  PostData := false;{不发送数据}
  Heads := '';{Header信息为空}
  Flags := 0;{Flags设为0}
  URL := GIFFileName;
  with formGIF.webbrowser do{在指定窗口中的IE浏览器控件中显示动画}
  begin
    navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示动画文件}
  end;
end;
更简单一点
procedure Form1.ShowGIF( GIFFileName : String );
begin
  form1.webbrowser.navigate(GIFFileName);
end;procedure TForm1.FormClick(Sender: TObject);
begin
  ShowGif('D:\ww\aa.gif');
end;
to wisenowa
你的webbrowser从那里来得
to:：　wisenowa(心比天高，手比脚笨)　
1）如何使右边的滚动条隐去，也就是不显示。
2）如何使它的边框三维效果失效，也就是使用平面显示。请教高手！！！！
to：　lin513(东方求救)　
Delphi本身就有的一个控件，
在Internet页面的最后一个控件（Delphi 6）我把你的过程改了一下，加入了一个参数，也许会好用一点：
procedure ShowGIF(gWebBrowser: TWebBrowser; GIFFileName : String );
var
  TargetFrameName,PostData,Heads,Flags : OleVariant;
  URL : widestring;
begin
  TargetFrameName := '';{指定Frame的空字符串时,则在当前Frame中打开动画文件}
  PostData := false;{不发送数据}
  Heads := '';{Header信息为空}
  Flags := 0;{Flags设为0}
  URL := GIFFileName;
  with gWebbrowser do{在指定窗口中的IE浏览器控件中显示动画}
  begin
    navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示动画文件}
  end;
end;只要调用ShowGif(WebBrowers1,ExtractFileDir(Application.ExeName)+'\13.gif')就行了
这几天一直弄D6下的GIF播放，我Cao，我见谁都说Delphi好，他 * 的D6快把我气疯了，连个Gif都播放不了。赶紧关门倒闭得了。