TImage的烦恼---图片类型

Question

用filename来判断！Timage根据文件的扩展名来进行Load!判断扩展名即可！

Answer 1

如果无法判断的话，你可以Image1.Picture.LoadFromFile三少 :o)

Answer 2

如果只是判断BMP、JPG、GIF图片，倒是有一个简单的方法，用数据流判断，因为BMP、GIF、JPG格式的文件流有标识符的，分别如下：
名称        宽度      标识符
BMP        2位        BM
JPG        10位       chr($FF)+chr($D8)+chr($FF)+chr($E0)+chr($00)+chr($10)+'JFIF'
GIF        3位        GIF
通过这种方式可以判断。
当然通过DELPHI的系统的类也可以判断，用ClassName函数，但是不能判断GIF类型。
例如：
if Image1.Picture.Graphic<>nil then
 Edit1.Text:=Image1.Picture.Graphic.ClassName;