Ahaaaa! Ich hab den Bösetäter gefunden:
Anscheinend gibt es einen Fehler bei der Prozedur, die mir die Breite und die Höhe des geöffneten Bildes holt. Der Fehler tritt aber nur mit JPEGS auf.
Hier ist die Prozedur:
Delphi-Quellcode:
procedure AbmessungenErmitteln(aFile:String);//Abmessungen des
var //geöffneten
fileheader: TBitmapfileheader; //Bildes errechnen
infoheader: TBitmapinfoheader; //und abspeichern
s: TFilestream;
begin
s := TFileStream.Create(aFile, fmOpenRead);
try
s.Read(fileheader, SizeOf(fileheader));
//Nach dem filehaeder beginnt der infoheader
s.Read(infoheader, SizeOf(infoheader));
Breite:=infoheader.biWidth;
Hoehe:=infoheader.biHeight;
finally
s.Free;
end;
end;