Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.281 Beiträge
 
Delphi XE7 Professional
 
#12

AW: jpeg- fehler #53

  Alt 15. Mai 2019, 08:52
Delphi-Quellcode:
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
  //(dadurch stimmt die Byte-Anordnung wieder mit der in der Bild-Datei überein)
  Buffer := Swap(Buffer);

  //Prüfung ob BMP, JPG oder PNG
  case Buffer of
    $424D: Result := pw_BMP;
    $FFD8: Result := pw_JPG;
    $8950: Result := pw_PNG;
  else
    Result := pw_None;
  end;
  imageStream.seek(0,soFromBeginning) //zurücksetzen des Lesezeigers im stream
end;
Klaus

Geändert von Klaus01 (15. Mai 2019 um 09:09 Uhr) Grund: 4 mit 2 ersetzt
  Mit Zitat antworten Zitat