Delphi 获取文件类型函数



functiomGetFileType(FileName:String):string;

var

 MyImage:TMemoryStream;  

 Buffer:Word;

 i:integer;

begin

 Result := 'Err';

 MyImage:=TMemoryStream.Create;               

 
try

   MyImage.LoadFromFile(FileName);

   MyImage.Position := 0;   //
指针文件开头的位置

   if MyImage.Size = 0 then Exit;  
// 文件大小等于0退出

   MyImage.ReadBuffer(Buffer,2);  
// 读取文件的前２个字节[低位到高位]，放到Buffer里面

   if Buffer=$4D42 then 
Result:='BMP';     

   
ifBuffer=$D8FF then 
Result :='JPEG';

   if Buffer=$4947 then 
Result:='GIFP';

   if Buffer=$050A then 
Result:='PCX';

   if Buffer=$5089 then 
Result:='PNG';

   if Buffer=$4238 then 
Result:='PSD';

   if Buffer=$A659 then 
Result:='RAS';

   
if Buffer=$DA01 then 
Result :='SGI';

   if Buffer=$4949 then 
Result:='TIFF';

 finally

   MyImage.Free;   
// 释放内存流对象

 end;

end;