hi there,
i've a function that reads image filenames from database, and displays into
a repeater control, but what i'm trying to acheive is as i loop through each
filename, i want to resize it to say 100 pixels wide(which i already have
function for) and it returns a System.Drawing.Bitmap object - now this, i
want to get the image from here and put it into an <asp:imagecontrol.
my code so far...
---------------------------------------------------
Function ResizeImage(ByVal s As IO.Stream, ByVal maxWidth As Integer) As
System.Drawing.Bitmap
Dim oImage As System.Drawing.Image =
System.Drawing.Image.FromStream(s)
'check image width and orientation...
Dim newWidth, newHeight As Integer
If oImage.Width maxWidth Then
Dim tmpW As Decimal = oImage.Width / maxWidth
newWidth = maxWidth
newHeight = oImage.Height / tmpW
Else
'image size is okay.. use the original uploaded size.
newWidth = oImage.Width
newHeight = oImage.Height
End If
Dim bmpOut As New Bitmap(newWidth, newHeight)
Dim g As Graphics = Graphics.FromImage(bmpOut)
g.InterpolationMode =
System.Drawing.Drawing2D.InterpolationMode.HighQua lityBicubic
g.FillRectangle(Brushes.White, 0, 0, newWidth, newHeight)
g.DrawImage(oImage, 0, 0, newWidth, newHeight)
oImage.Dispose()
ResizeImage = bmpOut
g.Dispose()
g = Nothing
bmpOut.Dispose()
bmpOut = Nothing
oImage.Dispose()
oImage = Nothing
End Function
Private Sub photoslist_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataListItemEventArgs) Handles
photoslist.ItemDataBound
If Not (e.Item.DataItem Is Nothing) Then
Dim p As PhotoAlbum.Photo = e.Item.DataItem
Dim img As WebControls.Image = e.Item.FindControl("img")
'resize the image on the fly....
'i know this is wrong, here is where i need help...
Dim s As New IO.StreamReader(Server.MapPath(".") & "\gallery\" &
Request.QueryString("id") & "\" & p.Filename)
img.imageurl = ResizeImage(s.BaseStream, 120)
End If
End Sub
---------------------------------------------------
how would i go about this?
thanks,
Paul
