我编了一个资源文件,是(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;