如何使用Delphi在TImage中显示所有图片格式

Question

我编写了一个存储照片的应用程序，将照片的路径保存在数据库中。我遇到了一个问题。当我单击按钮选择要在 TImage 对象中显示以供用户在保存前查看的图片时，我收到以下异常通知：引发异常类：EInvalidGraphic 并带有消息“未知图片扩展名（.jpg）”

我正在使用 TopenPicture 组件来获取图像。 openPicture.filter 属性设置为接受大多数图像格式（jpg、jpeg、png、gif、bmp），但我无法将这些格式中的任何一种加载到 TImage 组件中。

这是我用来加载图像的代码：

openPicture.Execute();
filename := openPicture.FileName;

if not(fileName = '') then
begin
  imgFoto.Picture.LoadFromFile(filename);
  imgFoto.Visible := true;
end;

Answer 1

在接口部分的uses子句中添加JPEG。

这会自动将.jpg 注册为有效的图像文件扩展名，并将其耦合到TPicture 将实例化的TJPEGImage 类。