jpg compresión

[robertmasana]

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

[javiermil]

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

[robertmasana]

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()

[javiermil]

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