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 format格式化函数

Delphi 打开android应用信息

idhttp访问网页出现socket error #10054错误

Delphi动态创建控件的例子

Delphi android调用授权管理打开通知监听服务

Delphi定时器相关的简单例子

Delphi文件 fileopen 、fileseek等的用法（看红色字体）

Delphi 判断文件存在的一个api函数

Delphi guid单元

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

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