pure asp way to get image width and height

[Nancy Drew]

does anybody know of a way to get an image width and height without using a
custom dll? we have aspJPEG on the server, and there are methods to fetch
image width and height with that, but it only works with JPEG and i need to
get dimensions for gif and png, too.

tks

[Maarten]

sub ImgDimension(img)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(img) then exit sub
set myImg = loadpicture(img)
iWidth = round(myImg.width / 26.4583)
iHeight = round(myImg.height / 26.4583)
iType = myImg.Type
select case iType
case 0
iType = "None"
case 1
iType = "Bitmap"
case 2
iType = "Metafile"
case 3
iType = "Icon"
case 4
iType = "Win32-enhanced metafile"
end select
set myImg = nothing
end sub

[Aaron [SQL Server MVP]]

http://www.aspfaq.com/2170

--
http://www.aspfaq.com/
(Reverse address to reply.)


"Nancy Drew" <ge*****@hotmail.com> wrote in message
news:dI********************@rogers.com...

does anybody know of a way to get an image width and height without using a custom dll? we have aspJPEG on the server, and there are methods to fetch
image width and height with that, but it only works with JPEG and i need to get dimensions for gif and png, too.

tks

[Evertjan.]

Nancy Drew wrote on 28 okt 2004 in
microsoft.public.inetserver.asp.general:

does anybody know of a way to get an image width and height without
using a custom dll? we have aspJPEG on the server, and there are
methods to fetch image width and height with that, but it only works
with JPEG and i need to get dimensions for gif and png, too.

A gif file starts with 6 bytes of header containing something like

Hex 47-49-46-38-39-61

this is the string: "GIF89a"

Then follow 4 bytes [nr 7 to 10], say 17-04-ec-02

Hex 0417 = decimal 1047 pixels width
Hex 02ec = decimal 748 pixels height

reading the file serverside in a byte stream
and parsing these first 10 bytes must give you the picture size.

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress,
but let us keep the discussions in the newsgroup)

[Maarten]

imgsize.dll is not 100%. We started a project and unfortunaly we must
replace the dll by the script.


"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> schreef in bericht
news:%2*****************@TK2MSFTNGP11.phx.gbl...

http://www.aspfaq.com/2170

--
http://www.aspfaq.com/
(Reverse address to reply.)


"Nancy Drew" <ge*****@hotmail.com> wrote in message
news:dI********************@rogers.com...

does anybody know of a way to get an image width and height without using

a

custom dll? we have aspJPEG on the server, and there are methods to fetch
image width and height with that, but it only works with JPEG and i need

to

get dimensions for gif and png, too.

tks

[Aaron [SQL Server MVP]]

I was recommending the script portion of the article, since the OP asked for
a component-less solution.

--
http://www.aspfaq.com/
(Reverse address to reply.)


"Maarten" <pl****@no-mail.com> wrote in message
news:eM*******************@phobos.telenet-ops.be...

imgsize.dll is not 100%. We started a project and unfortunaly we must
replace the dll by the script.


"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> schreef in bericht
news:%2*****************@TK2MSFTNGP11.phx.gbl...

http://www.aspfaq.com/2170

--
http://www.aspfaq.com/
(Reverse address to reply.)


"Nancy Drew" <ge*****@hotmail.com> wrote in message
news:dI********************@rogers.com...

does anybody know of a way to get an image width and height without using

a

custom dll? we have aspJPEG on the server, and there are methods to

fetch image width and height with that, but it only works with JPEG and i

need to

get dimensions for gif and png, too.

tks

[Nancy Drew]

excellent - the code works great. thannks maarten.

"Maarten" <pl****@no-mail.com> wrote in message
news:ch*******************@phobos.telenet-ops.be...

sub ImgDimension(img)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(img) then exit sub
set myImg = loadpicture(img)
iWidth = round(myImg.width / 26.4583)
iHeight = round(myImg.height / 26.4583)
iType = myImg.Type
select case iType
case 0
iType = "None"
case 1
iType = "Bitmap"
case 2
iType = "Metafile"
case 3
iType = "Icon"
case 4
iType = "Win32-enhanced metafile"
end select
set myImg = nothing
end sub

[trebitzki]

Here is the url to the pure asp solution:

http://www.4guysfromrolla.com/webtech/050300-1.shtml

Just scroll down to the download link and include the file in your project!

Have fun!

Timm

************************************************** ********************
Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources...