ASP.NET WebForms

Απ: resize image

xakou — Mon, 02 Mar 2009 07:17:12 GMT

τελικά για να σώζει σαν 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)

Απ: resize image

xakou — Mon, 02 Mar 2009 06:07:52 GMT

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

'==================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

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 και με δυνατότητα να παίζω με την συμπίεση (ποιόητα) της εικόνας.

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

Απ: resize image

xakou — Mon, 02 Mar 2009 04:34:59 GMT

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

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

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

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

Απ: resize image

spantos — Sun, 01 Mar 2009 21:13:47 GMT

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

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

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

Απ: resize image

nikolaosk — Sat, 28 Feb 2009 22:21:10 GMT

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

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

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

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

resize image

xakou — Sat, 28 Feb 2009 20:56:44 GMT

Καλημέρα,

πως μπορώ να κάνω 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 των εικονών