Eric Wise

not free :(

thanks alot for helping me ..

Thanxs...

hi,

my Q is :

Imports System.Data

Imports System.Data.SqlClient

Imports System.IO

Imports System.Drawing

Imports System.Drawing.Imaging

Public Class image

   Inherits System.Web.UI.Page

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       'Put user code to initialize the page here

       If Not Page.IsPostBack Then

           Dim assetImg As New EasyAssets.DAC.AssetImage(Convert.ToInt32(Request.QueryString("ID")))

           assetImg = DirectCast(DomainManager.Load(assetImg), EasyAssets.DAC.AssetImage)

           Response.ContentType = "Image/JPEG"

           Response.BinaryWrite(assetImg.Thumbnail)

       End If

   End Sub

   Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click

       Try

           Dim upfile As HttpPostedFile =UploadFile.PostedFile

           If upfile.ContentLength <> Nothing Then

               Dim myData() As Byte

               Dim stream As New MemoryStream

               Dim assetImage As New EasyAssets.DAC.AssetImage

               myData = ImageOptimizer1.Optimize(upfile)

               assetImage.FileSize = Convert.ToInt32(myData.Length / 1000)

               Dim i As Integer = InStrRev(upfile.FileName.Trim, "\")

               If i = 0 Then

                   assetImage.FileName = upfile.FileName.Trim

               Else

                   assetImage.FileName = Right(upfile.FileName.Trim, Len(upfile.FileName.Trim) - i)

               End If

               assetImage.AssetID = Convert.ToInt32(Request.QueryString("AID"))

               assetImage.FileData = myData

               assetImage.ContentType = upfile.ContentType

               Dim thumbnail As Bitmap = CreateThumbNail(New Bitmap(upfile.InputStream, False), 120, 120)

               thumbnail.Save(stream, ImageFormat.Jpeg)

               assetImage.Thumbnail = stream.GetBuffer()

               DomainManager.Save(assetImage)

               BindDataGrid()

           End If

       Catch ex As Exception

           WriteMessage(ex.Message, True)

       End Try

   End Sub

   Private Function CreateThumbNail(ByVal postedFile As Bitmap, ByVal width As Integer, ByVal height As Integer) As Bitmap

       Dim bmpOut As System.Drawing.Bitmap

       Dim Format As ImageFormat = postedFile.RawFormat

       Dim Ratio As Decimal

       Dim NewWidth As Integer

       Dim NewHeight As Integer

       '*** If the image is smaller than a thumbnail just return it        

       If postedFile.Width < width AndAlso postedFile.Height < height Then

           Return postedFile

       End If

       If (postedFile.Width > postedFile.Height) Then

           Ratio = Convert.ToDecimal(width / postedFile.Width)

           NewWidth = width

           Dim Temp As Decimal = postedFile.Height * Ratio

           NewHeight = Convert.ToInt32(Temp)

       Else

           Ratio = Convert.ToDecimal(height / postedFile.Height)

           NewHeight = height

           Dim Temp As Decimal = postedFile.Width * Ratio

           NewWidth = Convert.ToInt32(Temp)

       End If

       bmpOut = New Bitmap(NewWidth, NewHeight)

       Dim g As Graphics = Graphics.FromImage(bmpOut)

       g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic

       g.FillRectangle(Brushes.White, 0, 0, NewWidth, NewHeight)

       g.DrawImage(postedFile, 0, 0, NewWidth, NewHeight)

       postedFile.Dispose()

       Return bmpOut

   End Function

   Protected Function FormatURL(ByVal imageID As Integer) As String

       Return ("AssetShowThumb.aspx?id=" & imageID.ToString())

   End Function

   Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged

   End Sub

End Class

-------------------------------------------------------------------------------------

Err : using namespace also

EasyAssets.DAC.AssetImage   is not defined

other are not declared

You've been kicked (a good thing) - Trackback from DotNetKicks.com

How to convert large image into thumbnail using asp.net