604
社区成员
发帖
与我相关
我的任务
分享关于TGifImage在BCB里面的调用
已经下载了TGIFImage2.2安装，参考如下：
1. 新建一个工程，将GIFImage.pas加入到工程中，编译生成GIFImage.dcu、GIFImage.obj、GIFImage.hpp
3．打开GIFImage.hpp，在namespace GIFImage前添加如下代码：
#pragma link "GIFImage.obj"
4．将 GIFImage.hpp 拷贝到 $(BCB)\include 目录下
5．将 GIFImage.obj 拷贝到 $(BCB)\Lib\Obj 目录下
在程序里面调用如下：
TGifImage* GIF=new TGifImage;
GIF->LoadFromFile('test.gif');
Image1->Picture->Assign(GIF);
但是结果是只能显示单个图片的Gif，如果Gif里面包括了多个图则显示不了，不知道有没有大侠碰到这类问题，以及如何解决的？不胜感激！
1. 新建一个工程，将GIFImage.pas加入到工程中，编译生成GIFImage.dcu、GIFImage.obj、GIFImage.hpp
3．打开GIFImage.hpp，在namespace GIFImage前添加如下代码：
#pragma link "GIFImage.obj"
4．将 GIFImage.hpp 拷贝到 $(BCB)\include 目录下
5．将 GIFImage.obj 拷贝到 $(BCB)\Lib\Obj 目录下
在程序里面调用如下：
TGifImage* GIF=new TGifImage;
GIF->LoadFromFile('test.gif');
Image1->Picture->Assign(GIF);
但是结果是只能显示单个图片的Gif，如果Gif里面包括了多个图则显示不了，不知道有没有大侠碰到这类问题，以及如何解决的？不胜感激！
...全文
请发表友善的回复…
发表回复
阿发伯 2007-12-03
- 打赏
- 举报
Animate := True;
过客猫2022 2007-12-03
- 打赏
- 举报
在BCB2007中，要设一下就可以发了
Image1->Picture->LoadFromFile(strFileName.c_str());
TGIFImage * aGIF = dynamic_cast<TGIFImage *>(Image1->Picture->Graphic);
if( aGIF != NULL ) aGIF->Animate = true;
Image1->Picture->LoadFromFile(strFileName.c_str());
TGIFImage * aGIF = dynamic_cast<TGIFImage *>(Image1->Picture->Graphic);
if( aGIF != NULL ) aGIF->Animate = true;
我来看看CB 2007-12-02
- 打赏
- 举报
学习
JuncoZhan 2007-12-01
- 打赏
- 举报
好像有个属性要设置之后才动
___NULL 2007-12-01
- 打赏
- 举报
不需要代码，载入到 TImage 内自己会动
ssyqcwj 2007-10-27
- 打赏
- 举报
是的,我用的也是老妖网站下载的那个版本,安装以后在TImage直接加入.gif图片就可以使用了!
coolcalf 2007-10-26
- 打赏
- 举报
我就是CCRUN下的GIF控件，不需要自己控制它动起来。
它安装后，直接更改了系统的TImage,使它直接支持GIF
不需要写什么代码。
它安装后，直接更改了系统的TImage,使它直接支持GIF
不需要写什么代码。
luomh98 2007-10-09
- 打赏
- 举报
www.ccrun.com提供该控件的DEMO源程序，需要你自己控制它动起来
TGIFImage *gif = new TGIFImage();
gif->LoadFromFile(GifFileName);
gifCounts = gif->Images->Count;
for (int i=0; i<gifCounts; i++) {
GifImages[i] = new Graphics::TBitmap(); // 记住程序要在合适时候delete它
GifImages[i]->Assign(gif->Images->SubImages[i]->Bitmap);
}
以上代码把所有帧读入到用户定义的TImage数组中去供程序显示使用
你可以用定时器或其它方法循环显示所有帧
TGIFImage *gif = new TGIFImage();
gif->LoadFromFile(GifFileName);
gifCounts = gif->Images->Count;
for (int i=0; i<gifCounts; i++) {
GifImages[i] = new Graphics::TBitmap(); // 记住程序要在合适时候delete它
GifImages[i]->Assign(gif->Images->SubImages[i]->Bitmap);
}
以上代码把所有帧读入到用户定义的TImage数组中去供程序显示使用
你可以用定时器或其它方法循环显示所有帧
constantine 2007-10-08
- 打赏
- 举报
这个控件好像要自己控制才能动，他有提供接口，bcb2007中就是。另外2.2其实有很多版本，如果是原始版本好像动画还有bug。
修改版好像修改到g版了。www.ccrun.com那里有个修改版（不知道cc更新到那个版本了，可能不是最新的）
修改版好像修改到g版了。www.ccrun.com那里有个修改版（不知道cc更新到那个版本了，可能不是最新的）
