Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Size of GIF files
Message
De
07/02/2002 14:04:36
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00616843
Message ID:
00616863
Vues:
13
This message has been marked as the solution to the initial question of the thread.
Christian,

>Hello,
>
>I'm trying to figure out the width (in pixels or whatever) of a gif file.
>Is there a way to do this?
>
>Thanks for your help in advance.

Try this:
* works for GIF87a
procedure showGifDimensions
lparameters lcFileName

	x = filetostr(lcFileName)

	? "width: ",asc(substr(x, 8,1))*256 + asc(substr(x,7,1))
	? "height: ",asc(substr(x, 10,1))*256 + asc(substr(x,9,1))

endproc
See http://www.dcs.ed.ac.uk/home/mxr/gfx/2d/GIF87a.txt for file specs for GIF87a.

http://www.dcs.ed.ac.uk/home/mxr/gfx/2d-hi.html, look at specs for GIF89a to modify above code to handle both file types...


HTH,
Steve Gibson
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform