[VB.NET] Ridimensionamento immagini JPEG e qualità

[ToNyLuCa]

Ciao a tutti, ho un problema con un codice che mi ridimensiona le immagini e devo dire che funge benissimo, la qualità finale è ottima, ma trovo una leggera differenza sui colori finali dopo il ridimensionamento,i colori sono leggermente diversi.Se apro l'immagine originale e la ridimensiono con photoshop i colori rimangono intatti, qualcuno potrebbe aiutarmi a modificarlo? Potrebbe essere diminuzione di qualità?
Ecco un esempio:
Foto originale
Foto Ridimensionata con quel codice

            For i = 0 To lvwImmagini.Items.Count - 1
                Application.DoEvents()
                If lvwImmagini.Items(i).Checked = True Then


                    Dim risultato = "Foto_" & Genera(8).ToUpper & ".jpg"

                    If lvwImmagini.Items(i).SubItems(0).Text.ToString.ToUpper() = nomeimag.ToString.ToUpper() Then nomeimag = risultato
                    ListView1.Items.Add(risultato)
                    Dim originalX
                    Dim originalY
                    Dim bitmap As New Bitmap(FileName.Text & "\" & lvwImmagini.Items(i).SubItems(0).Text) 'path dell'immagine originale
                    Dim bitmap1 As New Bitmap(FileName.Text & "\" & lvwImmagini.Items(i).SubItems(0).Text) 'path dell'immagine originale

                    Dim larghezza As Integer = 140 'larghezza nuova immagine
                    Dim altezza As Integer = 105 'altezza nuova immagine
                    Dim nuova_immagine As New Bitmap(larghezza, altezza)
                    Dim temp As Graphics = Graphics.FromImage(nuova_immagine)

                    originalX = bitmap1.Width
                    originalY = bitmap1.Height
                    Dim altezza1 As Integer
                    Dim larghezza1 As Integer


                    If originalX > originalY Then
                        larghezza1 = "1920" 'larghezza nuova immagine
                        altezza1 = "1280" 'altezza nuova immagine
                    Else
                        larghezza1 = "1280" 'larghezza nuova immagine
                        altezza1 = "1920" 'altezza nuova immagine
                    End If



                    Dim nuova_immagine1 As New Bitmap(larghezza1, altezza1)
                    Dim temp1 As Graphics = Graphics.FromImage(nuova_immagine1)



                    temp1.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                    temp1.DrawImage(bitmap1, New Rectangle(0, 0, larghezza1, altezza1), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)

                    temp.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                    temp.DrawImage(bitmap, New Rectangle(0, 0, larghezza, altezza), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)




                    nuova_immagine.Save("da_importare\miniature\" & risultato, System.Drawing.Imaging.ImageFormat.Jpeg) 'path dove salvare l'immagine ridimensionata
                    nuova_immagine1.Save("da_importare\grandi\" & risultato, System.Drawing.Imaging.ImageFormat.Jpeg) 'path dove salvare l'immagine ridimensionata



                    sw.WriteLine(risultato)


                    contafotocaricate.Text = "Sto caricando le foto selezionate..Attendere   " & i + 1 & "/" & contaimag.Text

                    temp.Dispose()
                    bitmap.Dispose()
                    nuova_immagine.Dispose()
                    temp1.Dispose()
                    bitmap1.Dispose()
                    nuova_immagine1.Dispose()
                    temp.Dispose()
                    bitmap.Dispose()
                    nuova_immagine.Dispose()



                End If
            Next

[ToNyLuCa]

Nessuno che possa aiutarmi?
Si può aggiungere qualche funzione o comando che mi comprime la foto utilizzando i colori rgb di photoshop?

[URANIO]

Io non vedo la differenza di colori(visualizzandoli da chrome).

[ToNyLuCa]

Sai che ho fatto la prova anche io con chrome e la differenza non si nota ):
Stranissima sta cosa sinceramente...Da ie e da opera invece si nota...Maaa

[URANIO]

E' vero!
Con un programma tipo Photoshop(o simili) si nota la differenza?( non ho voglia di provare)
Magari essendo un immagine molto grande i browser applicano una specie di filtro per gestire le foto più velocemente.

[pietro09]

Il problema è che quel jpg ha un profilo colore incorporato, mentre il codice lo ignora.

Io modifico l'immagine con photoshop usando il comando: Converti colori del documento in spazio di lavoro.

E' chiaro che se si riesce a farlo da codice è molto meglio. Io non ho trovato nulla in rete, ma spero che qualcuno proponga una soluzione qui.

[ToNyLuCa]

Infatti ci stavo lavorando anche io come ioncorporare i colori, ho notato anche io che la mia macchina crea dei profili colore incorporati..