jpeg- fehler #53

[Helmi]

Hallo,

bevor ich auf GDI+ umgestiegen bin, hab ich das so getestet:

Delphi-Quellcode:

type
  TPictureTyp = (pw_None, pw_BMP, pw_JPG, pw_PNG);

function PictureTyp_pruefen(const Picture: String): TPictureTyp;
var
  FileHandle: Integer;
  Buffer    : Word;

begin
   //Datei öffnen und die ersten 2 Bytes auslesen
  FileHandle := FileOpen(Picture, fmOpenRead);
  FileSeek(FileHandle, 0, 0);
  FileRead(FileHandle, Buffer, 2);
  FileClose(FileHandle);

  //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;
end;