Charger données BLOB dans une PictureBox

Bonjour,

comme indiqué dans la question j'aimerais charger des données Blob d'une base SQL Server dans un PictureBox ; je suis tombé sur ce lien : https://support.microsoft.com/fr-fr/...rms-picturebox

J'ai testé la solution avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

document = New System.Data.SqlClient.SqlCommand("SELECT INFODOC FROM IMAGE WHERE IUDOC = '0000123008'", ConnexionSQL) Dim dr As SqlDataReader   dr = document.ExecuteReader(CommandBehavior.CloseConnection)   If dr.Read Then Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte dr.GetBytes(1, 0, bytBLOBData, 0, bytBLOBData.Length) Dim stmBLOBData As New MemoryStream(bytBLOBData) PictureBox1.Image = Image.FromStream(stmBLOBData) End If   dr.Close()

---

Mais j'obtiens "L'index se trouve en dehors des limites du tableau."

Il s'agit d'une partie que je maitrise peu, je ne vois pas comment résoudre cette erreur, ma donnée BLOB est trop volumineuse peut-être ? comment le vérifier ?

Merci d'avance de votre aide

Sur quelle ligne tu as cette exception?

j'aurais penché pour un paramètre incorrecte dans une de ces lignes :

Code:

---

1 2	Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte dr.GetBytes(1, 0, bytBLOBData, 0, bytBLOBData.Length)

---

C'est à cette ligne que ça coince :

Code:

---

Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

---

Après je ne vois pas comment exploiter le debuggueur pour débusquer plus finement l'erreur

Tu mets un point d’arrêt. Ensuite tu ajoutes des espions pour voir où ça coince exactement :

Code:

---

1 2 3 4

dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

---

Avec ton code, ça coince direct ici :

Code:

---

dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue)

---

Par contre sur quelle variable placer l'espion ?

Dans l'idée, tu place ton point d'arrêt sur la ligne :

Code:

---

Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

---

Une fois que le programme s'arrête sur ce point d'arrêt, tu sélectionne le texte "dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue)" puis click-droit>Ajouter un espion. Tu devrais donc avoir un exception qui s'affiche dans la fenêtre d'espion. Maintenant tu n'as plus qu'a parcourir l'exception pour en savoir plus.

Le système ne semble pas avoir la possibilité d'analyser, dés que le programme s'arrête sur le point d'arrêt, je définis la ligne en espion, F8 et ça :
Pièce jointe 312724

sur le bouton actualisation j'ai ça :
Pièce jointe 312728

F8, c'est continuer en pas-à-pas. Il génère donc l'exception. Mais du coup tu regardes le contenu de "ex", ça revient au même. :mrgreen:

Eh bien ... y a énormément de choses lol, ça dépasse un peu mes compétences là :
Pièce jointe 312741

Ce que tu peux essayer, dans ces cas là, c'est de remplacer tes valeurs par d'autres. Exemple :

Code:

---

1 2 3

dr.GetBytes(0, 0, Nothing, 0, Integer.MaxValue) dr.GetBytes(1, 0, Nothing, 0, 100)

---

bon avec ça ci-dessous c'est bon :

Code:

---

Dim bytBLOBData(dr.GetBytes(0, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

---

maintenant par contre il m'indique ceci : Le paramètre n'est pas valide en arrivant sur cette ligne :

Code:

---

PictureBox1.Image = Image.FromStream(stmBLOBData)

---

:aie:

Je ferais d'autres tests demain, là je ne vais pas avoir le temps.

Après quelques recherches, je vois que cela pourrait venir du datatype de ma colonne qui est au format image, alors qu'à priori, il vaudrait mieux qu'elle soit au format varbinary ; à cause de ça ma picturebox considère mon image comme non valide, qu'en pensez-vous ? et comment contourner ce pb finalement ? car évidemment je ne peux changer le type de ma colonne

Si tu affectes ton tableau de bytes avec seulement la valeur de la colonne, ça fonctionne pas? (sans faire de GetBytes du coup)

Si ça ne fonctionne pas, je ne sais pas quoi te dire de plus, je n'ai jamais traité d'images en bases de données :?

J'ai viré le DataReader et remplacé ça :

Code:

---

1 2	Dim bytBLOBData(dr.GetBytes(0, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte dr.GetBytes(0, 0, bytBLOBData, 0, bytBLOBData.Length)

---

par :

Code:

---

Dim bytBLOBData() As Byte = DirectCast(document.ExecuteScalar(), Byte())

---

et c'est ok. Pour les images en tout cas, pour les Pdf ça ne passe pas, mais une pictureBox est-elle capable d'afficher des pdf ? Je n'en suis pas sur ...

Bon alors exit le PictureBox vu qu'il n'affiche que des images et pas les pdf. A la place je vais utiliser un WebBrowser. Petite difficulté, je n'ai pas l'extension des fichiers enregistré dans la bdd, je ferais donc une analyse des 4 premiers octets de la donnée LOB afin de déterminer à quel type de fichier j'ai à faire et ensuite je ferais un code de ce genre :

Code:

---

1 2 3 4

Dim stmBLOBData As New MemoryStream(bytBLOBData) IO.File.WriteAllBytes("CheminFichier", bytBLOBData) WebBrowser1.Navigate("CheminFichier")

---

Ca marche en tout cas pour les Jpg

Merci ZenZiTone pour ton aide :-)