I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
如果只是判断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;
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;