delphi 资源文件管理 Resources and Images

发布时间 2023-04-08 12:12:47作者: 六十五度
1、  把PNG图片放到项目中;
2、  点击主菜单“Project”→“ Resources and Images”,弹出下面的对话框
  它会自动识别项目中的图片、音频等文件自动添加进来,如果没有识别出来或者是自定义文件类型的话,就点击【Add】按钮手动添加,然后选择合适的资源类型ResourceType,然后在Resource Identifier中给资源取一个名字即可。
在代码中使用TResourceStream读取资源流:

stream := TResourceStream.Create(HInstance, 'PNGIMAGE_PAUSE',  RT_RCDATA);
DelphiXE中已经提供了Png解析库,uses pngimage,然后:
png := TPNGObject.Create;
png.LoadFromStream(stream);

下面是我封装的一个简单的从资源中读取PNG对象的方法:

function LoadPNGResource(resName:string):TPNGObject;
var
  png: TPNGObject;
  stream: TResourceStream;
begin
  png := TPNGObject.Create;
  stream := TResourceStream.Create(HInstance, 'PNGIMAGE_PAUSE',  RT_RCDATA);
  try
    png.LoadFromStream(stream);
  finally
    stream.Free;
  end;
  result := png;
end;