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 采用 tidhttp 访问 https 的网站，采用 tidtcpclient 访问 https 的网站

Delphi pchar与string互转

Delphi 加壳原理与简单实现加壳

Delphi中动态加载image控件图片的方法

Delphi idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi 双击隐藏tabsheet

Delphi xe firemonkey的几个特色属性

Delphi捕捉屏幕

Delphi 中的自动引用计数使用规则

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

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

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