Delphi中Graphics.FileFormats列表填充机制及图像加载异常问题

开发者阿泽

2026-6-22

问题解答

一、如何向Graphics.FileFormats列表添加额外格式条目

VCL的Graphics.FileFormats是全局TFileFormatsList实例，用于管理图像格式与对应图形类的映射。添加新格式需通过VCL注册函数完成，核心步骤如下：

引入对应图形类单元
确保项目或单元的uses子句包含目标格式的图形类单元（比如JPG对应jpeg，Graphics32的PNG对应PngImage32）。
调用注册函数
在单元的initialization段调用以下函数完成注册：
- RegisterGraphicClass(GraphicClass: TGraphicClass)：仅注册图形类，不关联扩展名；
- RegisterFileFormat(Ext, Desc: string; GraphicClass: TGraphicClass)：同时注册扩展名、格式描述和对应图形类，这是让FileFormats.FindExt能匹配到类的关键。
示例代码（注册Graphics32的PNG格式）：
```
uses
  Graphics, PngImage32; // 引入Graphics32的PNG处理单元

initialization
  // 关联PNG扩展名与TPngImage32，兼容大小写
  RegisterFileFormat('PNG', 'Portable Network Graphics', TPngImage32);
  RegisterFileFormat('png', 'Portable Network Graphics', TPngImage32);
```
注：VCL原生支持的格式（如JPG），只需将对应单元加入uses，单元的initialization段会自动完成注册。

不同图像格式的注册条目依赖分为三类：

原生VCL基础格式（BMP/ICO/WMF/EMF）：依赖Windows系统自带的GDI/GDI+核心DLL（如gdi32.dll、user32.dll），无需额外安装组件。
VCL扩展格式（如JPG）：Delphi的TJPEGImage基于独立的Pascal实现解码库（jpeg.pas），不依赖系统DLL，但必须将jpeg单元加入uses，否则不会自动注册到FileFormats。
第三方格式（如PNG、GIF、TIFF）：
- 若使用纯Pascal实现的第三方组件（如Graphics32的PNG模块）：不依赖系统DLL，仅需引入对应单元并完成注册；
- 若使用基于系统组件的实现（如GDI+处理PNG）：依赖系统gdiplus.dll——Windows XP SP1及以上版本自带该DLL，更早版本需手动安装GDI+运行库；
- 部分特殊格式（如TIFF）可能需要依赖第三方动态库或COM组件，具体取决于使用的图形类实现。

Delphi 6程序在Windows XP上TImage32无法加载PNG：
Delphi 6原生无PNG支持，需确保：
- 项目已引入Graphics32的PngImage32单元；
- 在初始化段调用RegisterFileFormat将.png扩展名与TPngImage32关联；
- 若Graphics32的PNG实现依赖系统组件，确认Windows XP已安装对应依赖（Graphics32的PNG通常为纯Pascal实现，此情况概率极低）。
安装Graphics32后TImage无法加载JPG：
Graphics32未自动注册VCL的TJPEGImage，导致FileFormats中缺失JPG格式映射。解决方法如你发现的：在项目uses子句中加入jpeg单元，触发TJPEGImage的自动注册即可恢复功能。

内容的提问来源于stack exchange，提问作者TomR