Delphi 保存导出或加载资源文件

本文整理自网络，侵删。

 
procedure SaveResourceTofile(aFileName, aResName: string);
var
  stream: TResourceStream;
begin
  try
    stream := TResourceStream.Create(HInstance,aResName,RT_RCDATA);
    stream.SaveToFile(aFileName);
    //aImage.Picture.Graphic.LoadFromStream(stream);
    //stream.Free;
  finally
   // aImage.Picture := nil;
    stream.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
SaveResourceTofile('PngImage_1.png','PngImage_1');
end;
 

相关阅读 >>

Delphi txt日志log

Delphi checklistbox 用法

Delphi简单的字符串加密解密函数

Delphi fmx检查应用程序状态更改

Delphi 将自己的app.ico应用程序图表添加到dephi资源文件res中

Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题

Delphi禁用,启用网卡

winapi 字符及字符串函数(3): charupper - 字符或字符串转大写

Delphi 判断目录是否有写入权限

windows api 的数据类型与 Delphi 数据类型对照表

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

转载请注明出处：木庄网络博客 » Delphi 保存导出或加载资源文件