|
 Trouver une ressource
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 !
 ECRIRE OU LIRE UNE STRUCTURE DANS UN FICHIER BINAIRE
 Information sur la source
 Description
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)
 Source
- 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
-
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
 Conclusion
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.
 Historique
- 05 avril 2008 02:28:51 :
- Erreur lors de la création
- 05 avril 2008 10:52:14 :
- Réctification
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
XML et VB [ par D2000 ]
Salut,Je recois des fichiers XML avec une certaine structure par des clients.Je dois sauver ces infos dans une DB, mais avant, je dois valider la stru
Structure fichier midi [ par miky ]
Est-ce que qu'un pourrais me dire comment sont fait les fichiers midi?Afin de pouvoir reccupérer les infos des fichiers midi: auteur, titre chanson,..
Cryptage de fichiers executables [ par Clovis ]
Salut! Voila mon pb, j'ai fait un logiciel de cyptage, il code bien les fichiers texte, mais quand on passe aux fichiers executables ou meme aux image
fusion binaire [ par sebsoft ]
est ce possible de fusionner deux fichiers en un ?si oui, comment faire pour recuperer les fichiers initiaux?mercisebsoft
je veux convertir un fichiers WAV en Binaire [ par Badrou79 ]
salut je veut convertir un fichier WAV en binaire pour compare a un autre Fichier qq peut m'aideé de faire ça et merci a tousBadroufun
ecrire valeur binaire dans base de registre en vbs [ par quarkdown ]
set wscr=CreateObject("WScript.Shell")wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\properties",C0010000ff00000000000000000000000f0000003703
solution la plus rapide pour ecrire et lire un gros volume de donees [ par babas14 ]
bonjour,je cherche la meilleure solution pour lire et ecrire de nombreuse donees a partir de vb ou vba puis les recuperer dans une feuille excel.j'ai
Aide pour ecrire dans un fichier [ par WolfAryx ]
Bonjours, J'ai créé un programme qui enregistre des données dans un fichiers text. Ces données sont sous cette forme :"Donné""DonnéB""DonnéC" Je vou
Enregistrement structure dans fichier binaire en .Net [ par Djin2004 ]
Bonjour,Je dispose d'une structure contenant environ 150 variables et j'aimerais savoir s'il est possible en VB.net de l'enregistrer en une seule fois
Ecrire en binaire [ par gorby69 ]
Salut,J'aimerais écrire un fichier en binaire mais pas avec la commande classique:open fichier for binary write as #1mais en vrai binaire, avec des 0
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|