SERIALISATION/DESERIALISATION D'UNE STRUCTURE

Commentaire de Willi le 12/01/2007 12:20:18 administrateur CS

Je ne sais pas quelle version de vb dont tu disposes, je te conseilles d'en faire une classe générique pour Serialier/déserialiser un objet/une structure.

Bonne continuation

Commentaire de Afyn le 12/01/2007 17:36:35

Et si un fichier binaire est structuré ? (comme un fichier Midifile par exe ...) est ce qu'on peut le lireplus facilement ?

Afyn - Navedac

Commentaire de _Fabien le 13/01/2007 19:18:28

Afyn, je ne sais pas ; je débute. A toi de creuser la question.

fdiedler2000 : ah bon ! Quand je sélectionne le code, il ne me prend pas les lignes. D'ailleurs, pleins de codes sont présentés comme le mien.

J'utilise IE7. Essayé aussi avec FireFox 2.0.0.1, pas de soucis non plus.

Willy, pour l'instant, je n'ai pas le temps et suis-je capable de le faire ? Je dois poursuivre mon projet perso pour mieux me former au VB.Net, mais si quelqu'un veut le faire, pas de problème.

Commentaire de Kite37 le 14/01/2007 13:03:04

je me pose une question : si dans le fichier tu sérialise plein de données, comment trouver celle voulue, ou toute les récupérer? car d'après ton code tu n'en récupère qu'une ..

moi par exemple, pour un jeu, je veux sérialiser la map. Deux choix s'offre a moi :
-Sérialiser chaque case de la map une par une
-Sérialiser directement la map avec le tableau de case.

Quel serait le choix le plus judicieux?
et est-ce possible de sérialiser des tableaux d'une structure différente de celle d'origine?
(ici, la structure map, ou la classe map, serait sérialisée, mais les "cases" apparaissant dans le tableaux appartiendrait a une autre structure..comment faire?)

Et une dernière question, est-il possible de faire de meme avec des classes?

Merci d'avance pour les réponses ^ ^

Commentaire de Malkuth le 15/01/2007 13:33:45

PS : C'est tous a fais possible pour les classes , pour ce qui est de sérialser des tableux, le plus simple est de mettre le tableau dans une collection et de sérialiser la collection, lors de la désérialisation tu récupère une collection avec tous tes objets dedans. ex :

    'Création de la collection
    Dim duree As New TimeSpan(1000000000000)
    Dim HighScores as new System.collections.generic.List(of HighScore)(
        new HighScore(){
            New HighScore("Fabien",15,70.5,duree),
            New HighScore("Casy",13,80.33,duree),
            New HighScore("Willy",13,70.67,duree),
            New HighScore("X",11,98.5,duree),
            New HighScore("CharlesRacaud",10, 92.15,duree),
        }
    );


    'Sérialisation(Autres procédure)
    Dim serializer As Runtime.Serialization.Formatters.Binary.BinaryFormatter = _
          New Runtime.Serialization.Formatters.Binary.BinaryFormatter

    Dim stream As FileStream = New FileStream(fichier, FileMode.Create)
    serializer.Serialize(stream, HighScores)
    stream.Close()

    'désérialisation(Autres procédure)
    Dim deserializer As Runtime.Serialization.Formatters.Binary.BinaryFormatter = _
                    New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    Dim stream As FileStream = New FileStream(fichier, FileMode.Open)
    Dim HighScores as System.collections.generic.List(of HighScore)= deserializer.Deserialize(stream)
    stream.Close()
    
Ca résoud aussi le problème de savoir quand s'arreter de lire le fichier réponse : c'est pas mon problème c'est la désérialisation de la collection qui s'en occupe.

donc le mieux c'est de sérialiser un objet unique
par example pour la map d'un jeu on crée un classe de ce genre :

Classe MAP
    Chaine Nom
    Nombre Version
    List(Of Block) Bloks
Fin Classe

Classe Block
    Image ImageFond
    int CoordX
    int CoordY
Fin Classe

et lors de la sérialisation d'un objet MAP, les Objet Block sont sérialisé de manière transparente et vice versa pour la déserialisation toutefois tous les objet de la hiérarchie doivent être sérializable (sauf avec les attribut voir msdn).

Commentaire de _Fabien le 16/01/2007 10:20:14

fdiedler2000, je sélectionne tout à la souris puis Ctrl+C ou Edition->Copier.

Intéressant Malkuth !

Kite37, non ! Dans mon code, je les récupère une par une séquentiellement. Ensuite est-ce possible de récupérer ou modifier directement que la 3ème par exemple ? Sans doute. Faut voir les méthodes proposées.

Commentaire de _Fabien le 16/01/2007 13:05:06

Pour fdiedler2000 :

Imports System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
Imports System.IO
  
