«

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

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

http://www.aspfaq.com/2170

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




"Nancy Drew" <> wrote in message
news:dIidnQ-9Y9LX0BzcRVn-...
> 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 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)

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




"Aaron [SQL Server MVP]" <> schreef in bericht
news:%23ifC%...
> http://www.aspfaq.com/2170
>
> --
> http://www.aspfaq.com/
> (Reverse address to reply.)
>
>
>
>
> "Nancy Drew" <> wrote in message
> news:dIidnQ-9Y9LX0BzcRVn-...
>> 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
>>
>>
>
>

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" <> wrote in message
news:eMkgd.3209$...
>
> imgsize.dll is not 100%. We started a project and unfortunaly we must
> replace the dll by the script.
>
>
>
>
> "Aaron [SQL Server MVP]" <> schreef in bericht
> news:%23ifC%...
> > http://www.aspfaq.com/2170
> >
> > --
> > http://www.aspfaq.com/
> > (Reverse address to reply.)
> >
> >
> >
> >
> > "Nancy Drew" <> wrote in message
> > news:dIidnQ-9Y9LX0BzcRVn-...
> >> 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
> >>
> >>
> >
> >
>
>

excellent - the code works great. thannks maarten.



"Maarten" <> wrote in message
news:chcgd.2953$...
> 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
>
>

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...