Delphi image 直接加载资源文件

本文整理自网络，侵删。

 



procedure TForm1.Button2Click(Sender: TObject);
var
rs: TResourceStream;
jp: TJPEGImage;
begin
rs := TResourceStream.Create(HInstance, 'JpgImage_1', RT_RCDATA);
try
jp := TJPEGImage.Create;
try
jp.LoadFromStream(rs);
Image1.Picture.Graphic := jp;
finally
jp.Free;
end;
finally
rs.Free;
end;

end;
 

相关阅读 >>

Delphi获取进程的命令行参数

Delphi 内存管理[4]

Delphi android控制睡眠

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi中dataset和json的互转

Delphi android device information

Delphi xe 提权代码

Delphi获取本地全部盘符并存如combobox1

如何用Delphi实现子目录级的文件查询

Delphi中url的编码与解码，即urlencode的使用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi image 直接加载资源文件