uses ....jpeg;//如果要存取Jpg文件就必须加这一句 ......... try Image1.Picture.LoadFromFile('PictureName');//可以为OpenDialog1.FileName except showmessage('所打开文件不是所能识别的图片格式!'); exit; end; if Image1.Picture.Graphic Is TJpegImage then showmessage('这张图片是Jpg格式') else Image1.Picture.Graphic Is TBitmap then showmessage('这张图片是Bmp格式');.............................顺便借问一下这里有没有会用Delphi存取Gif格式图片的高人?
知道jpg就是太困难了!!
我试过用try,可是屏蔽不过去!!
.........
try
Image1.Picture.LoadFromFile('PictureName');//可以为OpenDialog1.FileName
except
showmessage('所打开文件不是所能识别的图片格式!');
exit;
end;
if Image1.Picture.Graphic Is TJpegImage then
showmessage('这张图片是Jpg格式')
else Image1.Picture.Graphic Is TBitmap then
showmessage('这张图片是Bmp格式');.............................顺便借问一下这里有没有会用Delphi存取Gif格式图片的高人?