Bonjour, comme expliqué dans le titre, j'ai un petit problème de dimension de mon byte array lors de ma convertion. Voici mon 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
19
20
21
Dim Size As System.Drawing.Size = bitmap.Size 'j'obtiens 1024*768
bitmap.Save("..\Sauvegarde.png",ImageFormat.Png)
 
'Convertion en byte
 
Dim bytImage As Byte()
Dim MS As MemoryStream = New MemoryStream()
bitmap.Save(MS, ImageFormat.Png)
bytImage=MS.ToArray()
 
'Au lieu d'obtenir 786432 soit 1024*768 pour le bytImage.Length
'J'obtiens 27054 avec ImageFormat.Png
'J'obtient 17561 avec ImageFormat.Jpeg
'J'obtiens 3145782 avec ImageFormat.Bmp
 
'Ecriture dans un fichier texte pour simple vérification
 
Dim SW As StreamWriter=FileCreateText("..\TextFile.txt")
For Each Q As Int32 In bytImage
SW.Write(byteImage(Q) & "    ")
Next
Pouvez vous m'aider ?

Merci d'avance.