Discussion :

[Jean-Marie Grave]

Bonjour Madame, Monsieur.

J'aimerais savoir s'il existe en Vb 2010 un moyen de convertir une structure en tableau d'octets, sans utiliser les instructions FileOpen, FilePut, FileGet et FileClose, lesquelles m'a-t-il semblé ne sont guère en odeur de sainteté chez les puristes de Vb.net.

Avec mes remerciements anticipés

[tomlev]

J'aimerais savoir s'il existe en Vb 2010 un moyen de convertir une structure en tableau d'octets

Oui, mais sous quelle forme exactement ?

Si tu n'as pas de contrainte sur la disposition exacte en mémoire, tu peux utiliser la sérialisation binaire :

Code :

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

1
2
3
4
5
6
7
8
9
Function ToByteArray(ByVal obj As Object) As Byte()
 
    Dim formatter As New BinaryFormatter()
    Using ms As New MemoryStream()
        formatter.Serialize(obj, ms)
        Return ms.ToArray()
    End Using
 
End Function

Si tu veux que les données soient disposées en mémoire comme dans une structure C, tu peux utiliser le marshalling (qui sert normalement à l'interopérabilité avec du code natif). Il faut mettre un attribut sur la structure pour que ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<StructLayout(LayoutKind.Sequential)>
Structure Foo
    Public X As Integer
    Public Y As Integer
End Structure
 
Function ToByteArray(Of T As Structure)(ByVal obj As T) As Byte()
    Dim size As Integer = Marshal.SizeOf(GetType(T))
    Dim ptr = Marshal.AllocHGlobal(size)
    Marshal.StructureToPtr(obj, ptr, False)
    Dim bytes(size - 1) As Byte
    Marshal.Copy(ptr, bytes, 0, size)
    Return bytes    
End Function

(la fonction est générique pour pouvoir supporter n'importe quelle structure)

sans utiliser les instructions FileOpen, FilePut, FileGet et FileClose, lesquelles m'a-t-il semblé ne sont guère en odeur de sainteté chez les puristes de Vb.net.

Effectivement ces instructions sont un héritage de VB6, elles ne sont présentes dans VB.NET que pour faciliter le portage de code VB6 existant vers .NET.

[Jean-Marie Grave]

Merci Monsieur Levesque.

Je pense que j'adopterai votre seconde solution. Encore faudra-t-il que j'étudie la sérialisation : mes 72 ans à l'état civil ne me donnent que quelques jours en Vb 2010.

Encore merci.