Καλημέρα,

 

πως μπορώ να κάνω resize τις εικόνες (jpg) που ανεβάζω με τον παρακάτω κώδικα σε διαστάσεις 640*480;

 

'FIND ID

Dim strSQLCommand As String = "SELECT id FROM TableData WHERE ..............................

Dim command As New SqlCommand(strSQLCommand, DBConn)

Dim returnvalue As String = CType(command.ExecuteScalar(), String)

'RENAME AND WRITE TO SERVER

Dim uploadFolder As String = Request.PhysicalApplicationPath & "upload\"

Dim extension As String = Path.GetExtension(FileUpload2.PostedFile.FileName)

FileUpload2.SaveAs((uploadFolder & returnvalue) + extension)

Εδώ θα ήθελα να βάλω τον κώδια για να γίνει το resize των εικονών

 

 

 

φίλε μου για δες εδώ.

είναι ακριβώς αυτό που θες.

έχει εκεί μια function Που μπορείς να την καλείς και να κάνει resize τα Images

http://www.scribd.com/doc/7598768/Resize-an-Image-Using-ASP

 

---

Νικόλαος Καντζέλης
BSc, MSc, MCAS, MCPD, MCITP, MCTS,MCP, MCT

http://www.nksolutions.gr http://dotnetstories.wordpress.com http://weblogs.asp.net/dotnetstories http://forum.dotnetnuke.gr

Η λύση που προτάθηκε είναι σωστή δύο σημεία όμως χρήζουν προσοχής:

• Η λύση αυτή χρησιμοποιεί gdi για το resize των εικόνων που σημαίνει ότι χρειάζεσαι ιδιαίτερη προσοχή στο de-allocation των resources που χρησιμοποιείς (θα πρέπει να τα κάνεις despose όταν τελειώσεις)
• Η λύση χρησιμοποιεί HighQualityBilinear interpolation που σημαίνει ότι θα έχεις μια καθυστέρηση κατα το resizing.

Στη θέση σου θα δοκίμαζα και τη μέθοδο GetThumbnailImage http://msdn.microsoft.com/en-us/library/system.drawing.image.getthumbnailimage.aspx να δω αν μου κάνει πριν πάω στη προηγούμενη λύση.

---

MSc Konstantinos Pantos
MCP Software Engineer
http://blog.pantos.name
http://kostas.pantos.name

spantos:

Η λύση που προτάθηκε είναι σωστή δύο σημεία όμως χρήζουν προσοχής:

• Η λύση αυτή χρησιμοποιεί gdi για το resize των εικόνων που σημαίνει ότι χρειάζεσαι ιδιαίτερη προσοχή στο de-allocation των resources που χρησιμοποιείς (θα πρέπει να τα κάνεις despose όταν τελειώσεις)
• Η λύση χρησιμοποιεί HighQualityBilinear interpolation που σημαίνει ότι θα έχεις μια καθυστέρηση κατα το resizing.

Στη θέση σου θα δοκίμαζα και τη μέθοδο GetThumbnailImage http://msdn.microsoft.com/en-us/library/system.drawing.image.getthumbnailimage.aspx να δω αν μου κάνει πριν πάω στη προηγούμενη λύση.

δηλαδή; δεν κατάλαβα τί κάνουν αυτά....

 

επίσης με τον παρακάτω τρόπο:

'==================Copy following Function for resizing image====================

Function ResizeImage(ByVal streamImage As Stream, ByVal maxWidth As Int32, ByVal maxHeight As Int32) As Bitmap

Dim originalImage As New Bitmap(streamImage)

Dim newWidth As Int32 = originalImage.Width

Dim newHeight As Int32 = originalImage.Height

Dim aspectRatio As Double = Double.Parse(originalImage.Width) / Double.Parse(originalImage.Height)

If (aspectRatio <= 1 And originalImage.Width > maxWidth) Then

newWidth = maxWidth

newHeight = CInt(Math.Round(newWidth / aspectRatio))

Else

If (aspectRatio > 1 And originalImage.Height > maxHeight) Then

newHeight = maxHeight

newWidth = CInt(Math.Round(newHeight * aspectRatio))

End If

End If

Dim newImage As New Bitmap(originalImage, newWidth, newHeight)

Dim g As Graphics = Graphics.FromImage(newImage)

g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBilinear

g.DrawImage(originalImage, 0, 0, newImage.Width, newImage.Height)

originalImage.Dispose()

Return newImage

End Function

'======================================

 

και μετά :

Dim extension As String = Path.GetExtension(FileUpload1.PostedFile.FileName)

Dim filepreview As Image = (ResizeImage(FileUpload1.PostedFile.InputStream, 640, 480))

filepreview.Save((uploadFolder & returnvalue & "-1") + extension)

filepreview.Dispose()

 

 

μου σώζει τις εικόνες σαν PNG

Εγώ θα ήθελα σαν JPG και με δυνατότητα να παίζω με την συμπίεση (ποιόητα) της εικόνας.

 

Καμιά βοήθεια;

 

 

 

τελικά για να σώζει σαν jpg έπρεπε να γραφεί έτσι :

filepreview.Save(uploadFolder & returnvalue & "-1" + extension, System.Drawing.Imaging.ImageFormat.Jpeg)

 

 

Αυτά τί ορίζουν :

Dim g As Graphics = Graphics.FromImage(newImage)

g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBilinear

g.DrawImage(originalImage, 0, 0, newImage.Width, newImage.Height)