ECRIRE OU LIRE UNE STRUCTURE DANS UN FICHIER BINAIRE

---

Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

J'ai cherché un peu mais à ce qu'il me semble, si on souhaite enregistrer une structure dans un fichier binaire (au format .personnalisé) , la meilleur solution reste d'utiliser les méthodes Marshal.StructureToPtr et Marshal.PtrToStructure.
Vous trouverez ces méthodes dans 'imports System.Runtime.InteropServices'.

Mais il me semble aussi qu'il faut pour cela dimensionner chaque structure correctement afin que 'Marshal' sache la taille de votre structure.

Si votre structure ne contient que des valeurs fixes comme des 'integer' , 'double', 'boolean' etc, c'est bon, vous pouvez dimensionner votre structure normalement sans trop vous soucier.
Si vous utilisez des string dans vos structures, il faut les limiter à une taille fixe (voir la définition de la structure 'StruPersonne' ci-après)

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

Tout ceci reste a confirmer, il y a peut être une façon de créer des fichiers de taille non fixe. si vous avez trouvé dites moi ca m'intéresse.

05 avril 2008 02:28:51 :

Erreur lors de la création

05 avril 2008 10:52:14 :

Réctification

• CALCUL DE RÉSISTANCES
• GERER UN SERVICE - FOLDING FROM TRAY
• IMPORTER UNE ASSEMBLY (DLL OU EXE) .NET ET NAVIGUER SES MEMBRES
• REDUIRE DES FENETRES DANS LA BARRE DE TACHES EN VB.NET
• PROCÉDURE STOCKÉE

• ACCESS TO ( XML,EXCEL )
• SUPPRESSION DE CERTAINS FICHIERS DANS UN RÉPERTOIRE PARTICULIER ET RÉCURSIVEMENT DANS SES SOUS-RÉPERTOIRES, CRÉÉS/MODIFIÉS/ACCÉDÉS A UNE CERTAINE DATE-VBS
• SÉRIALISATION/DÉSÉRIALISATION BINAIRE D'UNE CLASSE
• SERIALISATION/DESERIALISATION D'UNE STRUCTURE
• LIRE/ECRIRE DANS DES CHAMPS BINAIRES