Imagelist + listiview avec Image stockée en Bytes dans base MySQL

**Kar2013** · 13/03/2020, 08h26

Bonjour à tous,

Je stocke dans une base MYSQL des photos en Bytes (j'ai fait ce choix en connaissance de cause le nombre d'entrée étant limité, 300 lignes grand max)

Quand j'essaye de charger les bytes de la photo dans un listview j'ai des erreurs (impossible conversion en string).

L’objectif étant quand on sélectionne une ligne du listview les bytes sont convertis en image dans un picturebox.

Pouvez-vous svp me dire qu'est ce qui cloche dans mon code (chargement données dans listview) ?

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 CMD As New MySqlCommand("SELECT * FROM personnel", cnx)
            Using lecteur As MySqlDataReader = CMD.ExecuteReader()
 
                While lecteur.Read()
 
                    Dim NUM_LIGNE As String = lecteur("NUM_lIGNE")
                    Dim CIVILITE As String = lecteur("CIVILITE")
 
                    Dim NOM As String = lecteur("NOM")
 
 
                    Dim BYTE_PHOTO As Byte() = lecteur("PHOTO")
 
 
                    Me.ListView1.Items.Add(New ListViewItem(New String() {NUM_LIGNE, CIVILITE,NOM, BYTE_PHOTO}))
 
                End While
 
            End Using

Merci pour votre aide,

**Kar2013** · 14/03/2020, 09h54

Bonjour à tous,

Je continue mes tests sans trop de succès.

J'utilise les fonctions de conversion ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Public Function Convert_En_Donnees(ByVal myImage As Image) As Byte()
        Dim ms As New MemoryStream()
        myImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim myBytes(ms.Length - 1) As Byte
        ms.Position = 0
        ms.Read(myBytes, 0, ms.Length)
        Return myBytes
    End Function
 
    Public Function Convert_En_Image(ByVal data() As Byte) As Image
        Dim stream As New MemoryStream(data)
        Return Image.FromStream(stream)
    End Function

Le stockage se passe bien mais j'essaye de récupérer l'image en bytes dans une listview de maniere temporaire impossible.

Celà veut dire qu'il n'est pas possible de stoker des bytes() dans une listview ?

Merci pour ceux qui pourront m'apporter de l'aide

**youtpout978** · 14/03/2020, 14h09

Hello tu as peut être une réponse ici c'est en c#, dans ton cas il faut utiliser image frombyte je pense
https://www.developpez.net/forums/d9...ages-listview/

**Phil Rob** · 14/03/2020, 17h44

Bonsoir,

Les éléments de la liste peuvent être affichés de plusieurs manières différentes. Ils peuvent apparaître sous forme de grandes icônes (LargeImageList), de petites icônes (SmallImageList) ou de petites icônes dans une liste verticale (StateImageList). Les éléments peuvent aussi contenir des sous éléments comportant des informations relatives à l'élément parent.

C’est par l’affectation de la propriété View que se définit le mode d’affichage souhaité pour la ListView : Details, LargeImageList, SmallImageList et StateImageList.
Exemple : MaListView.View = View.LargeIcon.

J'ignore si cette info te permettra de résoudre ton problème mais c'est une piste à explorer ...

**Kar2013** · 15/03/2020, 10h00

Envoyé par youtpout978

Hello tu as peut être une réponse ici c'est en c#, dans ton cas il faut utiliser image frombyte je pense
https://www.developpez.net/forums/d9...ages-listview/

Merci beaucoup Youtpout978, c'est effectivement la solution par contre quand je charge dans mon listview, l'indexofKey de l'imagelist impossible la récupérer dans un picturebox avec l'index utilisé.
Le contrôle picturebox disparaît carrément au chargement.

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
 
'Au chargement du form avec procédure de connexion à la BDD
 
ImageList1.Images.Add(NUM_PHOTO, (ConvertToImage(lecteur("PHOTO"))))
ImageList1.Images.IndexOfKey(NUM_PHOTO)
 
'Chargement de l'index dans le listview
 
Me.ListView1.Items.Add(New ListViewItem(New String() {NUM_LIGNE, CIVILITE,PRENOM, ImageList1.Images.IndexOfKey(NUM_PHOTO)}))
 
