Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Size of GIF files
Message
From
07/02/2002 14:04:36
 
 
To
07/02/2002 13:49:15
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00616843
Message ID:
00616863
Views:
12
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform