Hola foreros. Estaba googleando buscando un código en ASP para redimensionar una imagen sin perder la calidad. Encontré este código:
Código PHP:
Dim strDireccionImagenOriginal As String
Dim dblAnchoDeseado As Double
Dim dblAltoDeseado As Double
Dim strDireccionDestino As String
strDireccionImagenOriginal = Server.MapPath("images/fotoOriginal.jpg")
dblAnchoDeseado = "50"
dblAltoDeseado = "50"
strDireccionDestino = Server.MapPath("images/fotoReducida.jpg")
Dim newImagen As System.Drawing.Image
Dim g As Drawing.Graphics
Dim newbitmap As Drawing.Bitmap
Dim objFile As New IO.FileInfo(strDireccionImagenOriginal)
Response.Write("antes de if" & "<br>")
If objFile.Exists Then
Response.Write("dentro de if" & "<br>")
newImagen = System.Drawing.Image.FromFile(strDireccionImagenOriginal)
newbitmap = New Drawing.Bitmap(newImagen, Convert.ToInt32(dblAnchoDeseado), Convert.ToInt32(dblAltoDeseado))
newImagen = New Drawing.Bitmap(newbitmap)
Response.Write("antes de try" & "<br>")
Try
Response.Write("dentro de try" & "<br>")
newImagen.Save(strDireccionDestino,System.Drawing.Imaging.ImageFormat.Jpeg)
Response.Write("despues de grabar" & "<br>")
Catch ex As Exception
Response.Write("dentro de error" & "<br>")
Response.Write(ex.Message)
MsgBox(ex.Message)
End Try
End If
Funciona bien pero cuando se agranda o se hace pequeña una foto se deforma mucho y la calidad cae en picado..
Alguien sabe de algún codigo que funcione bien en cuanto a la calidad o algún código que en lugar de redimensionar una imagen la corte ??
Gracias