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 利用sendinput模拟鼠标键盘

Delphi 分割字符串 extractstrings

Delphi 从字符串提取字符串

Delphi结构，字符串和指针

Delphi 如何编写需要启动参数的Delphi程序

Delphi实现暴力瞬间关机

5种运行程序的方法具体应用实例

Delphi 简单字符串截取函数

wmi cim_datafile的33个属性

Delphi使用indy组件http上传文件

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

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