上一篇:Delphi二值图像除杂点(噪点)
下一篇:Delphi读取Excel文件-统计全部工作表中内容相同单元格出现次数

Delphi获取图片的真实类型

发布于: 2013-1-22 19:33:09   |  发布在: Delphi文章   |  点击:

今天分析一个网站的验证码,文件名后缀为.gif的,但用TImage加载该图片时,却弹出“无效的GIF标识”对话框。后来用工具一分析却是JPEG格式的图片,所以对图片处理前很有必要对图片的真实类型进行判断:

function GetImageType(strFileName: string): String;
var
   aImage: TMemoryStream;
   Buffer: Word;
begin
   Result := '';
   aImage := TMemoryStream.Create;
   try
      aImage.LoadFromFile(strFileName);
      aImage.Position := 0;
      if aImage.Size > 2 then
      begin
         aImage.ReadBuffer(Buffer, 2); //读取文件的前2个字节,放到Buffer里面
         case Buffer of
            $4D42: Result := 'BMP';
            $D8FF: Result := 'JPG';
            $4947: Result := 'GIF';
            $050A: Result := 'PCX';
            $5089: Result := 'PNG';
            $4238: Result := 'PSD';
            $A659: Result := 'RAS';
            $DA01: Result := 'SGI';
            $4949: Result := 'TIFF';
         else
            Result := 'NONE'//未知格式
         end;
      end;
   finally
      aImage.Free;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
      ShowMessage(GetImageType(OpenDialog1.FileName));
end;

图片