Discussion :

[Salihou]

Bonjour à tous.
Voila, je suis débutant en VB.Net.
Je développe une application qui fait le lien entre une image et les informations concernant une personne; Dans ma BD access j'ai un champ photo et nom. Le champ photo est de type Objet OLE dans lequel je stocke les photo en binaire. Le problème est que je n'arrive pas à restituer les données binaires stockées dans ma db dans un picturebox que j'ai nommé pb_photo.
La fonction qui me permet de convertir les fichier image en binaire est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function ConvImage(ByVal formulaire As OpenFileDialog) As Byte()
        On Error Resume Next
 
        Dim oFileStream As System.IO.FileStream
        Dim tabImage As Byte()
 
        tabImage = Nothing
        oFileStream = CType(formulaire.OpenFile(), System.IO.FileStream)
        ReDim tabImage(CInt(oFileStream.Length))
        oFileStream.Read(tabImage, 0, CInt(oFileStream.Length))
        Return tabImage
End Function

[tomlev]

Tu peux faire comme ça :

Code :

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

1
2
3
4
5
Public Function LoadImage(ByVal bytes As Byte()) As Image
    Using ms As New MemoryStream(bytes)
        Return Image.FromStream(ms)
    End Using
End Function

Et dans ta première fonction, tu peux simplifier en utilisant la méthode File.ReadAllBytes (qui prend en paramètre le nom du fichier et renvoie un tableau de byte)

Au fait, n'utilise JAMAIS "On Error Resume Next". Cette instruction n'a aucun sens : il y a une erreur, mais on s'en fout, on continue comme si de rien n'était... ce qui va provoquer une autre erreur, qu'on va aussi ignorer, ce qui va causer une autre erreur, et ainsi de suite... jusqu'à la fin de la méthode. A la fin, ta méthode n'aura pas fonctionné et te renverra n'importe quoi, et tu n'auras aucune indication du pourquoi... un vrai cauchemar pour le débogage

Utilise plutôt la gestion d'exception avec Try/Catch. Intercepte les erreurs que tu peux gérer (et seulement celles-là). Et ne laisse jamais un bloc Catch vide : ça revient à ignorer l'erreur, ce qui ne sert généralement à rien et rend plus difficile le débogage