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