5

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

1 回答 1

11

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

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

于 2012-04-17T11:08:35.443 回答