'Depuis événement  clique sur ligne du  listview
 
Me.PictureBox1.Image = ImageList1.Images("4")    'j'ai aussi testé  ImageList1.Images.Item("4")  même résultat
 
'j'ai mis le nombre  4 en dur juste pour tester, je remplacerai par une variable par la suite

Envoyé par Phil Rob

Bonsoir,
C’est par l’affectation de la propriété View que se définit le mode d’affichage souhaité pour la ListView : Details, LargeImageList, SmallImageList et StateImageList.
Exemple : MaListView.View = View.LargeIcon.
J'ignore si cette info te permettra de résoudre ton problème mais c'est une piste à explorer ...

Merci Phil Rob pour avoir pris le temps de répondre
mais pour le moment, je ne cherche pas afficher la photo dans listview juste à stoker l'info récupérer dans la base Mysql (en bytes) puis l’afficher dans un picturebox en fonction de la ligne du listview selectionnée.

**MABROUKI** · 18/03/2020, 21h51

Kar2013
mais pour le moment, je ne cherche pas afficher la photo dans listview juste à stoker l'info récupérer dans la base Mysql (en bytes) puis l’afficher dans un picturebox en fonction de la ligne du listview selectionnée.

le code exemple qui suit récupère la photo ,et l'affiche dans le ListView et le PicBox car abondance de biens ne nuit pas :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Imports System.Data.SqlClient
Imports System.IO
 
Public Class Form3
    Private strCon As String = My.Settings.ChaineDeConnexion
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        ListView1.Columns.Add("Column0", -2, HorizontalAlignment.Left)
        ListView1.Columns.Add("Column1", -2, HorizontalAlignment.Left)
        ListView1.Columns.Add("Column2", -2, HorizontalAlignment.Left)
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ImageList1.Images.Clear()
        Using conn As New SqlConnection(strCon)
 
            conn.Open()
            Using cmd As New SqlCommand("SELECT NUM_LIGNE,NOM ,PHOTO  FROM ALBUM", conn)
 
                Using rd As SqlDataReader = cmd.ExecuteReader()
                    Dim ndxImage As Integer = 0
                    While rd.Read()
 
                        Dim Num_Ligne As String = rd("NUM_lIGNE").ToString()
                        Dim Nom As String = rd("NOM").ToString()
                        Dim Photo_Bytes() As Byte = New Byte(0) {}
                        Photo_Bytes = CType(rd("PHOTO"), Byte())
                        Dim pic As Image
                        Using ms As New MemoryStream(Photo_Bytes)
                            pic = Image.FromStream(ms)
                        End Using
                        ImageList1.Images.Add(pic)
 
                        Dim lvitem As New ListViewItem()
                        lvitem.ImageIndex = ndxImage 
                        lvitem.SubItems.Add(rd("NUM_LIGNE").ToString)
                        lvitem.SubItems.Add(rd("NOM"))
                        Me.ListView1.Items.Add(lvitem)
                        ndxImage += 1
                    End While
 
                End Using ' close reader
            End Using ' close cmd
        End Using ' close conn
 
 
        ListView1.SmallImageList = ImageList1
 
    End Sub
 
    Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        If (ListView1.SelectedItems.Count > 0) Then
            Dim lvitem As ListViewItem = ListView1.SelectedItems(0)
 
            PictureBox1.Image = ImageList1.Images(lvitem.Index)
        End If
 
 
    End Sub
End Class

Comment cette ligne si tu ne veux pas voir la photo dans ListView:

Code :

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

1
2
3
 
 
'  lvitem.ImageIndex = ndxImage

bon code...

**Kar2013** · 21/03/2020, 20h26

Bonjour à tous,

MABROUKI merci beaucoup pour ton intervention cela fonctionne par contre la photo remonte très floue.

Nom : test_appli.png
Affichages : 504
Taille : 48,0 Ko

Nom : test_appli.png
Affichages : 504
Taille : 48,0 Ko

Une idée sur le problème ?

**MABROUKI** · 21/03/2020, 23h52

essaye ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
                        'Dim pic As Image
                        'Using ms As New MemoryStream(Photo_Bytes)
                        '    pic = Image.FromStream(ms)
                        'End Using
                        'ImageList1.Images.Add(pic)
 
                        Dim bit As Bitmap
                        Using ms As New MemoryStream(Photo_Bytes)
                            bit = New Bitmap(ms)
                        End Using
                        ImageList1.Images.Add(bit)

