[VB.NET] Formato JPEG e sua compressione

[stejano]

scusate in vb.net la compressione delle jpg è automatica a quanto ho capito...non come in vb6...dove invece quando salvi , salvi sempre in bmp....ora però io vorrei poter scegliere la compressione dell'immagine...cosa mi consigliate di fare???


mi riferisco alla qualità di compressione jpg...come posso fare per sceglierla e modificarla??

[stejano]

nessuno sa niente???vorrei aumentare il tasso di compressione delle jpg...non c'è sistema??

[stejano]

ieeeeeeeee!!!
ho quasi risolto da me...c'è l'ho fatta...ho trovato il modo di cambiare la compressione delle jpg...con questo sistema:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim imgCodecs() As Imaging.ImageCodecInfo = Imaging.ImageCodecInfo.GetImageEncoders()

Dim params As Imaging.EncoderParameters = New Imaging.EncoderParameters(1)
Dim quality As Imaging.EncoderParameter = New Imaging.EncoderParameter(System.Drawing.Imaging.En coder.Quality, 50)
'Set quality to 50
params.Param(0) = quality



If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
If SaveFileDialog1.Filter() = "file jpg|*.jpg" Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, imgCodecs(1), params)

End If


PictureBox1.Image.Save(SaveFileDialog1.FileName)
End If
End Sub




mi rimane un problema però:
vorrei far sì che quando nella savefiledialog applico il filtro *.jpg, si applichi la compressione altrimenti no.
io ho utilizzando un ciclo di if cioè:
If SaveFileDialog1.Filter() = "file jpg|*.jpg" Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, imgCodecs(1), params)

End If


ma non funziona, qualcuno sa dirmi dove sbaglio??non riesco a capire il mio errore.
cmq la compressione funziona alla grande...ho provato senza ciclo e va..miticooo!!!!!!!!

[mardok30]

Prova ad usare

if NomeFile.EndWith = ".jpg" Then
   PictureBox1.Image.Save(SaveFileDialog1.FileName, imgCodecs(1), params)
Else
   PictureBox1.Image.Save(SaveFileDialog1.FileName)
End if

[stejano]

if NomeFile.EndWith(".jpg") Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, imgCodecs(1), params)
Else
PictureBox1.Image.Save(SaveFileDialog1.FileName)
End if


non proprio come hai detto te...ma è ottimo funziona....un bel raggiro....anche se mi sarebbe piaciuto sapere perchè non andava...tuttavia funziona alla grande...grazie dello spunto!!!

[mardok30]

if NomeFile.EndWith = ".jpg" Then
Ops... un errore di distrazione.

[vaitrafra]

Originariamente inviato da stejano
io ho utilizzando un ciclo di if cioè:
If SaveFileDialog1.Filter() = "file jpg|*.jpg" Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, imgCodecs(1), params)

End If


ma non funziona, qualcuno sa dirmi dove sbaglio??non riesco a capire il mio errore.
cmq la compressione funziona alla grande...ho provato senza ciclo e va..miticooo!!!!!!!!

Sono contento che tu abbia risolto da te, era solo il problema di applicarsi un attimo, cercare con google ed imparare a risolverlo invece che correre in tondo per la stanza e urlare :"EEEEEEK NON LO sO FAREEEEE! EEEEEK!"

Bene, ora passiamo al secondo quesito(tralasciando il "ciclo di if" )
da vedere così direi che la stringa(con filtro ) ritornata dalla proprietà aveFileDialog1.Filter() non restituisca mai il valore con cui la confronti. Metti un break Point.
L'altra è che la proprietà Filter non venga impostata dalla dialog durante il normale utilizzo ma sia un metodo esclusivamente a disposizione del programmatore per impostarla(anche se non avrebbe molto senso).

[stejano]

eheh....insomma si quel che si può...fin dove si può....ok ora ho capito perchè non va il metodo filter....allora ho risolto nella maniera migliore...mille grazie!