Forum: Sonstige Fragen zu Delphi
Delphi
by HolgerX,
17. Feb 2016
Brauchst nur dort wo z.B.:
if CheckMagicNo(ByteArr,C_Magic_BM) then exit;
steht ein
if not Assigned(result) and CheckMagicNo(ByteArr,C_Magic_BM) then result := TBitmap.Create;
Forum: Sonstige Fragen zu Delphi
Delphi
by HolgerX,
17. Feb 2016
Hmm...
Bei Bildern verwende ich eine andere Herangehensweise, gerade, wenn der Dateiname/Dateiende nicht vorhanden ist:
Ich werte die 'Magic Bytes' des FileStreams aus.
Somit kann ich auch zwischen verschiedenen Bildformaten unterscheiden ohne deren Namen zu erkennen.
Funktioniert auch mit ResourceStreams
Mal kurz aus einer meiner Units heraus kopiert: