delphi中资源文件调用
我定义了一个资源言语件,名子gif.res里面是这样定义的mygifgif1.gif那我在程序要怎么调用,才能让它显示在image中不是不好使..是出错了,用记事本编辑资...
我定义了一个资源言语件,名子gif.res
里面是这样定义的
mygif gif 1.gif
那我在程序要怎么调用,才能让它显示在image中
不是不好使..是出错了,
用记事本编辑资源文件,名子gif.rc
内容:mygif giffile1 "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'.进程中止。使用单步或运行继续运行。
怎么办,,哪错了?? 展开
里面是这样定义的
mygif gif 1.gif
那我在程序要怎么调用,才能让它显示在image中
不是不好使..是出错了,
用记事本编辑资源文件,名子gif.rc
内容:mygif giffile1 "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'.进程中止。使用单步或运行继续运行。
怎么办,,哪错了?? 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询