我编写了一个存储照片的应用程序,保留了数据库中照片的路径。我遇到了一个问题。当我单击我的按钮选择要在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;
答案 0 :(得分:11)
将JPEG
添加到接口部分的uses子句中。
这会自动将.jpg
注册为有效的图像文件扩展名,并将其耦合到TJPEGImage
将TPicture
实例化的类。