eine Möglichkeit aus einem TMemoryStream herauszufinden welcher Dateityp?

[Delphi.Narium]

Zitat von Dalai:

@Delphi.Narium:
Das ist nicht zuverlässig. JPGs mit EXIF-Daten haben möglicherweise keinen "JFIF"-Marker sondern stattdessen "Exif", und es gibt sogar JPGs, in denen weder Exif noch JFIF vorkommt. Der relevante Marker scheint FF D8 in den ersten beiden Bytes zu sein, siehe auch https://de.wikipedia.org/wiki/JPEG_F...rchange_Format (Magic Number).

[EDIT]
Beispiel eines solchen Bilds, das weder Exif noch JFIF enthält: https://i.imgur.com/KdP8C9R.jpg
[/EDIT]

Grüße
Dalai

Ist die Erkennung für PNG denn zuverlässig?

Wenn ja, dann wird halt auf PNG geprüft. Da es nur PNG und JPeg zu geben scheint, ist alles, was nicht PNG ist automatisch Jpeg.

Ansonsten ergänzen wir die JPegprüfung um:

JPeg: Byte 0 bis 2 = $FF$D8$FF oder Byte 6 bis 9 = JFIF ($4A$46$49$46)

[Gausi]

Quick&Dirty kann man natürlich nach dem try-except-Teil mit TJpegImage das gleiche nochmal mit TPNGImage probieren. So mache ich das (noch) in meinem Player. Der Code stammt halt aus der Zeit, als TPicture das noch nicht konnte.

Muss ich mal umschreiben zu TPicture.LoadFromStream. Das sollte auch etwas schneller gehen.

Zur Zuverlässigkeit: das kannste bei ID3Tags sowieso knicken. Was ich da schon alles für Mist drin gefunden habe ... inklusive der Textkodierung "UTF-32, mit BOM, Zeichenweise." Oder evtl. wars auch zeichenweise nullterminiert UTF-16 mit bom. Auf jeden Fall 6 Byte pro Zeichen.

[mytbo]

Zitat von dstein:

Gibt es eine Möglichkeit aus einem TMemoryStream herauszufinden welcher Dateityp enthalten ist.

Mit mORMot so:

Delphi-Quellcode:

uses
  mormot.core.buffers;

var stream: TMemoryStream := TMemoryStream.Create;
try
  stream.LoadFromFile('test.png');
  if GetMimeContentTypeFromMemory(stream.Memory, stream.Size) = mtPng then
    ShowMessage('PNG Datei');
finally
  stream.Free;
end;

Bis bald...
Thomas

[himitsu]

In Linux gibt es die Anwendung "file", bzw. das Projekt "filelib", wo ich vor Ewigkeiten auch irgendwo mal eine Übersetzung für Windows gesehen hatte.
Falls jemand die filelib für Windows findet, dann wäre es bestimmt witzig, das hierfür einzusetzen.
Gut, für die 5 Image-Typen vielleich ein winziges Bissl übertrieben.

Hier in der DP sollte sich auch irgendwo eine Funktion verstecken, welche die MagicBytes für die bekanntesten Imageformate prüft. (so weit ich mich erinnern können glaube)

Vielleicht war auch was in den Jedis versteckt.

[shebang]

Zitat von himitsu:

Hier in der DP sollte sich auch irgendwo eine Funktion verstecken, welche die MagicBytes für die bekanntesten Imageformate prüft. (so weit ich mich erinnern können glaube).

An der hast du sogar selbt mitgebastelt.

https://www.delphipraxis.net/213636-...-erkennen.html

[himitsu]

https://www.delphipraxis.net/1532028-post6.html