ASP.NET

Christian Graus wrote:

I gave your post a 5.

JimBob SquarePants wrote:

Could not find a part of the path 'C:\Users\Fred\Desktop\James\Organised Files\Images\cherries.jpg'.

'----------------------------------------------------------------------------------
    ' Name              : btnAddPhoto_Click
    ' Purpose           : This event handles the Conversion of the uploaded image files to System Data Linq Binary.
    '----------------------------------------------------------------------------------

    Protected Sub btnAddPhoto_Click(ByVal sender As Object, ByVal e As System.EventArgs) 'Handles btnAddPhoto.Click

        Dim photoFileUpload As FileUpload = CType(dvCrops.FindControl("photoFileUpload"), FileUpload)


        If photoFileUpload.PostedFile Is Nothing Then

            lblMessage.Text = "No file specified."

            Exit Sub

        Else

            Dim FileName As String = photoFileUpload.PostedFile.FileName


            Dim ext As String = FileName.Substring(FileName.LastIndexOf("."))

            ext = ext.ToLower


            If ext = ".jpg" Then

            ElseIf ext = ".bmp" Then

            ElseIf ext = ".gif" Then

            ElseIf ext = "jpg" Then

            ElseIf ext = "bmp" Then

            ElseIf ext = "gif" Then

            Else

                lblMessage.Text = "Only gif, bmp, or jpg format files supported."

                Exit Sub

            End If

            ' convert the fileupload.postedfile to system.data.linq.binary
            Dim source As FileInfo = New FileInfo(FileName)
            Dim buffer() As Byte = New Byte(photoFileUpload.PostedFile.ContentLength - 1) {}
            source.OpenRead.Read(buffer, 0, photoFileUpload.PostedFile.ContentLength)


            buffer = ResizeImageFile(buffer, 200)
            crpImage1 = New System.Data.Linq.Binary(buffer)
            lblMessage.Text = "Image Successfully Uploaded."
        End If

    End Sub

Public Shared Function ResizeImageFile(ByVal imageFile() As Byte, ByVal targetSize As Integer) As Byte()
        Using oldImage As System.Drawing.Image = System.Drawing.Image.FromStream(New MemoryStream(imageFile))
            Dim newSize As Size = CalculateDimensions(oldImage.Size, targetSize)
            Using newImage As Bitmap = New Bitmap(newSize.Width, newSize.Height, PixelFormat.Format24bppRgb)
                Using canvas As Graphics = Graphics.FromImage(newImage)
                    canvas.SmoothingMode = SmoothingMode.AntiAlias
                    canvas.InterpolationMode = InterpolationMode.HighQualityBicubic
                    canvas.PixelOffsetMode = PixelOffsetMode.HighQuality
                    canvas.DrawImage(oldImage, New Rectangle(New Point(0, 0), newSize))
                    Dim m As New MemoryStream
                    newImage.Save(m, ImageFormat.Jpeg)
                    Return m.GetBuffer
                End Using
            End Using
        End Using
    End Function

Public Shared Function CalculateDimensions(ByVal oldSize As Size, ByVal targetSize As Integer) As Size
        Dim newSize As Size
        If (oldSize.Height > oldSize.Width) Then
            newSize.Width = CType((oldSize.Width * CType((targetSize / CType(oldSize.Height, Single)), Single)), Integer)
            newSize.Height = targetSize
        Else
            newSize.Width = targetSize
            newSize.Height = CType((oldSize.Height * CType((targetSize / CType(oldSize.Width, Single)), Single)), Integer)
        End If
        Return newSize
    End Function

JimBob SquarePants wrote:

' convert the fileupload.postedfile to system.data.linq.binary Dim source As FileInfo = New FileInfo(FileName) Dim buffer() As Byte = New Byte(photoFileUpload.PostedFile.ContentLength - 1) {}

Dim FileSize As Integer = 0
FileSize = fileUpload.PostedFile.ContentLength
Dim FileData(FileSize) As Byte
fileUpload.PostedFile.InputStream.Read(buffer, 0, FileSize)

Dim source As FileInfo = New FileInfo(FileName

Dim photoFileUpload As FileUpload = CType(dvCrops.FindControl("photoFileUpload"), FileUpload)

Dim myfile As HttpPostedFile = photoFileUpload.PostedFile

Dim FileSize As Integer = 0

FileSize = myfile.ContentLength

Dim FileData(FileSize) As Byte

myfile.InputStream.Read(FileData, 0, FileSize)

FileData = ResizeImageFile(FileData, 200)

crpImage1 = New System.Data.Linq.Binary(FileData)

JimBob SquarePants wrote:

Any ideas would be really helpful.

FileName.PostedFile.SaveAs(FileName.PostedFile.FileName)

FileName.PostedFile.SaveAs(Server.MapPath(Path.GetFileName(FileName.PostedFile.FileName)))