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