Dans le cas d'utilisation de Classe d'objet complexe, certains paramêtres peuvent être des fichiers que l'on souhaite pouvoir passer avec l'objet (cas d'un WebService par exemple).
Ces deux fonctions permettent donc de passer d'un fichier Binaire vers un Tableau de Byte et inversement.
Source / Exemple :
' -----------------------------------------------------
Public Shared Function FileToByteArray(ByVal CheminFichier As String) As Byte()
' Fonction qui permet de passer d'un Fichier vers un tableau de Byte
Dim fsData As FileStream
Dim xTemp() As Byte
fsData = New FileStream(CheminFichier, FileMode.Open, FileAccess.Read)
Dim rData As New BinaryReader(fsData)
xTemp = rData.ReadBytes(fsData.Length)
rData.Close()
fsData.Close()
Return xTemp
End Function
' -----------------------------------------------------
Public Shared Function ByteArrayToFile(ByVal fichier As Byte(), ByVal CheminFichier As String) As String
' Fonction qui permet de passer d'un tableau de Byte vers un Fichier
Dim objFileStream As FileStream
objFileStream = New FileStream(CheminFichier, FileMode.Create, FileAccess.Write)
objFileStream.Write(fichier, 0, fichier.Length)
objFileStream.Close()
Return "ok"
End Function
' -----------------------------------------------------
Conclusion :
Bon Coding
Romelard Fabrice (Alias F___)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.