Hola, estoy redimensionando una imagen, lo que hago es reducirla en su tamaño un poco, el caso es que al reducirla la foto se comprime demasiado ...creo.. y pierde muchisima calidad, aunque la reduzca tan solo en unos pocos pixels.....
No utilizo ningun componente, lo hago con .net... A ver si alguien me puede decir como indicarle que no aplique tanta compresion al jpg....
Aqui dejo el codigo que utilizo:
Código:
Dim Imagen as System.Drawing.Image
Dim Filename as String
Filename=Request.QueryString("pathimagen")
Imagen = Imagen.FromFile(Filename)
' Definimos las dimensiones de la miniatura
Dim AnchoMiniatura as Integer, AltoMiniatura as Integer
Anchominiatura=Request.QueryString("Ancho")Altominiatura=Request.QueryString("Alto")
' Definimos el nombre del archivo, y el nombre de la miniatura
Dim NombreArchivo as String, NombreMiniatura as String
NombreMiniatura = Request.QueryString("nombre") & "p"
' Definimos las rutas donde grabará los archivos
Dim RutaArchivo as String, RutaMiniatura as String
RutaMiniatura = Request.QueryString("pathdir")
' Creamos la Miniatura con las dimensiones enviadas, y la definimos como
Dim Miniatura as System.Drawing.Image
Miniatura = Imagen.GetThumbnailImage(AnchoMiniatura, AltoMiniatura, Nothing, New IntPtr())
' Grabamos la Miniatura en disco con formato JPG
Miniatura.Save(Server.MapPath(RutaMiniatura & NombreMiniatura), ImageFormat.JPEG)
' Redirigimos la página hacia la imagen
Response.Redirect(Request.QueryString("origen"))