Delphi image 直接加载资源文件

本文整理自网络，侵删。

 


procedure TForm1.Button2Click(Sender: TObject);varrs: TResourceStream;jp: TJPEGImage;beginrs := TResourceStream.Create(HInstance, 'JpgImage_1', RT_RCDATA);tryjp := TJPEGImage.Create;tryjp.LoadFromStream(rs);Image1.Picture.Graphic := jp;finallyjp.Free;end;finallyrs.Free;end;
end; 

相关阅读 >>

Delphi 获取文件修改时间

Delphi url 编码的装换

Delphi读ios的设备id

Delphi实现webservice带身份认证的数据传输

Delphi ticon保存ico文件时失真的解决办法

Delphi查找程序坐标 获取鼠标 模拟鼠标

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi indy smtp 发送邮件

dll 的静态调用实例代码

Delphi提取网页中的所有链接、点击第n个链接

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