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;
 

相关阅读 >>

dekphi qq自动发消息源码

Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary

delph做的百叶窗小程序

Delphi 安卓添加资源图片并读取

Delphi 在长文件名和短文件名之间转换

Delphi中调用必应搜索(bing)的api函数

Delphi android 拨打电话

Delphi idftp 详解

iniocp（小旋风服务套件）

Delphi xe安装 tclientsocket, tserversocket控件

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

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