<Extension()> _
Public Sub Save(ByVal b As Bitmap, ByVal FileName As String, ByVal Compression As Long, ByVal MimeType As String)
Dim Params As EncoderParameters = New EncoderParameters(2)
Dim CodecInfo As ImageCodecInfo = GetEncoderInfo(MimeType)
Params.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderProgressive)
Params.Param(1) = New EncoderParameter(Encoder.Quality, Compression)
b.Save(FileName, CodecInfo, Params)
End Sub
Esto no funciona. No se guarda como progresivo. ¿Cómo puedo hacer esto y tal vez también especificar el número de pases?Guardar JPG en formato progresivo
@diamandiev ¿Por qué esta marca como una respuesta? Esto no da ninguna respuesta sobre cómo guardar en formato progresivo, solo que dice que no se puede. Puede ser bastante engañoso para los lectores. –
@Guffa do nueva versión de GDI + admite progresivo jpeg. si es así, de qué versión es compatible. –
@ArjunVachhani: No he encontrado nada que sugiera que se ha agregado. – Guffa