delphi - 如何加载JPE图像文件？

Question

这段代码:

uses
  Vcl.Imaging.jpeg...
...
ThisPicture := TPicture.Create;
try
  ThisPicture.LoadFromFile('MyImage.JPE'); // error
  ...
finally
  ThisPicture.Free;
end;

生成此错误:

EInvalidGraphic: Unknown picture file extension <.jpe>

尽管使用了Vcl.Imaging.jpeg。 JPG和JPEG可以毫无问题地加载。

Wikipedia解释说 .jpg、.jpeg、.jpe、.jif、.jfif、.jfi 是 JPEG 格式的扩展名。

那么如何使用LoadFromFile('MyImage.JPE')而不出现错误呢？

Answer 1

Delphi JPEG 代码未注册 JPE 扩展。因此出现了错误。由于您知道图像类型，因此可以将其直接加载到 TJPEGImage 对象中:

Image := TJPEGImage.Create;
Image.LoadFromFile(...);

并分配给图片控件。

 ThisPicture.Assign(Image);

或更简单的解决方案是注册 JPE 扩展，以便 TPicture 将其与 TJPEGImage 关联。这可以使用 TPicture.RegisterFileFormat 来完成:

uses
  Vcl.Imaging.JConsts, Vcl.Imaging.jpeg;
....
TPicture.RegisterFileFormat('jpe', sJPEGImageFile, TJPEGImage);
TPicture.RegisterFileFormat('jif', sJPEGImageFile, TJPEGImage);
TPicture.RegisterFileFormat('jfif', sJPEGImageFile, TJPEGImage);
TPicture.RegisterFileFormat('jfi', sJPEGImageFile, TJPEGImage);

就其值(value)而言，RegisterFileFormat 的文档包含以下相当古怪的行:

The AExtension parameter specifies the three-character system file extension to associate with the graphic class (for example, "bmp" is associated with TBitmap).

不必担心扩展名长度必须恰好为三个字符的建议。这只是一个文档错误。