首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

调用资源文件,该如何解决

2012-03-18 
调用资源文件我编了一个资源文件,是(1)这样,我用(2)和(3)两种方法调用,请问为什么第一种方法不行啊?提示找

调用资源文件
我编了一个资源文件,是(1)这样,我用(2)和(3)两种方法调用,请问为什么第一种方法不行啊?提示找不到MyJpg,为什么啊?第二种只是用了try和finally和end啊
如果要第一种可用,改怎么改,不要用try方法,谢谢
(1)MyJpg   JPEG My.JPG
(2)var
jpg:   TJPEGImage;
resStream:   TResourceStream;
begin
resStream:=TResourceStream.Create(HInstance,   'MyJpg ',   'JPEG ');
jpg   :=   TJPEGImage.Create;
jpg.LoadFromStream(resStream);
Image1.Picture.Assign(jpg);
jpg.Free;
resStream.Free;
end;

(3)Var
Stream:TStream;
MyJpg:TJpegImage;
Begin
Stream:=TResourceStream.Create(HINSTANCE, 'MyJpg ', 'JPEG ');
Try
MyJpg:=TJpegImage.Create;
Try
MyJpg.LoadfromStream(Stream);
Image1.Picture.Assign(MyJpg);
Finally
MyJpg.Free;
end;
Finally
Stream.Free;
end;
end;

[解决办法]
//测试可以啊!
{$R MyJpg.res} // 注意资源文件要引用

uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
resStream: TResourceStream;
begin
resStream:=TResourceStream.Create(HInstance, 'MyJpg ', 'JPEG ');
jpg := TJPEGImage.Create;
jpg.LoadFromStream(resStream);
Image1.Picture.Assign(jpg);
jpg.Free;
resStream.Free;
end;

热点排行