Forum: Programmieren allgemein
by Klaus01,
15. Mai 2019
ups - muss natürlich 2 sein.
Danke - werde es ausbessern.
Grüße
Klaus
Forum: Programmieren allgemein
by Klaus01,
15. Mai 2019
type
TPictureTyp = (pw_None, pw_BMP, pw_JPG, pw_PNG);
function PictureTyp_pruefen(const imageStream: TMemoryStream): TPictureTyp;
var
Buffer : Word;
begin
imageStream.Read(Buffer,2);
//High-Byte und Low-Byte im Buffer tauschen
Forum: Programmieren allgemein
by Klaus01,
14. Mai 2019
.. du könntest bei TMemoryStream bleiben.
type
TPictureTyp = (pw_None, pw_BMP, pw_JPG, pw_PNG);
function PictureTyp_pruefen(const imageStream: TMemoryStream): TPictureTyp;
var
Buffer : Word;
Forum: Programmieren allgemein
by Klaus01,
14. Mai 2019
.. dann wäre es sinnvoll die ersten Bytes des Memorystreams auszuwerten (magic Bytes).
Grüße
Klaus
Forum: Programmieren allgemein
by Klaus01,
14. Mai 2019
.. Du könntest nach der Datei extension gehen.
Oder dies nach Delphi überstzen (magic Bytes) -> https://oroboro.com/image-format-magic-bytes/
Grüße
Klaus