ECRIRE OU LIRE UNE STRUCTURE DANS UN FICHIER BINAIRE

Imports System.Runtime.InteropServices

'===================================================================
'========= Fonctions de Lecture/Ecriture des structures  ===========
'===================================================================


  Private Function EcrirePerso(ByVal Perso As StruPersonne, ByVal CheminFichier As String) As Boolean

        Dim f As New IO.FileStream(CheminFichier , IO.FileMode.OpenOrCreate)
        Try
            EcrirePerso = True


            Dim vData(Marshal.SizeOf(Perso)) As Byte
            Dim Handle As GCHandle = GCHandle.Alloc(vData, GCHandleType.Pinned)
            Dim Pointer As IntPtr = Handle.AddrOfPinnedObject()
            Marshal.StructureToPtr(Perso, Pointer, False)
            Handle.Free()

            f.Write(vData, 0, vData.Length)

          
        Catch ex As Exception
            EcrirePerso = False
        Finally 'pour vb.net 2008 seulement, sinon débrouillez vous pour fermer le fichier! :p
            f.Close()
        End Try
    End Function

    Private Function LirePerso(ByVal CheminFichier As String) As Boolean
        LirePerso = True
        Try
            Dim vData() As Byte = IO.File.ReadAllBytes(CheminFichier)
            Dim Handle As GCHandle = GCHandle.Alloc(vData, GCHandleType.Pinned)
            Dim Pointer As IntPtr = Handle.AddrOfPinnedObject()
            Moi = DirectCast(Marshal.PtrToStructure(Pointer, GetType(StruPersonne)), StruPersonne)
            Handle.Free()
        Catch ex As Exception
            LirePerso = False
        End Try

    End Function



'===================================================================
'======================= Module Structures  ========================
'===================================================================


Imports System.Runtime.InteropServices
Public Module Structures
    Public Structure StruPersonne

        '-- Strings
        '-- Besoin de dimensionner avec <MarshalAs...
     
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
       Public NomMonFichier As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
        Public Nom As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
        Public Prenom As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
        Public Email As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
        Public Commentaires As String


        'Autres structures
      Public Adresse As Adresse
      Public Tel As Téléphone

     '-- Pas besoin de dimensionner avec <MarshalAs...
        
     'Integer
        Public ID As Integer

     'Boolean
        Public IsDead As Boolean
    
    End Structure

    Public Structure Adresse

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
        Public Rue As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
        Public Ville As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=50)> _
        Public Pays As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
        Public CodePostal As String

    End Structure

    Public Structure Téléphone
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
        Public Maison As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
        Public Portable As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
        Public Fax As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
        Public Travail As String
    End Structure