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 tstringlist 自带 split 用法

Delphi savelog 方便的记录日志

Delphi文本文件的写操作

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi中使用汇编(关于pos函数的问题)

Delphi将字符串转换成utf8编码的函数

Delphi 获取文件大小根据显示gb mb kb b

Delphi 在unicodestring中使用utf-8字符串

Delphi checklistbox 用法

Delphi中的各种文件类型介绍

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

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