从流数据获知文件类型

最新推荐文章于 2022-12-15 18:12:47 发布

weixin_30315435

最新推荐文章于 2022-12-15 18:12:47 发布

阅读量153

点赞数

原文链接：http://www.cnblogs.com/hnxxcxg/p/11124571.html

版权

从流数据获知文件类型

function StreamGetFileType(aStream:TStream):String;
var Buffer:Word;
begin
  Result := '';
  aStream.Position := 0;
  if aStream.Size=0 then
   exit;
  aStream.ReadBuffer(Buffer,2);
  case Buffer of
    $4D42:Result := 'bmp';
    $D8FF:Result := 'jpeg';
    $4947:Result := 'gifp';
    $050A:Result :='pcx';
    $5089:Result :='png';
    $4238:Result :='psd';
    $A659:Result :='ras';
    $DA01:Result :='sgi';
    $4949:Result :='tiff';
  end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/11124571.html