BCB6 如何显示GIF图片

2010-01-26 01:35:54 538 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于JavaFX的Http Server模拟器源码地址 GitHub - DayRain/http-server-simulator: http server 模拟器功能描述 HttpServer模拟器，通过简单的配置即可模拟第三方服务端，用于接收和响应HTTP请求。支持同时模拟多个服务、动态添加接口、动态配置返回值。使用说明运行 exe运行编译代码后，点击exe直接运行代码运行下载好代码后，运行主类ApplicationStarter即可新建服务主界面如下点击文件-新建创建新的服务 ... 阅读详情

我下载了gifimage 2.2的安装后GIF图片还是不行。
能否有哪位高手给我详细说明下。非常感谢！！！

...全文

brother的PT-9800PCN标签打印机二次开发本来想通过esc/p指令打印标签，但是无奈能找到的资料太少，而且打电话给客服，也没有sample可以提供参考，后来客服说使用template功能的话，打印很方便。于是下载手册学习了一下，先下载P-touch Editor软件，制作标签模板。制作的模板就是普通的标签，不需要连接数据库之类的，模板里有3个object，分别是文本1，文本2，条形码3。这个很关键，后面的代码传送数据，就是按这... 阅读详情

lzf87

VCL组件使用和开发 604 成员 13,456 内容

+ 关注 + 加入社区

切换为时间正序

___NULL 2010-02-01

打赏
举报

[Quote=引用 11 楼 lzf87 的回复:]
按ydlchina说的尝试了下，出现链接错误。
是不是还需要添加什么头文件？
[/Quote]

把 gifimage 的代码目录添加到 CB 的 Option -> Path and Directories 的 Include 和 Lib(如果有的话)

lzf87 2010-02-01

打赏
举报

按ydlchina说的尝试了下，出现链接错误。
是不是还需要添加什么头文件？

Waiting4you 2010-02-01

打赏
举报

如果不要动画的话，可以考虑用CxImage，优点是不用安装组件。

lzf87 2010-02-01

打赏
举报

不过我在BCB6上安装后确实和joyous说的一样，但打开的时候机器就卡死在那了。我的机器配置还挺高的。4核加4G内存.

lzf87 2010-02-01

打赏
举报

谢谢大家了。这几天被抓去做其他的事了。所有这边暂时先放着了。也没来管理这帖。
不管是否可以我先结贴吧...

我不懂电脑 2010-01-27

打赏
举报

bcb2010集成了gif

draculamx 2010-01-27

打赏
举报

gifimage 可以的。。楼主仔细看一下说明和DEMO吧。。。
不过这个控件对 CPU 的占用率就。。。。。

周药师 2010-01-26

打赏
举报

gifimage 控件里本省就带有Demo的
lz自己看看吧

xjq2003 2010-01-26

打赏
举报

来学习一下

___NULL 2010-01-26

打赏
举报

用BCB打开CrnGifImage.bpk-->Compile-->Install，安装后在组件面板没有任何显示。在窗体上放置一个TImage，点击Picture属性旁边的按钮，可以看到支持的文件格式已经由原来的
All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)
改变为：
All (*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)
OK.

ydlchina 2010-01-26

打赏
举报



void __fastcall TForm1::FormCreate(TObject *Sender)

{

    //更改

    Image1->Picture->LoadFromFile("c:\\demo.gif");//载入动画

}

ydlchina 2010-01-26

打赏
举报



//先下载安装gifimage动画控件,在窗体上放置,Timage控件,调用如下

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

     Image1->Parent->DoubleBuffered=true;//打开缓冲区

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)//播放

{

     TGIFImage   *p=dynamic_cast<TGIFImage   *>(   Image1->Picture->Graphic   );

     if(p)

      {

        p->PaintStart();

        Image1->Picture->Assign(p);//不知為何BCB6要加上這一句,BCB5沒試過

      }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)//停止

{

    TGIFImage   *p=dynamic_cast<TGIFImage   *>(   Image1->Picture->Graphic   );

    if(p)   p->PaintStop()   ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

    Image1->Picture->LoadFromFile("c:\demo.gif");//载入动画

}

以前gif和png图片都是不能显示的，需要借助第三方组件。后来Borland公司购买了gifimage和pngimage，现在在2009中已经集成了，真是造福大众啊。

今儿个使用了一把，挺好用，不过操作gif图片稍微有点麻烦：



#include <GIFImg.hpp>



Image1->Picture->LoadFromFile(“wait.gif");



((TGIFImage *)Image1->Picture->Graphic)->Animate = true;

BCB6 如何显示GIF图片

相关推荐