delphi - 找出文件类型(GIF、JPG、PNG)-DELPHI

Question

我为每个 URL 携带图像并显示 TImage 。我将使用 JPG、GIF 和 PNG 进行工作。但我不知道如何找出每个文件具有什么样的扩展名，然后进行区分。如何获取 header 或任何其他方法让我知道什么类型的文件:GIF 或 PNG 或 JPG？

var
  MS : TMemoryStream;
  GIf: TGIFImage;
  jpegimg: TJPEGImage;


begin
  MS := TMemoryStream.Create;
  GIf := TGIFImage.Create;
  jpegimg   := TJPEGImage.Create; ///////

  try
      try
        IdHTTP1.get('http://forum.wmonline.com.br/uploads/av-8929.jpg',MS);
        Ms.Seek(0,soFromBeginning);
        //Gif.LoadFromStream(MS);
        //Logo.Picture.Assign(GIF);
        jpegimg.LoadFromStream(MS);
        Logo.Picture.Assign(jpegimg);
      except
        ShowMessage('ERRO');
        Exit;
      end;
  finally
    FreeAndNil(GIF);
    FreeAndNil(MS);
    jpegimg.Free;  ////
  end;

Answer 1

有一些机制旨在允许描述请求(或响应)的内容，但是任何外部元数据都可能不可靠，完全依赖于准确的实现和设置涉及元数据。在某些情况下，元数据可能不正确或完全丢失。

幸运的是，与许多文件格式一样，您提到的图像文件类型的规范都要求使用特定的 header 来将文件(或流)标识为符合(或希望符合)相关规范。

first 3 bytes of a GIF file是:

`G` `I` `F`    (ASCII)

您可能还希望检查后续 3 个字节是否有有效的 GIF 版本号(也以 ASCII 编码):

`8` `9` `a`   or `8` `7` `a`

first 8 bytes of a PNG file具有以下值:

137 80 78 71 13 10 26 10   (decimal)

first 2 bytes of a JPEG file是:

FF D8   (hex)

因此，要检测响应流中数据的格式，您最多只需要检查流的前 8 个字节是否有这些预期 header 值之一。