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