Foros del Web - jpg compresión

Foros del Web (http://www.forosdelweb.com/)

- ASPX (.net) (http://www.forosdelweb.com/f78/)

- - jpg compresión (http://www.forosdelweb.com/f78/jpg-compresion-491519/)

Hola me gustaría comprimir el tamaño y el peso de la imagen jpg con asp.net

La imagen ya está subida en el servidor. El proceso sería.

Guardar jpg des de el ordenador al servidor.

Una vez guardada la imagen, comprimir el tamaño y sobrescribir la imagen con un peso inferior y un tamaño inferior.

También me gustaría poder escribir un nombre en una esquina de la imagen.

Saludos

Re: jpg compresión

Lo de escribir en el jpg no sé pero para comprimir y descomprimir, usa System.IO.Compression:

http://www.forosdeinformatica.com/index.php/topic,46.msg86.html#msg86-

Un saludo

Re: jpg compresión

Bueno al final he podido hacer lo que quería, aquí teneis mi ejemplo:

ahora estoy mirando de poder poner un texto dentro de la imágen.. dibujar texto o poner texto dentro de la misma imágen que la foto.

saludos
si alquien sabe como poner texto ...

Código:

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 

        'comprime imágen

        Dim img As Bitmap
 

        Dim bmi As Bitmap = Image.FromFile("C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg")

        img = bmi

        SaveJPGWithCompressionSetting(img, "C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg22.jpg", Val(60))

        bmi.Dispose()
 
 
 

    End Sub
 

    Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo

        Dim j As Integer

        Dim encoders As Imaging.ImageCodecInfo()

        encoders = ImageCodecInfo.GetImageEncoders()

        For j = 0 To encoders.Length

            If encoders(j).MimeType = mimeType Then

                Return encoders(j)

            End If

        Next j

        Return Nothing

    End Function

    Private Sub SaveJPGWithCompressionSetting(ByVal image As Image, ByVal szFileName As String, ByVal lCompression As Long)
 

        Dim eps As EncoderParameters = New EncoderParameters(1)

        eps.Param(0) = New EncoderParameter(Encoder.Quality, lCompression)
 
 
 

        Dim ici As ImageCodecInfo = GetEncoderInfo("image/jpeg")
 

        image.Save(szFileName, ici, eps)
 

        image.Dispose()
 
 
 
 

        'reduce el tamaño a 600 x 450
 

        Dim im As New Bitmap(New Bitmap("C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg22.jpg"), 600, 450)

        im.Save("C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
 

        im.Dispose()

Re: jpg compresión

Te había entendido mal.Pensaba que querías comprimir el archivo de imagen. Lo que haces con ese código es reducir el tamaño y como consecuencia tb lo que ocupa. Para pintar un texto, aquí hay un ejemplo de convertir un texto a una imagen, a partir de ahí podrás usar como fondo tu imagen y así dejar el texto convertido delante de la misma.

http://www.elguille.info/colabora/NET2005/Kev_TextoAImagen.htm

Un saludo