Discussion :

[Pelote2012]

Bonjour,

Mon petit souci aujourd'hui est de détecter les images en CMYB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  If objImage.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Bmp) Then   'Conversion bnp -> JPG
                            NomFichier = NomFichier.ToLower.Replace(".bmp", ".jpeg")
                            FichierLogo = FichierLogo.ToLower.Replace(".bmp", ".jpeg")
                            objImage.Save(FichierLogo, System.Drawing.Imaging.ImageFormat.Jpeg)
                        ElseIf objImage.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Jpeg) Then
 
                        End If

Ce code transforme les BMP en jpeg. C'est OK.

Mon problème est que je ne vois pas comment détecter le format CMYB
J'ai vu un truc (mais pas compris) avec l'option PixelFormat ou Flags
Si quelqu'un a une idée...

[GuruuMeditation]

Ça a l'air compliqué, et dépendant des OS (les résultats sur W7 sont différent que sous Win2008!)

Quelques pistes :

http://stackoverflow.com/questions/4...age-in-c-sharp

http://stackoverflow.com/questions/5...487236#9487236

[Pelote2012]

Merci pour les liens, j'ai bien regardé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  ElseIf objImage.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Jpeg) AndAlso (objImage.Flags And System.Drawing.Imaging.ImageFlags.ColorSpaceRgb) = System.Drawing.Imaging.ImageFlags.ColorSpaceRgb Then

Maintenant je détecte le format de l'image
Me reste plus qu'à convertir ... S'il y a des idées ...

[Pelote2012]

Je ne comprend pas pourquoi mon image ne passe pas en RGB
Avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  Dim b1 As Bitmap = New Bitmap(FichierLogo)
 
                            Dim b2 As Bitmap = New Bitmap(b1.Size.Width, b1.Size.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
                            b2.SetResolution(b1.HorizontalResolution, b1.VerticalResolution)
 
                            Dim g As Graphics = Graphics.FromImage(b2)
 
                            g.DrawImage(b1, 0, 0)
 
 
                            g.Dispose()
 
                            NomFichier = NomFichier.Substring(0, NomFichier.LastIndexOf(".")) & "_RVB.jpeg"
                            FichierLogo = My.Computer.FileSystem.CombinePath(Helper.GetNameDirectoryUpload(Nothing, MonSite, Nothing, MonSite.Libelle, True), "Fichiers/" & NomFichier)
                            b2.Save(FichierLogo)
 
                            Dim test As Boolean = ((objImage.Flags And System.Drawing.Imaging.ImageFlags.ColorSpaceRgb) = System.Drawing.Imaging.ImageFlags.ColorSpaceRgb)

Je spécifie pourtant le format final

[Pelote2012]

N'ayant plus trop le temps de me pencher sur le problème, je le clos.
Si toutefois quelqu'un peut me donner une piste, je la prendrai avec plaisir