delphi - 如何从具有其他扩展名的文件加载 Png 图像？

Question

我正在使用 TImage 组件加载一些 png 图像，但其中一些具有 .imp 扩展名。我将 Vcl.Imaging.pngimage 单元添加到我的代码中，并使用此代码加载图像

 if OpenDialog1.Execute then
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);

但是当执行 LoadFromFile 过程时会引发异常

Unknown picture file extension (.imp)

这些图像(.imp)是由外部应用程序生成的 png 文件，位于只读文件夹中，因此无法重命名这些文件，问题是如何在 TImage 组件中加载 Png 图像来自具有另一个扩展名的文件？

Answer 1

您必须首先使用 TPicture.RegisterFileFormat 注册文件格式方法

试试这个

TPicture.RegisterFileFormat('imp','imp (png) image file',TPngImage);