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;