Delphi 从流数据获知文件类型

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi datasnap清除僵死连接

Delphi将excel导入access

Delphi禁止用户切换任务

Delphi 解决Delphi indy10下 utf8码转换的问题

wmi cim_datafile的33个属性

Delphi 详解variant 的相关函数

Delphi tnotification android通知

Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值

Delphi异常信息捕捉

Delphi版雪花算法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 从流数据获知文件类型