This thread is for discussions of Retrieving Remote Image Properties in ASP.

Excellent code -- i'd been struggling with the original code and had a problem opening and reading the image files -- i swapped in this code and my routines ran the first time.

My travel pages contain hundreds of images and i need a quick way to add new images and display them across many different pages.   so i wrote a routine that lets the user decide whether to display in thumbnail, caption only, or full size.  until now, i didnt have an easy way of knowing the format, so i had to encode whether the image was horizontal or vertical -- now it works as it should, and will allow me to scale images in all fomats, too.  

to see a sample of this in action:

http://cascoly.com/trav/turkey/Konya.asp

thanks
steve

I'm struggling with the original code, too.
Especially the line:

- obj.open "GET", URL, False

returns the error: invalid procedure call.

Could you please print your changes you made to make the code run?

Thanx a lot,
Flummi

I have an ASP based content control utility with around 30 editors each usnig the system.  We have a flash application that only takes in non-progressive images dynamically.  I need to ensure that when an editor uploads a new image to our server it's in the non-progressive format.  I looked over your code brriefly and noticed that you were checking bytes from the file to gather information about it.  What byte information could I grab to check to see if the file's progressive or not?

I used this in its original form, but this is a better version.  Has anyone ever converted this the Javascript?

This is great! Ive been looking for something like this for weeks! Thanks
But is there a way to get the size of the file? Purhaps in KBs? Thanks!

Hi Spanno;
- - I'm dealing with this same issue. I have developed a self-administrated flash photo gallery which accepts user-uploaded jpgs via an ASP server-side upload component (saFileUp). Unfortunately, some people are uploading progressive jpgs, which then do not show up in the flash interface. I DO have a COM object from SoftArtisans (ImgWriter), which can re-save JPG's in non-progressive format. The problem is, I have no way of determining (reading) the progressive property. Thus, I would have to indiscriminately re-save all jpgs as non-progressive, without knowing whether they were progressive to begin with. This results in the re-compression of existing jpgs and the consequent loss of image quality. Plus, the imgWriter's compression algorithm is not very good, and it often results in a larger file size for a poorer quality image. I was hoping someone might know of how I can read the progressive property at upload time and then I can either reject the file or auto-re-save it with the progessive property set to false.

Let me know if you figured this one out spanno! I will also re-post here if I can solve this...

How to use this script ?
I'm newbie in ASP.
Can anyone tell me how to display the output of the width and height of the images?
Let say I have a jpg file, picture.jpg, and I store it in root directory of my web folder.
What command must I add to display the width and height of picture.jpg ?
Response.Write blablabla bla?

Hey y'all, I've just astounded myself by being able to use this peice o' code, so I thought I'd share it with you.
The code below calls the function and print the results.

Salmo xxx

<%
dim theURL, theWidth, theHeight, theDepth, theFlType, blnImageStuff
theURL = "http://www.notongues.com/flyer.jpg"
theWidth = 0
theHeight = 0
theDepth = 0
theFlType = ""

blnImageStuff = getSize(theURL, theWidth, theHeight, theDepth, theFlType)

if blnImageStuff then
   response.Write(theWidth & "<br>")
   response.Write(theHeight & "<br>")
   response.Write(theDepth & "<br>")
   response.Write(theFlType & "<br>")
else
   response.Write("Hmm, that didn't seem to work...")
end if
%>

Thanks for the code
I've been waiting it for so long. It takes 1 month to get the reply.

Can I change the URL with the path such as /image ??
I find it becomes very slow for the script to be run if I use the complete URL like http://...
I place the image file in one folder inside the folder where I put the script. And probably it will be faster if I change URL with the path.
If I can change it, what is the command?

I think the script uses the HTTP headers to acertain certain stuff, which would be information which would have to be come by another way with a file sitting on your server, so in short, no. It's well beyond me powers. soz

salmo xxx

Hi,

I needed a way to find width and height of an image and came up with this script. I use loadpicture vbscript function to get image dimensions. The OS will return dimensions in metric scale (cm/1000). Windows screen res. is 96 dots per inch. 1 inch is 2.54 cm.
2.54/96*1000 = 26.4583

I know that the script above scales images but if you just need image dimensions this works fine. You can also get the type, handle, and palette of the image. Props are on msdn: click here

Code:

<%
dim iWidth, iHeight, iType
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

' so if you whant to test it in asp just give the path to your image
ImgDimension(Server.MapPath("../.") & "\images\uc.gif")

response.write("Dimensions: " & iWidth & " x " & iHeight & "<br>")
response.write("Image Type: " & iType & "<br>")
%>

I created this code to scale an image to fit in a fixed space.  Does anyone know a shorter script that will work?

<%'----routine to scale image if it is too big------
maxht = 50 'max height of image
maxwt = 130 'max width of image

If theHeight > maxht AND theWidth > maxwt then
imgfactor = theHeight / maxht
imght = int(theHeight / imgfactor)
imgwt = int(theWidth / imgfactor)
End If

If theWidth > maxwt AND theHeight < maxwt then
imgfactor = theWidth / maxwt
imght = int(imght / imgfactor)
imgwt = int(theWidth / imgfactor)
End If

If theHeight > maxwt AND theWidth < maxwt then
imgfactor = theHeight / maxht
imght = int(theHeight / imgfactor)
imgwt = int(imgwt / imgfactor)
End If
%>
<img src="<%=theURL%>" height="<%=imght%>" width="<%=imgwt%>" />

Geez, I wasted hours and hours trying to find a script that does what you have posted here. I need something for which I could get the dimensions of one specific image (filename passed to the script by a querystring) and then use querystrings and redirects to enter the dimensions into Access database fields!!!!!!!!

Thank you, thank you!!!!!!!!!!!!!!!!!!!!!!!!!!

Tutorial of how to use the posted script to enter image dimensions into Access database fields.