原创 Delphi使用内置png文件的方法

 2009-3-24 14:24  7813 5 5 分类: 软件与OS

只要在Delphi中，可以把资源文件（如WAV、BMP、ICO等）嵌入执行文件中，使用时在调用。这样的好处是只要一个文件就可以了，不会因为不小心缺少文件造成运行错误。除了可以嵌入常见的WAV、BMP等外，其实任何文件都是可以嵌入的。下面函数就是使用嵌入PNG图片的方法，将内置的png文件传递给img。

procedure LoadPngRes(var img: TImage; ResName, ResType: PChar);
var
  png: TPNGObject;
  res: TResourceStream;
begin
  png := TPNGObject.Create;
  res := TResourceStream.Create(HInstance, ResName, ResType);
  try
    png.LoadFromStream(res);
    img.Picture.Assign(png);
  finally
    res.Free;
    png.Free;
  end;
end;