**Kar2013** · 22/03/2020, 08h14

Merci MABROUKI, je viens de tester malheureusement c'est toujours pareil.

**Kar2013** · 23/03/2020, 10h45

Bonjour à tous,

Il semblerait que imagelist compresse les images de façon irréversible

J'ai pensé à effectuer un SELECT dans la base de l’utilisateur sélectionné en différé du chargement du listview.

Mais là, il faut parcourir toute la base MySQL avec un WHILE et alourdir considérablement le temps de réponse

Ou est ce que je me trompe ?

Merci,

**youtpout978** · 23/03/2020, 22h31

n'utilise pas l'image qui est dans ta listview mais celle précédemment récupérer, quand tu fais ta lecture en bdd tu stock tes données dans un objet , et tu boss avec cette liste d'objet plutôt qu'affecter directement à ta list view tes données, c'est pour ça que la poo est faite après tout.

**MABROUKI** · 23/03/2020, 23h47

Envoyé par Kar2013

Bonjour à tous,

Il semblerait que imagelist compresse les images de façon irréversible

J'ai pensé à effectuer un SELECT dans la base de l’utilisateur sélectionné en différé du chargement du listview.

Mais là, il faut parcourir toute la base MySQL avec un WHILE et alourdir considérablement le temps de réponse

Ou est ce que je me trompe ?

Merci,

Euh non,il resize la taille image:cela a pour effet dans GDI+ de changez la résolution.
Pour contourne ce problème,il faut affecter une taille d'image(max=256 pour un ImageList) à ImageList

Code :

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

1
2
3
 
  PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
ImageList1.ImageSize = New Size(256, 256)

code déjà donné revu :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 
Imports System.Data.SqlClient
Imports System.IO
 
Public Class Form3
    Private strCon As String = My.Settings.BDPHOTOSConnectionString
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        ListView1.Columns.Add("Column0", -2, HorizontalAlignment.Left)
        ListView1.Columns.Add("Column1", -2, HorizontalAlignment.Left)
        ListView1.Columns.Add("Column2", -2, HorizontalAlignment.Left)
 
        '----------AJOUTER ----------
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ImageList1.Images.Clear()
 
        '----------AJOUTER ----------
        ImageList1.ImageSize = New Size(256, 256)
        Using conn As New SqlConnection(strCon)
 
            conn.Open()
            Using cmd As New SqlCommand("SELECT NUM_LIGNE,NOM ,PHOTO  FROM ALBUM", conn)
 
                Using rd As SqlDataReader = cmd.ExecuteReader()
                    Dim ndxImage As Integer = 0
                    While rd.Read()
 
                        Dim Num_Ligne As String = rd("NUM_lIGNE").ToString()
                        Dim Nom As String = rd("NOM").ToString()
                        Dim Photo_Bytes() As Byte = New Byte(0) {}
                        Photo_Bytes = CType(rd("PHOTO"), Byte())
                        Dim pic As Image
                        Using ms As New MemoryStream(Photo_Bytes)
                            pic = Image.FromStream(ms)
                        End Using
                        ImageList1.Images.Add(pic)
 
 
                        Dim lvitem As New ListViewItem()
                        lvitem.ImageIndex = ndxImage ' commente cette ligne si tu ne veux pas voir la photo dans ListView
                        lvitem.SubItems.Add(rd("NUM_LIGNE").ToString)
                        lvitem.SubItems.Add(rd("NOM"))
                        Me.ListView1.Items.Add(lvitem)
                        ndxImage += 1
                    End While
 
                End Using ' close reader
            End Using ' close cmd
        End Using ' close conn
 
        ListView1.SmallImageList = ImageList1
 
    End Sub
 
    Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        If (ListView1.SelectedItems.Count > 0) Then
            Dim lvitem As ListViewItem = ListView1.SelectedItems(0)
            PictureBox1.Image = ImageList1.Images(lvitem.Index)
        End If
 
 
    End Sub
End Class

bon code....

Imagelist + listiview avec Image stockée en Bytes dans base MySQL

VB.NET

Discussions similaires

Partager

Partager