一个CGI Expert的问题(10分)

用它的Chart，成功输出了gif图像。 现在的问题是，能否输出一个动态的
gif? 比如只有3帧

你是怎样生成gif图像的? 我以前做过同样的东西,不过生成gif部分是用gifimage
控件来完成的,他可以支持动画gif.

CGI Expert的sample中就是输出的gif,呵呵.

谁有带源码的CGI Expert，能否发给我一份？不胜感激。
tommm@371.net

习习习,CGI Expert都是带源码的,没有不带源码的亚?

to cAkk：
可我的就不带，所以我一直没用它，请告诉我在那里可以下载到?

忽然想起, 我的gif是CGI Expert用TChart生成的,不是
自己生成的,呵呵. cAkk , 用gifimage生成动态的gif该怎么做?

晚上再说吧,我要回家了.

//操作你的TChart
Series1.Clear;
Series1.add(rfalse,'',clred);
Series1.add(rtrue,'',rgb(102,153,204));
chart1.Title.text.add(format('%d vs %d',[rtrue,rfalse]));

//定义一个bmp
bmp:=tbitmap.create;

//把TChart的图像保存到bmp上
bmp:=chart1.TeeCreateBitmap;

//定义一个gifimage
gif:=tgifimage.create;

//循环部分,把你每次画的bmp添加进gif的动画列表
//(比如你可以让TChart每旋转45度保存一次)
idx := GIF.Add(Bmp);
Ext := TGIFGraphicControlExtension.Create(GIF.Images[idx]);
GIF.Images[idx].Extensions.Add(Ext);
Ext.Transparent := True;
Ext.TransparentColor := rgb(198,195,198); //设置背景透明的颜色
Ext.Disposal := dmBackground;

接受答案了.