如何使用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

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

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