Foros del Web » Programando para Internet » ASPX (.net) »

Redimensionar imagenes sin perder calidad

Estas en el tema de Redimensionar imagenes sin perder calidad en el foro de ASPX (.net) en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 17/05/2009, 05:03
 
Fecha de Ingreso: marzo-2008
Mensajes: 383
Antigüedad: 16 años, 1 mes
Puntos: 5
Exclamación Redimensionar imagenes sin perder calidad

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(newImagenConvert.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
  #2 (permalink)  
Antiguo 18/05/2009, 07:24
 
Fecha de Ingreso: abril-2007
Mensajes: 163
Antigüedad: 17 años, 1 mes
Puntos: 2
Respuesta: Redimensionar imagenes sin perder calidad

Prueba con el programa imagemagick,

El programa es un visor gráfico normal, al instalarlo permite registrar unas dll para vb o C. Lo agregamos como objeto com desde cualquier lenguaje y podemos hacer muchas acciones con las fotos. Redimensionar, cortar, correjir color...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:39.