begin process at 2008 07 20 13:14:39
1 213 223 membres
140 nouveaux aujourd'hui
14 166 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ASP.NET - FONCTION DE PASSAGE D'UN FICHIER BINAIRE VERS UN TABLEAU DE BYTE


Information sur la source



Description

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

  • ' -----------------------------------------------------
  • 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
  • ' -----------------------------------------------------
' -----------------------------------------------------
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___)
    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS