查人人中国名人网diy苹果显示器是山寨吗:delphi资源文件调用出错
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 19:20:50
用记事本编辑资源文件，名子gif.rc
内容：mygif gif "1.gif"
用brcc32.exe编辑成gif.res
在窗体1中加入一个image 一个button
在按钮的单击事件中写：
procedure TForm1.Button1Click(Sender: TObject);
var
Res:TResourceStream;
Gif:TGraphic;
begin
Res:=TResourceStream.Create(0,'mygif','gif');
Gif:=TGraphic.Create;
Gif.LoadFromStream(Res);
image1.Picture.Graphic:=Gif;
Res.Free;
end;
错误：
工程Project1.exe检测到错误类 EAbstractError,错误信息：'Abstract Error
not found'.进程中止。使用单步或运行继续运行。
怎么办，，哪错了？？
OK,能动了，，
会有什么问题呢
内容：mygif gif "1.gif"
用brcc32.exe编辑成gif.res
在窗体1中加入一个image 一个button
在按钮的单击事件中写：
procedure TForm1.Button1Click(Sender: TObject);
var
Res:TResourceStream;
Gif:TGraphic;
begin
Res:=TResourceStream.Create(0,'mygif','gif');
Gif:=TGraphic.Create;
Gif.LoadFromStream(Res);
image1.Picture.Graphic:=Gif;
Res.Free;
end;
错误：
工程Project1.exe检测到错误类 EAbstractError,错误信息：'Abstract Error
not found'.进程中止。使用单步或运行继续运行。
怎么办，，哪错了？？
OK,能动了，，
会有什么问题呢
发生抽象错误，原因是TImage不支持GIF格式的图片
你可以到www.delphibox.com上面去下载RxLib组件
然后使用其中的TRxGIFAnimator控件
你的代码没有任何错误
补充：如果你下载的是我说的这套控件
那么你能够找到一个叫Animate的属性
把它设为true就能动了
还有。。不要用TGifImage，那个东西会引起一些问题
补充：
TGifImage抽象得不完全，你使用低版本的gif工具制作的Gif图片时，会引起资源泄漏