Bildgröße von Bilddateien

[Tpercon]

Was haltet ihr von folgendem Code zum Suchen?

Code:

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b] 
  bild: integer;
  dmy: [b]array[/b][0..3] [b]of[/b] Char;
[b]begin[/b]
 [b]If[/b] OpenDialog1.Execute
 [b]then[/b]
  [b]begin[/b]
    bild := FileOpen(OpenDialog1.Filename, fmOpenRead);
    FileSeek(bild, 0, 0);
    [b]Repeat[/b]
      FileRead(bild, dmy, 2);
      FileSeek(bild, -1, 1);
    [b]Until[/b] (Ord(dmy[0]) = 255) [b]and[/b] ((Ord(dmy[1]) = 192)[b] or [/b](Ord(dmy[1]) = 194));
    FileSeek(bild, 4, 0);
    FileRead(bild, dmy, 4);
    [color=#000080][i]//Höhe[/i][/color]
    Label1.Caption := InttoStr(ord(dmy[0]) * 256 + ord(dmy[1]));
     [color=#000080][i]//Breite[/i][/color]
    Label2.Caption := InttoStr(ord(dmy[2]) * 256 + ord(dmy[3]));
    FileClose(bild);
  [b]end[/b];
[b]end[/b];

Es fehlt natürlich noch die Abfrage, ob die Extension .jpeg oder .jpg ( mit ExtractFileExt und AnsiLowerCase) ist.