如何判断图片文件是否装入??(100分)

  • 主题发起人 主题发起人 laowt
  • 开始时间 开始时间
L

laowt

Unregistered / Unconfirmed
GUEST, unregistred user!
为减小程序,动态装入图片
Image1.Picture.LoadFromFile('C:/aaa/bbb.jpg');
由于这个图片文件也是动态获得的,有可能格式不对打不开,如能判断,不能打开时用另一存在图片
'C:/ccc/1.jpg'顶替
 
try
Image1.Picture.LoadFromFile('C:/aaa/bbb.jpg');
except
try
Image1.Picture.LoadFromFile('C:/bbb.jpg');
except
showmessage('two not load');
end;
end;
不知道可不可以
 
If Image1.Picture.BMP.Empety Then ....
 
BMP好象不认!
 
用 52free 的方法为什么不行呢?
万一不行 就只有检测 jpg文件头文件格试标识符了
 
应该是
If Image1.Picture.Bitmap.Empety Then ....

if Image1.Graphic.Empty then Image1.Graphic.LoadFromFile('myfile.png');

可能要USes QGraphics;
 
加了USes QGraphics;
对Graphic还是提示出错
 
if image1.Picture.Bitmap.Empty then
showmessage('null');
 
Image1.Picture.LoadFromFile('C:/bbb.jpg');
即便存在C:/bbb.jpg也会报错的。
因为文件格式错误。应该加载的图片是bmp格式。
 
我Uses jpeg
所以正常显示jpg文件
 
能不能用蠢办法,加载两个文件,备用的先Load,若后者不行,备用的总还在!如
begin
Image1.Picture.LoadFromFile('C:/ccc/1.jpg');
Image1.Picture.LoadFromFile('C:/aaa/bbb.jpg');
end;
 
if Image1.Picture.Height = 0 then
showmessage('two not load');
 
用try-except应该可以截获到
如果要读jpeg,要加入jpeg单元
 
要用到try和except
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
802
DelphiTeacher的专栏
D
D
回复
0
查看
747
DelphiTeacher的专栏
D
D
回复
0
查看
696
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部