Extraire image resource vers fichier [Résolu]

Signaler
Messages postés
84
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
17 novembre 2008
-
Messages postés
84
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
17 novembre 2008
-
Bonsoir à tous,
J'utilise la formule suivante pour extraire les fichiers contenus dans les ressources de mon projet :

Public Sub ExtraireResource(ByVal Destination As String, ByVal NomResource() As Byte, ByVal Append As Boolean)
        My.Computer.FileSystem.WriteAllBytes(Destination, NomResource, Append)
End Sub

Mon problème est que le fichier "*.png" contenu dans mes ressources ne s'extrait pas et me provoque une erreur.

Pouvez m'aider ?

@+
greg38bj

1 réponse

Messages postés
84
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
17 novembre 2008

Bonjour à tous
Bon, je vois qu'il n'y a pas eu foule de réponse, alors je répond à ma question :

la solution pour extraire l'image, est de la convertir en un tableau de bytes

Public Function ImageToBytes(ByVal ResourceImage As Image) As Byte()
        If (ResourceImage IsNot Nothing) Then
            Dim bmp As New Bitmap(ResourceImage)
            Dim ms As New System.IO.MemoryStream()
            bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
            Dim buff As Byte() = ms.ToArray()
            ms.Close()
            ms.Dispose()
            Return buff
        Else
            Return Nothing
        End If
    End Function

ensuite, j'extrais ma resource :
Image est le nom de ma resource
Destination est le chemin du fichier de destination

If not system.io.file.exists(Destination) then  'on verifie que le fichier n'exite pas
Try
My.Computer.FileSystem.WriteAllBytes(Destination, ImageToBytes(My.Resources.Image), false) 'on extrait la resource Image
Catch ex As Exception

End Try

End if

@+
greg38bj