Discussion :

[BasicZX81]

Bonsoir a tous,
J'ai vraiment besoin de votre aide. Cela fait un moment que je tourne autour du problème et je n'arrive pas a sérialiser la classe ci-dessous en XML.
Si je supprime la ligne 'Me._ChildTasks.Add(Task)' la sérialisation fonctionne mais forcement il n'y a plus d'objets 'TaskBase' a serializer dans la liste.
Si je serialize chaque Objet TaskBase un par un (en dehors de la classe) ceux-ci se serializent correctement. (Ce sont rigoureusement les mêmes objet que j'ajoute lors du Add).

Le Message d'erreur n'est pas très parlant :

Erreur lors de la génération du document XML.

J'ai déjà sérialisé des List(Of T) mais jamais a l’intérieur d'une classe. Le fait qu'elle soit dans la classe pose t'il un problème ?
Je sèche complètement j'espère que vous pourrez m'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
<Serializable()>
Public Class TaskParent
    Private _ParentTaskName As String
    Private _ChildTasks As New List(Of TaskBase)
    Private _PProgress As Single
    Private _Statut As Statut
    Public Sub New()
 
    End Sub
    Public Sub New(ByVal ParentTaskName As String)
        Me._ParentTaskName = ParentTaskName
    End Sub
    Public Sub Add(ByVal Task As TaskBase)
        Me._ChildTasks.Add(Task)
        UpdateMe()
    End Sub
    Public Property ChildTasks() As List(Of TaskBase)
        Get
            Return _ChildTasks
        End Get
        Set(ByVal value As List(Of TaskBase))
            _ChildTasks = value
        End Set
    End Property
    Public ReadOnly Property PProgress() As Single
        Get
            Return _PProgress
        End Get
    End Property
    Public Property Statut() As Statut
        Get
            Return _Statut
        End Get
        Set(ByVal value As Statut)
            _Statut = value
            UpdateMe()
        End Set
    End Property
    Public Sub UpdateMe()
....
    End Sub
End Class

[BasicZX81]

Bon, il suffit que j’écrive pour avoir un début de solution :
TaskBase est une classe de base (MustInherit), si je remplace TaskBase par une classe dérivée ça fonctionne.
Reste a voir comment je peux modifier ma classe, peut-être en créant une liste spécifique pour chaque type dérivé mais y a t'il plus simple ?!

Code :

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

1
2
3
4
5
 
Dim Task1 as TaskDerivée
Dim List As New List(Of TaskBase)
List.Add(Task1)
SaveXmlData("D:\Tasks.xml", List)

[Pol63]

la sérialisation xml n'accepte pas tout

par contre quand tu as ton erreur assez générique tu as aussi des innerexception à regarder qui expliquent bien le problème

les list of avec plein de choses par exemple je suis pas sûr que ca passe (alors qu'en sérialisation binaire ca accepte, on a testé récemment (classe binaryformatter et mettre <serilizable> au dessus des classes à sérialiser))

[BasicZX81]

Merci beaucoup Pol63,
J'ai trouvé ceci a propos de la serialization des classes dérivées :
http://tlevesque.developpez.com/dotn...zation/#LIII-B
Je ne pourrais tester que ce soir mais il est fort probable que le problème vienne de là.

Je tiens beaucoup a la serialization XML, c'est quand même bien sympa de pouvoir vérifier le contenu des objets. mais par contre j'ai remarqué quelques contraintes liées a son utilisation (ou alors c'est moi qui ne sait pas bien m'en servir), comme l'obligation d'avoir un constructeur New sans arguments dans la classe a serializer et aussi l'obligation d'avoir des Propriétés "Non readOnly" sans quoi la propriété ne se serialize pas.

[Pol63]

mais par contre j'ai remarqué quelques contraintes liées a son utilisation (ou alors c'est moi qui ne sait pas bien m'en servir), comme l'obligation d'avoir un constructeur New sans arguments dans la classe a serializer et aussi l'obligation d'avoir des Propriétés "Non readOnly" sans quoi la propriété ne se serialize pas.

c'est le principe oui, à la lecture du fichier xml le désérializeur instancie la classe par réflection et cherche donc un new public sans paramètres (rien n'empêche d'avoir 2 new)
et les readonly c'est normal qu'il ne les sérialisent pas, par reflection là aussi il va écrire dans les propriétés les une après les autres, si pas de set pas de sérialisation
après là aussi il y a des combines, tu peux avoir une propriété masquée (browsable false, designerserialiazitionvisibility hidden) qui est utilisée par la propriété readonly

[BasicZX81]

Bonsoir,
Me voici de retour suite a mes essais, Ça fonctionne sans problème en ajoutant ces attributs dans ma classe de base 'TaskBase' :

Code :

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

1
2
<Xml.Serialization.XmlInclude(GetType(TaskProcess))>
<Xml.Serialization.XmlInclude(GetType(TaskThread))>

Merci beaucoup pour la réponse et aussi pour les infos complémentaires