Resize Images ???

RSCrazy8 · Apr 28, 2012

Ok I guess the easiest way to do this is to post some code. <%@ import namespace="system.drawing" %> <%@ import namespace="system.drawing.imaging" %> <script language="vb" runat="server"> sub page_load(sender as object, e as eventargs) dim bmp as bitmap = new bitmap(150,150) response.contenttype = "image/jpeg" bmp.save(response.outputstream, imageformat.jpeg) end sub </script> basically it creates a black box 150 X 150. now there is a way to push a file into the bmp (thus resizing the image) by using the System.Drawing.Image.FromFile call (see site http://www.aspalliance.com/chrisg/tools/view-image2.asp) I want to basically resize images from a db I know I can do it from a file using the above example, but I tried using System.Drawing.Image.FromStream, but its not working all to well. if anyone has ideas let me know and thanks in advance for the help. ok here is an update I did it all on me own yay. three files testimg.aspx shows everything in a datalist viewthumb.aspx shows thumbnails viewimg.aspx shows the real image **testimg.aspx <%@ Import Namespace="System" %> <%@ Import Namespace="System.Configuration" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <%@ Page Language="vb" Debug="true" %> <script language="vb" runat="server"> sub page_load(sender as object, e as eventargs) bindgrid end sub sub bindgrid() dim c as new sqlconnection("server=(local);database=master;trusted_connection= yes") dim ds as dataset = new dataset() dim adapter as sqldataadapter = new sqldataadapter("select img_name,img_pk from image", c) adapter.fill(ds,"master") mydatalist.datasource=ds.tables("master").defaultview mydatalist.databind() end sub </script> <html> <head> </head> <body> <form runat="server"> <asp:datalist id="mydatalist" repeatecolumns="5" repeatdirection="horizontal" runat="server" > <itemtemplate> <td><a href=http://aspmessageboard.com/archive/index.php/"viewimg.aspx?img=<%# DataBinder.Eval(Container.DataItem, "img_pk") %>" ><img src="viewthumb.aspx?img=<%# DataBinder.Eval(Container.DataItem, "img_pk") %>" border=0></asp:link></td> </itemtemplate> </asp:datalist> </form> </body> </html> **viewimg.aspx <%@ import namespace="system.web.security " %> <%@ import namespace="system" %> <%@ import namespace="system.configuration" %> <%@ import namespace="system.data" %> <%@ import namespace="system.data.sqlclient" %> <%@ page language="vb" debug="true" %> <script language="vb" runat="server"> sub page_load(sender as object, e as eventargs) dim c as new sqlconnection("server=(local);database=master;trusted_connection= yes") dim cmd as sqlcommand = new sqlcommand("select img_contenttype,img_data from image where img_pk="+request.querystring("img"),c) c.open dim dr as sqldatareader = cmd.executereader() if dr.read() then response.contenttype = dr("img_contenttype").ToString() response.binarywrite(dr("img_data")) end if c.close end sub </script> **viewthumb.aspx <%@ import namespace="system.web.security " %> <%@ import namespace="system" %> <%@ import namespace="system.configuration" %> <%@ import namespace="system.data" %> <%@ import namespace="system.data.sqlclient" %> <%@ import namespace="system.drawing" %> <%@ import namespace="system.drawing.imaging" %> <%@ import namespace="system.io" %> <%@ page language="vb" debug="true" %> <script language="vb" runat="server"> sub page_load(sender as object, e as eventargs) dim c as new sqlconnection("server=(local);database=master;trusted_connection= yes") dim cmd as sqlcommand = new sqlcommand("select img_contenttype,img_data from image where img_pk="+request.querystring("img"),c) c.open dim dr as sqldatareader = cmd.executereader() if dr.read() then dim callback as system.drawing.image.getthumbnailimageabort dim callbackdata as system.intptr dim image as byte() = dr("img_data") dim imgstream as stream = new system.io.memorystream(image) dim img as system.drawing.image = system.drawing.image.fromstream(imgstream) dim thumb as system.drawing.image = img.getthumbnailimage(150,150,callback,callbackdat a) dim type as object if dr("img_contenttype").ToString()="gif" then type=imageformat.gif response.contenttype="image/gif" else type=imageformat.jpeg response.contenttype="image/pjpeg" end if thumb.save(response.outputstream, type) end if c.close end sub </script> oh and please mind my million <%@ import %> statements as I am just learning this stuff. I probably have more in there than I need. but it works =).

Resize Images ???

RSCrazy8

New Member