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

时间:2012-04-17 11:02:23

标签: delphi delphi-xe2 timage

我编写了一个存储照片的应用程序,保留了数据库中照片的路径。我遇到了一个问题。当我单击我的按钮选择要在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;

1 个答案:

答案 0 :(得分:11)

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

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