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获取千千静听歌词下载地址源码

Delphi 十六进制字符串转化成字符串输出hextostr strtohex（Delphi版、c#版）

Delphi 详解variant 的相关函数

Delphi 实现打开文件定位

Delphi 释放res资源文件

Delphi 传输文件例子的核心代码

纯真ip数据库解析Delphi d10.1下正常使用

Delphi窗口显示于parent控件上

Delphi读取android短信信息

Delphi 比较俩组ip地址是否一样

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

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