请教关于TBitmap和TGifImage一起使用的问题

Putao 2003-08-19 02:59:18
我的代码循环执行TBitmap.assign('xxx.gif')操作(xxx每次不同)
在Win98下当循环的文件很多时会出现“Bitmap is not valid”的错误,而WinXP下不会,请问这个问题是由什么引起的?
...全文
6 点赞 收藏 10
写回复
10 条回复
zhouguoyao 2003年10月14日
学习
回复 点赞
Putao 2003年08月23日
请问一般什么情况下会出现'Bitmap image is not valid'的错误?
回复 点赞
kuan 2003年08月20日
研究中……
回复 点赞
Putao 2003年08月20日
对不起,代码是这样的:
var BmpSource: TBitmap;
Gif: TGIFImage;

for ......... do
begin
//省掉n行
Gif := TGIFImage.Create;
Gif.LoadFromFile(ImgFileName);
BmpSource.Assign(Gif);
//省掉n行
end;
回复 点赞
江山易改 2003年08月19日
明显是操作系统API函数造成的。在windows98下进行图形处理的API函数没有将gif格式加入进去,而在XP里可能有了修正
回复 点赞
windwather 2003年08月19日
真是奇怪!
回复 点赞
Putao 2003年08月19日
To DWGZ():
是啊。
我的程序是在98下编的,98下文件多了会出错,但XP就不会
回复 点赞
Putao 2003年08月19日
而且文件少时就不会出现这种状况。

To jingye(井中叶):
但可以在外面忽略掉是什么意思?
回复 点赞
DWGZ 2003年08月19日
winXP下不会???????????????
回复 点赞
jingye 2003年08月19日
var
bmp :TBitmap;
Gif :TGifImage;
begin
if ExtractFileExt(CurrentFile)='.gif' then
begin
Gif:= TGifImage.Create;
Gif.LoadFromFile(CurrentFile);
bmp :=TBitmap.Create;
bmp.Assign(Gif);//在这里我用的d7版的TGifImage,会报错,但可以在外面忽略掉。
Image.picture.Bitmap.Assign(bmp);
end
end;
回复 点赞
发动态
发帖子
GAME,图形处理/多媒体
创建于2007-08-02

644

社区成员

1.4w+

社区内容

Delphi GAME,图形处理/多媒体
社区公告
暂无公告