Image Resize Part II - resize image on the fly

ASP Free Forums Sponsor:

SlickEdit: Code in over 40 languages across 7 platforms. SlickEdit’s unmatched power, speed, and flexibility allows even the most accomplished developers to write better code faster. Download a free trial today!

October 3rd, 2006, 09:10 AM

Shadow Wizard

Moderator From Beyond

Join Date: Sep 2004

Location: Israel

Posts: 26,621

Folding Points: 325693 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 3 Months 1 Week 4 Days 13 h 47 m 29 sec
Reputation Power: 1441

Image Resize Part II - resize image on the fly

Attached is aspx file that can resize given image on the fly to the
desired width and/or height.

Credits for the code go to GunBlade who developed the core logic.

To use the code and resize image, follow those steps:

get server that support ASP.NET
on that server, copy the aspx file as is.

browse to the aspx file in such manner:

Code:

http://localhost/ImageResizer.aspx?image=[full image path here]&thumb=[full path of thumbnail to be created here]&width=[desired width]&height=[desired height]

if you have desired width only and would like the height
calculated automatically, then pass -1 as the height.
if you have desired height only and would like the width
calculated automatically, then pass -1 as the width.
for example, suppose you got image called "house.jpg" in
folder named "Images" and you want it resized to 500 pixels
width:
Code:
```
http://localhost/ImageResizer.aspx?image=C:\Inetpub\wwwroot\Images\  house.jpg&thumb=C:\Inetpub\wwwroot\Images\house_thumb.jpg&width=500&height=-1
```
the above will save the thumbnail as house_thumb.jpg in the
same folder.

to use this in classic ASP code, use XMLHTTP component in
order to "communicate" with the aspx file. simply pass the
URL as demonstrated above:

Code:

<%
Dim strImageName, strThumbName, objXML
strImageName = "mypicture.jpg"
strThumbName = "mypicture_thumb.jpg"
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", "http://localhost/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=500&height=-1", True
objXML.Send
Set objXML=Nothing
Response.Write("original: <img src=""" & strImageName & """ /><br />")
Response.Write("thumbnail: <img src=""" & strThumbName & """ /><br />")
%>

good luck and happy programming!

Attached Files

ImageResizer.zip (4.7 KB, 219 views)

__________________

Visit The Windows Scripting Guru

Last edited by Shadow Wizard : February 5th, 2008 at 04:25 AM.

October 3rd, 2006, 10:02 PM

baseballdude_

Expert Learner

ASP Free Intermediate (1500 - 1999 posts)

Join Date: Feb 2005

Location: Wisconsin

Posts: 1,856

Folding Points: 22104 Folding Title: Starter Folder

Time spent in forums: 1 Week 5 Days 9 h 30 m 59 sec
Reputation Power: 59

Send a message via Yahoo to baseballdude_

Send a message via Google Talk to baseballdude_

Yahav, I looooooooooooooooooove you.

Did I mention that I love you Yahav?

Comments on this post

Shadow Wizard agrees: umm... I think so... :blush:

__________________
www.xoise.com - www.ourfreegames.com - www.playtouchgames.com - www.randomtools.net - www.xenocide-rpg.com

October 3rd, 2006, 11:10 PM

baseballdude_

Expert Learner

Join Date: Feb 2005

Location: Wisconsin

Posts: 1,856

Time spent in forums: 1 Week 5 Days 9 h 30 m 59 sec
Reputation Power: 59

** Disregard this...I just got it fixed! There was a permissions problem after all -- the internet guest account on this new server wasn't the default IUSR :\

I've combined your upload script with the resizer to create thumbnails of images when they are uploaded. The following script piece only uploads the original file and nothing more. I tested to see that paths are right...what am I doing wrong?

ASP Code:

Original - ASP Code

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    Dim objUpload
    Set objUpload = New ShadowUpload
    If objUpload.GetError <> "" Then
        Response.Write("Sorry, could not upload: " & objUpload.GetError)
    Else
        Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
        strDir = strPath & dir
        For x = 0 To objUpload.FileCount-1
            If (objUpload.File(x).ImageWidth < 1) Or (objUpload.File(x).ImageHeight < 1) Then
                Response.Write("Invalid file type!")
                Response.End()
            Else
                Call objUpload.File(x).SaveToDisk(strDir, "")
                u_bound = u_bound + 1
                ReDim Preserve arrImages(u_bound)
                arrImages(u_bound) = objUpload.File(x).FileName
                strImageName = strDir & "\" & objUpload.File(x).FileName
                strThumbName = strDir & "\" & getFileName(objUpload.File(x).FileName)
                objXML.Open "GET", strPathToDir & "ImageResizer.aspx?image=" & strImageName & "&thumb=" & strThumbName & "&width=120&height=-1", True
                objXML.Send()
            End If
        Next
        Set objXML = Nothing
    End If
End If

Last edited by baseballdude_ : October 3rd, 2006 at 11:22 PM.

October 3rd, 2006, 11:50 PM

baseballdude_

Expert Learner

Join Date: Feb 2005

Location: Wisconsin

Posts: 1,856

Time spent in forums: 1 Week 5 Days 9 h 30 m 59 sec
Reputation Power: 59

I actually am having the same problem again. The XMLHTTP doesn't seem to work right (even though it doesn't error) and doesn't create the thumbnail. I have this temporarily solved, having it create an iframe to be displayed, lol...but do you know what I'm doing wrong from the post above?

October 4th, 2006, 01:08 AM

Shadow Wizard

Moderator From Beyond

Join Date: Sep 2004

Location: Israel

Posts: 26,621

Time spent in forums: 3 Months 1 Week 4 Days 13 h 47 m 29 sec
Reputation Power: 1441

debug the code by adding those lines:

Code:

Dim strURL,  strResult
strURL = strPathToDir & "ImageResizer.aspx?image=" & strImageName & "&thumb=" & strThumbName & "&width=120&height=-1"
Response.Write("URL: " & strURL & "<br />")
objXML.Open "GET", strURL, True
objXML.Send
strResult = objXML.ResponseText
Respose.Write("response: " & strResult & "<br />")

and let me know the result of the debugging.