Delphi GetFileType 判断图像文件类型

本文整理自网络，侵删。

 
function GetFileType(FileName: String): string;
 var
  MyImage:TMemoryStream;
  Buffer:Word;
  i:integer;
begin
  Result := 'Err';
  MyImage:=TMemoryStream.Create;
  try
    MyImage.LoadFromFile(FileName);
    MyImage.Position := 0;                      // 指针文件开头的位置
    if MyImage.Size = 0 then Exit;              // 文件大小等于0退出
    MyImage.ReadBuffer(Buffer,2);               // 读取文件的前２个字节[低位到高位]，放到Buffer里面
    if Buffer=$4D42 then  Result :='BMP';
    if Buffer=$D8FF then  Result :='JPEG';
    if Buffer=$4947 then  Result :='GIFP';
    if Buffer=$050A then  Result :='PCX';
    if Buffer=$5089 then  Result :='PNG';
    if Buffer=$4238 then  Result :='PSD';
    if Buffer=$A659 then  Result :='RAS';
    if Buffer=$DA01 then  Result :='SGI';
    if Buffer=$4949 then  Result :='TIFF';
  finally
    MyImage.Free;                              // 释放内存流对象
  end;
end;

 

相关阅读 >>

在Delphi中基于内容检测图片格式（非扩展名）

Delphi 把pf8bit位图变换成pf24bit位图

Delphi一个基于wininet的http操作小函数

Delphi 删除确认对话框

Delphi 解析json生成json

Delphi下载网站文件(支持https协议)

Delphi 利用阿里大于接口发短信(Delphi版)

Delphi 获取鼠标坐标大全方法

Delphi 打包文件到apk安装包中

Delphi validatename 过滤特殊字符

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

转载请注明出处：木庄网络博客 » Delphi GetFileType 判断图像文件类型