Creating Thumbnails

Question

User680026537 posted

Hey everyone. I am trying to create thumbnails of original images. So far I have this code...

Code:

<%@  Page Language="vb" Debug="true" %>
<%

' initialize objects
 Dim strFilename as string

Dim g as System.Drawing.Image

Dim newWidth, newHeight, sizer

 Dim boxWidth=100

 Dim boxHeight=100

 ‘ set the filename
strFilename = Server.MapPath("./images/07005.jpg")

 ‘ create a new image from file
 g = System.Drawing.Image.FromFile(strFilename)

 If g.height > g.width Then ‘ portrait

     sizer = boxWidth / g.height

 Else

     sizer = boxHeight / g.width

 End If

 newWidth=CInt(g.width * sizer)

 newHeight=CInt(g.height * sizer)

dim g2 as New System.Drawing.Bitmap(g, newWidth, newHeight)

 ‘ set the content type
 response.contenttype="image/jpeg"

 ‘ send the image to the viewer
g2.Save(Response.OutputStream, g.RawFormat)

 ‘ tidy up
 g.dispose()

 %>

How can I wrap this code in a loop to make thumbnails of the images in the images folder and save thumbnail jpg's in an images/thumb folder?

Thanks for the help!!

 

Answer 1

User-125547262 posted

 Please see this article from Bertrand who is on the asp.net team

http://dotnetslackers.com/articles/aspnet/Generating-Image-Thumbnails-in-ASP-NET.aspx

Answer 2

User-1171043462 posted

try this

http://www.developer.com/net/asp/article.php/3098311

Answer 3

User-525215917 posted
Try something like this

DirectoryInfo dirInfo = new DirectoryInfo(Server.MapPath("~/images/"));
foreach(FileInfo file in dirInfo.GetFiles())
{
    //file.FullName gives you full path to file
    //make sure you handle exceptions in the case of invalid images 
    //and files that are not image files
}