我编了一个资源文件,是(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;
如果要第一种可用,改怎么改,不要用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;
解决方案 »
- dbgrid导入数据库代码分析
- delphi与oracle
- delphi编程后的icon问题
- [巨菜问题]请问编译好一个程序之后关闭了DELPHI然后在启动,为什么不可以运行编译了呢!
- 一种实现多语言的方法,明白人给予指教!
- 请高手来看一下这个接口定义是否正确
- 问个OOP问题,散点分,顺便露个小脸:p
- 请问这该如何解决?
- 请大家谈谈流的应用吧,我看基本上没书详细介绍这方面的呢.
- 请各位高手指教,在delphi中怎样才能实现:扫描仪选择和扫描图片,谢谢,急。
- 看谁~能解决这个捆饶我好久的数据库查询速度和超时问题!!!!!!!!!!专家进来啊~~~~~~~~~``
- 高分!!!!idhttp怎么获得 http 302 里的 set-cookie
{$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;