Bildgröße von Bilddateien

[movax]

also dann.. ich hab mich mal hingesetzt und schnell was für dich zusammengeschustert:

Code:

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b] 
  gif: integer;
  dmy: [b]array[/b][0..3] [b]of[/b] Char;
  Width, Height: integer;
[b]begin[/b]
 gif := FileOpen('blabla.gif');
 FileSeek(gif, 6, 0); [color=#000080][i]//<- man könnte hier noch testen, ob
                   //   davor der GIF-Tag in der Datei
                   //   steht..[/i][/color]
 FileRead(Gif,dmy,4);
 FileCLose(gif);
 Width := ord(dmy[1]) * 256 + ord(dmy[0]); [color=#000080][i]//<- die hex-werte umwandeln[/i][/color]
 Height := ord(dmy[3]) * 256 + ord(dmy[2]);
[b]end[/b];

so, jetzt hast du in den Variablen Width und Height die Breite und die Höhe des GIF-Bilds (sofern es ein GIF89-konformes GIF ist )

Ich hoffe, das hilft dir weiter.. Der Code prüft übrigens nicht, ob's sich bei der datei wirklich um ein GIF handelt, dazu brauchst du aber nur testen, ob die ersten 3 bzw. 5 bytes 'GIF' bzw. 'GIF89' sind

greetz,
-movax-

|movax.rult.de