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 vcl 鼠标左键长按功能的实现

Delphi调试服务程序的两种方法

Delphi unigui程序部署到服务器

用tidftp控件实现ftp协议

Delphi 用sql语句添加删除修改字段

Delphi 获取unigui 控件id 及获取html值

Delphi 获取当前系统版本号

Delphi 运行时提升软件到管理员权限

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi中实现密码框“大写锁定打开”的提示

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

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