Public Module Module1
  
  Dim nom_fichier As String = "test.bin"
  
  <Serializable()> _
  Public structure HighScore
  
  ' attributs
  Private _pseudo As String
  Private _score As Integer
  Private _reussite As Double
  Private _duree_jeu As TimeSpan
  
  ' propriétés
  Public Property pseudo() As String
  Get
    Return _pseudo
  End Get
  Set(ByVal value As String)
    _pseudo = value
  End Set
  End Property
  
  Public Property score() As Integer
  Get
    Return _score
  End Get
  Set(ByVal value As Integer)
    _score = value
  End Set
  End Property
  
  Public Property reussite() As Double
  Get
    Return _reussite
  End Get
  Set(ByVal value As Double)
    _reussite = value
  End Set
  End Property
  
  Public Property duree_jeu() As TimeSpan
  Get
    Return _duree_jeu
  End Get
  Set(ByVal value As TimeSpan)
    _duree_jeu = value
  End Set
  End Property
  
  ' Constructeur
  Public Sub New(ByVal __pseudo As String, ByVal __score As Integer, _
                 ByVal __reussite As Double, ByVal __duree_jeu as TimeSpan)
    _pseudo = __pseudo
    _score = __score
    _reussite = __reussite
    _duree_jeu = __duree_jeu
  End Sub
  
  End Structure
  
  
  Public sub Serialize(ByVal struct As HighScore, ByVal fichier As String)
  
    Dim serializer As Runtime.Serialization.Formatters.Binary.BinaryFormatter = _
          New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    Dim stream As FileStream
        
    'If struct Is Nothing Then Return False
    If Not File.Exists(fichier) Then
      stream = New FileStream(fichier, FileMode.Create)
    Else
      stream = New FileStream(fichier, FileMode.Append)
    End If
  
    serializer.Serialize(stream, struct)
    stream.Close()
  
  End sub
  
  
  Public Function Deserialize(ByVal fichier As String) As Boolean
  
    Dim deserializer As Runtime.Serialization.Formatters.Binary.BinaryFormatter = _
                    New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    Dim stream As FileStream
    Dim result As HighScore
  
    If Not File.Exists(fichier) Then
      return false
    else
      stream = New FileStream(fichier, FileMode.Open)
  
      While True
        Try
          result = deserializer.Deserialize(stream)
          Console.WriteLine("Pseudo : {0}, score : {1} bonnes réponses, reussite : {2}%, temps : {3}.", result.pseudo , result.score, result.reussite, result.duree_jeu)
          stream.Flush
        Catch
          Exit While
        End Try
      End While
  
      stream.Close()
      console.ReadLine
      return true
    End If
    
  End Function
  
  Sub Main()
    ' TimeSpan exprime une durée
    Dim duree As New TimeSpan(1000000000000)
    
    Serialize(New HighScore("Fabien",15,70.5,duree), nom_fichier)
    Serialize(New HighScore("Casy",13,80.33,duree), nom_fichier)
    Serialize(New HighScore("Willy",13,70.67,duree), nom_fichier)
    Serialize(New HighScore("X",11,98.5,duree), nom_fichier)
    Serialize(New HighScore("CharlesRacaud",10, 92.15,duree), nom_fichier)
  
    If not Deserialize(nom_fichier) Then
      Console.WriteLine("Le fichier n'existe pas.")
    End If
  
  End Sub
  
End Module

Commentaire de Kite37 le 16/01/2007 18:41:22

pendant que j'y suis, une toute dernière question (promis) :

peut-on sérialiser des images? par exemple si j'associes une image a une case, je peuxla sérialiser pour pouvoir la load directement par la suite?

merci pour les réponses déja postées en tout cas :) et bon travail _Fabien, tout de même :)

Commentaire de Kite37 le 18/01/2007 19:24:09

j'ai fait quelques tests rapide avec des classes d'essaie tappées en 2 minute, et mettant des images et compagnie, et bien tout a l'air de marcher parfaitement !

Merci beaucoup pour ton aide malkuth, et a toi aussi _fabien pour avoir posté ce code qui me permettra surement de réaliser quelques chose de très bien pour un prochain jeu :)

@ bientot, cordialement, KiTe

Commentaire de _Fabien le 02/02/2007 17:54:38

J'ai transformé ma structure en classe et l'ai mise dans uun fichier DLL :

http://www.vbfrance.com/code.aspx?ID=41347

Commentaire de Malkuth le 26/02/2007 19:58:10

Je dirait, qu'il faut que tu créé ta classe sérializable dans une DLL(type de projet bibliothèque de classe), ensuite, dans tes deux projets, tu ajoute la référence vers le projet ou la DLL.

Commentaire de Malkuth le 27/02/2007 15:49:48

Je ne voit pas se qui t'empêche d'utilisé System.Drawing dans une DLL, il faut juste l'ajouter dans les référence du projet de bibliothèque(click droit sur le projet, ajouter une référence onglet .NET, System.Drawing ;-) ).