Hallo,

gibt es eine Möglichkeit aus einer Datei den Dateiheader auszulesen und daraus zu erkennen um was für einen Dateityp es sich handelt. Zum Beispiel, ob es eine JPEG-Datei ist?

Wenn ja,
wie kann ich den Dateiheader auslesen?
wie bekomme ich den Dateityp heraus?


Vielen Dank schon einmal für eure Hilfe

Informationen zu vielen Dateiformaten findet man unter wotsit.org

Es gibt auch schon hier und da fertige Funktionen.

Dieses Ungetüm hatte ich mir gestern zusammengeklickt und nun rate mal wo ich die ganzen Header-Infos her hatte?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TSMStreamAttachmentLoader.LoadContentType;
var
  i: Int64;
  L: Integer;
  H: array[0..3] of AnsiChar;
  M: array[0..1] of AnsiChar absolute H;
  K: Word;
begin
  i := FData.Position;
  try
    ContentType := '';
    FData.Position := 0;
    if FData.Size >= SizeOf(H) then begin
      FData.ReadBuffer(H, SizeOf(H));
      for L := 0 to High(H) do
        if H[L] = #0 then H[L] := '°'
        else if H[L] <= #8 then H[L] := '¹'
        else if H[L] = #$89 then H[L] := '²';
      K := (Ord(H[0]) shl 8) or Ord(H[1]);
      if M = 'PK'   then ContentType := 'application/octet-stream'
      else if H = '%PDF' then ContentType := 'application/pdf'
    //else if H = 'PK¹¹' then ContentType := 'application/zip'
      else if H = 'Rar!' then ContentType := 'application/x-rar-compressed'
      else if H = 'GIF8' then ContentType := 'image/gif'
      else if K = $FFD8 then ContentType := 'image/jpeg'
      else if H = '²PNG' then ContentType := 'image/png'
      else if M = 'BM'   then ContentType := 'image/bmp'
      else if H = 'MM°*' then ContentType := 'image/tiff'
      else if H = 'II*°' then ContentType := 'image/tiff'
      else if H = '<?xm' then ContentType := 'text/xml'
      else if H = '<°?°' then ContentType := 'text/xml';
    end;
  finally
    FData.Position := i;
  end;
end;

Nja, das ist keine 100%ige Prüfung ... wenn man sicher gehn will und auch noch die Unterformate genauer rausbekommen möchte, dann muß man schon mehr, als nur die 2-4 Byte prüfen.


[edit]
schottige Codeausrichtung ... im Zitat/Beitragseditor sieht es hübscher aus

Cool, Danke himitsu

Ist es korrekt, dass du dir die Dateien einfach mit Hex-Editor angeschaut hast und dann dementsprechend eingefügt hast?

Google : Dateierweiterung + fileheader
Google : Dateierweiterung + magic number
am Ende landet man jeweils bei Wiki, wotsit, und Co.
http://de.wikipedia.org/wiki/Portable_Network_Graphics > oben rechts das Infofensterchen

Wobei ich das einfache Prinzip der sogenannten "Magic Number" / "Magischen Zahl" ausgenutzt hab.