How can save the picture with low quality

[arashkey]

Before this topic I save the picture with this code

  Dim savePath As String = Server.MapPath("picture\")
       If (f1.HasFile) Then
         pnlUpload.Visible = False
         lblMessage.Text = "<embed align=bottom src=""inc/u.swf"" ></embed>"
    Dim fileName As String = f1.FileName
Try
  savePath &= CInt(intPic) & "." & pasvand
 Catch ex As Exception
savePath &= "0." & pasvand
 End Try
f1.SaveAs(savePath)
 Response.Redirect("showaghi.aspx")
 Else
MsgBox("Select Picture please", MsgBoxStyle.OkOnly, "Error")
End If
 

but I can't edit or resize the picture !
how can i resize the picture and also save the picture with low quality

[radcaesar]

U mean, for reducing the size of the picture ?

:)

[AmirGhaffary]

thEse code are for save as the picture in an other size

Private Function SaveImageToDB(ByVal Po As Integer) As Int32
            Dim imgName As String
            Dim imgContentType As String
            Dim imgLen As Int32
            Dim imgbin() As Byte
            Dim imgName2 As String
            Dim imgContentType2 As String
            Dim imgbin2() As Byte
            'check if file is empty
            Dim picup
 
            picup =  Path.GetFileName(BrowsImageProject.Value)
            BrowsImageProject.PostedFile.SaveAs(Server.MapPath("Files/" & picup))
 
            If Not BrowsImageProject.PostedFile Is Nothing Then
                If BrowsImageProject.PostedFile.FileName.Trim.Length > 0 And BrowsImageProject.PostedFile.ContentLength > 0 Then
                    Dim imgStream As Stream = BrowsImageProject.PostedFile.InputStream()
                    imgLen = BrowsImageProject.PostedFile.ContentLength
                    imgContentType = BrowsImageProject.PostedFile.ContentType
                    imgName = BrowsImageProject.PostedFile.FileName.Substring(BrowsImageProject.PostedFile.FileName.LastIndexOf("\") + 1)
                    Dim imgBinaryData(imgLen) As Byte
                    Dim n As Int32 = imgStream.Read(imgBinaryData, 0, imgLen)
                    imgbin = imgBinaryData
 
                    'Create Thumbnail
                    imgName2 = "Thumb_" & imgName
                    imgContentType2 = imgContentType
                    imgbin2 = createThumnail(imgStream, 100, 70)
 
                    Dim fs As FileStream
                    fs = File.Create(Server.MapPath("Files/Thub" & picup))
                    fs.Write(imgbin2, 0, imgbin2.Length)
                    fs.Close()
                    Dim thubpicup
                    thubpicup = "thub" & picup
                    With New ProjectData
                        Dim dv As New DataView
                        dv = .GetMaxid.Tables(0).DefaultView
                        Dim count
                        count = dv.Item(0).Item(0)
 
'Sp for insert the name of file into Data Base
                        .InsertTblImgProject(picup, thubpicup)
                    End With
 
                    End If
                End If
 
 
        End Function
 
 
        'This function creates the Thumbnail image and returns the image created in Byte() format
        Private Function createThumnail(ByVal ImageStream As Stream, ByVal tWidth As Double, ByVal tHeight As Double) As Byte()
            Dim g As System.Drawing.Image = System.Drawing.Image.FromStream(ImageStream)
            Dim thumbSize As New Size
            thumbSize = NewthumbSize(g.Width, g.Height, tWidth, tHeight)
            Dim imgOutput As New Bitmap(g, thumbSize.Width, thumbSize.Height)
            Dim imgStream As New MemoryStream
            Dim thisFormat = g.RawFormat
            imgOutput.Save(imgStream, thisFormat)
            Dim imgbin(imgStream.Length) As Byte
            imgStream.Position = 0
            Dim n As Int32 = imgStream.Read(imgbin, 0, imgbin.Length)
            g.Dispose()
            imgOutput.Dispose()
            Return imgbin
        End Function
 
        Function NewthumbSize(ByVal currentwidth As Double, ByVal currentheight As Double, ByVal newWidth As Double, ByVal newHeight As Double)
            ' Calculate the Size of the New image 
            Dim tempMultiplier As Double
 
            If currentheight > currentwidth Then ' portrait 
                tempMultiplier = newHeight / currentheight
            Else
                tempMultiplier = newWidth / currentwidth
            End If
 
            Dim NewSize As New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier))
            Return NewSize
        End Function
 
 
 
 

[arashkey]

tanks a lot
it's so nice

[arashkey]

tanks a lot
it's so nice

but i have some problem
for example
the compiler said
BrowsImageProject , File , ... : is not declared
ProjectData, ... : is not defined
how can i correct this Error
and also i just have path of picture
for example "c:\file\pic\1.gif" or "c:\file\pic\3.jpg"

[arashkey]

oh i am sorry
i am understand all things
i change your function :

' in the main
 f1.SaveAs(savePath)
 Dim img As Drawing.Bitmap
 img = createThumnail(savePath, 50, 50)

Private Function createThumnail(ByVal ImagePath As String, ByVal tWidth As Double, ByVal tHeight As Double) As Drawing.Bitmap
        Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(ImagePath)
        Dim thumbSize As New Drawing.Size
        thumbSize = NewthumbSize(g.Width, g.Height, tWidth, tHeight)
        Dim imgOutput As New Drawing.Bitmap(g, thumbSize.Width, thumbSize.Height)
        Return imgOutput
    End Function

thanks again