Discussion :

[fuhraih]

Bonjour,
j'essaie de sérialiser un ArrayList d'objets. Mais lorsque je désérialise, ça ne marche pas. Je me retrouve avec des objets null.
Voici le code pour la sérialisation :

Code :

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

1
2
3
4
5
6
7
8
Dim liste AsNew ArrayList
liste.Add(poste1)
liste.Add(poste2)
Dim s As Stream = File.Create("postes.bin") 
Dim b As BinaryFormatter = New BinaryFormatter
b.Serialize(s, liste)s.Close()

et la désérialisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim s As Stream
Dim b As BinaryFormatter
s = New FileStream("postes.bin", FileMode.Open, FileAccess.Read, FileShare.Read)
b = New BinaryFormatter
Dim liste As ArrayList = DirectCast(b.Deserialize(s), ArrayList)
poste1 = DirectCast(liste.Item(0), Poste)
poste2 = DirectCast(liste.Item(1), Poste)
s.Close()

C'est par la suite quand j'utilise la variable poste1 (par ex) que l'erreur apparait.
Quelqu'un voit-il l'erreur?

[neguib]

Et bien commençons par la fin:
As-tu débugger pas à pas ta méthode de désérialisation et récupérer quelquechose pour liste, post1 et poste2

[fuhraih]

liste marche, puisqu'en dessous je fais un liste.item(0) qui passe.
Par contre apres un poste1.toString() ne marche pas...
Ce serait le Cast de la désérialisation?

[neguib]

franchement je ne vois pas le lien avec ce que tu me réponds et

...
Je me retrouve avec des objets null...

Comme tu es en VB.Net, si tu ne l'a déjà fait met en entête de ta page de code

Code :

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

1
2
Option Explicit On
Option Strict On

[fuhraih]

Au niveau de la désérialisation:
liste contient 4 objets Nothing

C'est donc la sérialisation qui ne fonctionne pas...

[fuhraih]

En fait la sérialisation se fait à l'arrêt d'une apli ASP (méthode Application_End).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim liste As New ArrayList()
liste.Add(poste1)
liste.Add(poste2)
liste.Add(poste3)
liste.Add(poste4)
Dim s As Stream
s = File.Open("postes.bin", FileMode.Create) 
Dim b As BinaryFormatter = New BinaryFormatter()
b.Serialize(s, liste)
s.Close()

La méthode Application_Error() est appelée après la ligne :

Code :

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

Dim b As BinaryFormatter = New BinaryFormatter()

Maintenant je sais où est l'erreur. Mais c'est quoi l'erreur?

[fuhraih]

J'ai trouvé la solution : c'était ma classe Poste qui n'était pas bonne.
Quelle différente y a-t-il entre :

Code :

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

<Serializable()> Public Class

et

Code :

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

<SerializableAttribute()> Public Class

?

[bilou972]

up,
je travaille en c# mais j'aimerais bien savoir et éventuellement adapter à mon code.

[SirJulio]

J'ai trouvé la solution : c'était ma classe Poste qui n'était pas bonne.
Quelle différente y a-t-il entre :

Code :

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

<Serializable()> Public Class

et

Code :

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

<SerializableAttribute()> Public Class

?

Normalement, aucune. Le compilateur sait reconnaitre un attribut meme si tu omets le suffixe "-Attribute".