Singleton / durée de vie d'une instanciation declasse

Version imprimable

2 pièce(s) jointe(s)

Bonjour,
J’aimerais gérer les paramètres par défaut de mon appli, j’ai vu que cela était possible en gérant les my.settings, mais j’aimerais le faire avec un fichier dédié
Je rencontre un pb de durée de vie de ma classe Singleton, sûrement du à mon ignorance donc vous remercie par avance de m’aider à corriger mes lacunes

Grâce à l’excellent Tuto de Philippe Lasserre , j’ai crée une classe singleton (voir image 20130225-10)
J’ai crée un Form pour modifier/enregistrer ces paramètres via Serialize/Deserialize

Au démarrage du Form principal, j’instancie cette classe et en charge les valeurs
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim PC As ParametreConfig = ParametreConfig.getInstance Public Sub ChargementParametreConfig() Call BinaryDeSerialize() LbLMessage1.Text = "Chargement effectué des paramétres de configuration ! " & PC.Exemple End Sub Private Sub BinaryDeSerialize() Dim Fichier As String = "ParametreConfig.bin" If Not File.Exists(Fichier) Then MessageBox.Show("Fichier de configuration non trouvé !" & vbLf & "Veuillez le créer dans le Menu : Utilitaires / Général !") Exit Sub End If Dim Deserializer As New BinaryFormatter Dim Stream As FileStream = New FileStream(Fichier, FileMode.Open) PC = CType(Deserializer.Deserialize(Stream), ParametreConfig) Stream.Close() End Sub
Les données sont bien présentes au chargement du Form principal

Je voudrais maintenant utiliser ces paramétres dans d’autres Form, sans avoir à les recharger en les récupérant dans l’instance en cours (Form principal toujours ouvert)

Pour mes essais, j’ai donc essayé à l’ouverture d’un autre Form:

Code:

MessageBox.Show("Parametre chargé : " & ParametreConfig.getInstance.Exemple.ToString)

Mais aussi
Code:

1 2 3 Dim PC As ParametreConfig = ParametreConfig.getInstance Pc.Exemple = ParametreConfig.getInstance.Exemple MessageBox.Show("Parametre chargé : " & PC.Exemple.ToString)
L’intellisense ne me signale pas d’erreur, mais l’exécution me lève une erreur (voir image 20130225-11). Je ne peux évidemment pas recréer une nouvelle instance par new (Singleton)
Si je recharge (deserialize) la classe dans le Form, alors plus de pb, mais ce n’est pas le but !
Il y a forcément quelque chose que je n’ai pas compris dans la durée de vie de l’instance de ma classe, Singleton ou serialize/deserialize mais je ne vois pas ou !
Par avance merci de vos lumières
Bertrand

25/02/2013, 13h34
Pol63

pas de soucis sur le singleton
par contre si exemple vaut nothing, pc.exemple.tostring plante, car nothing.tostring ce n'est pas possible

enfin faire .ToString sur un string c'est totalement inutile ...
25/02/2013, 13h57
105rn2

Re et merci pour la réponse
J'ai corrigé ma bévue en enlevant le Tostring !!
Lors du chargement du Form principal, j'affiche dans un label le PC.exemple sans pb (la classe est donc instanciée et chargée)
Lors du chargement de mon autre Form, j'ai ajouté :

Code:

MessageBox.Show("Paramétre chargé : " & ParametreConfig.getInstance.Exemple)

et j'obtiens (sans erreur maintenant) dans ma messagebox "Paramétre chargé :" sans rien ! comme si mon instance avait disparu !
Tant que le Form principal n'est pas fermé, je croyais qu'elle devait toujours être présente ??
Bertrand
25/02/2013, 15h20
Pol63

mets un point d'arret sur GetInstance

si instance vaut nothing c'est un problème dans ton code de singleton
si c'est la même instance qui est retournée, c'est que exemple a été modifié entre temps
(si exemple est une propriété tu peux mettre un point d'arret dans le set pour voir d'où)

2 pièce(s) jointe(s)

Re, Re
J'ai mis un point d’arrêt au chargement du Form principal
J'obtiens bien les données mais si je clique sur Instance, il n'y a rien dedans : (Image 20130225-12)
J'ai aussi mis un autre point d'arrêt au chargement du Form secondaire et la PC est nothing : (Image 20130225-13)

Peut être est qu'il me manque une "connexion" entre la classe désérialisée et mon instance de Singleton ?
Dans le chargement de mon Form Principal, j'ai mis :
Code:

1 2 Dim PC As ParametreConfig = ParametreConfig.getInstance Call BinaryDeSerialize()
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub BinaryDeSerialize() Dim Fichier As String = "ParametreConfig.bin" If Not File.Exists(Fichier) Then MessageBox.Show("Fichier de configuration non trouvé !" & vbLf & "Veuillez le créer dans le Menu : Utilitaires / Général !") Exit Sub End If Dim Deserializer As New BinaryFormatter Dim Stream As FileStream = New FileStream(Fichier, FileMode.Open) PC = CType(Deserializer.Deserialize(Stream), ParametreConfig) Stream.Close() End Sub
Bertrand

25/02/2013, 17h03
Pol63

oui j'avais pas vu

pc = getinstance
pc = deserialize

pc n'est qu'une variable, il a donc changé de valeur entre les 2 moments
ca ne fait pas de liaison entre l'intance singleton et la désérialisation

dim a as integer = 5
a = 8
est-ce que 5 va valoir 8 ? :D
25/02/2013, 18h23
105rn2

re,

J'ai essayé de transformer ma sub Deserialize en fonction retournant un "ParametreConfig" puis en écrivant
PC = PCFichier (provenant de ma sub)
mais ça ne marche pas mieux !

J'ai essayé d'instancier ma classe Singleton dans la sub Deserialize : idem
Est ce qu'on écrit dans une classe Singleton comme dans une classe classique ?

Pour lier les 2, je suis obligé de recopier chaque propriété de la classe chargée vers l'instance ?
PC.Exemple = PCFichier.exemple
Merci
Bertrand

re, re ..
J'ai donc modifier ma sub Deserialize comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
  Private Sub BinaryDeSerialize() 'As ParametreConfig
        Dim PCFichier As ParametreConfig
        Dim Fichier As String = "ParametreConfig.bin"
        If Not File.Exists(Fichier) Then
            MessageBox.Show("Fichier de configuration non trouvé !" & vbLf & "Veuillez le créer dans le Menu : Utilitaires / Général !")
            Exit Sub
        End If
        'Dim PCfichier As ParametreConfig
        Dim Deserializer As New BinaryFormatter
        Dim Stream As FileStream = New FileStream(Fichier, FileMode.Open)
        PCFichier = CType(Deserializer.Deserialize(Stream), ParametreConfig)
        PC.Exemple = PCFichier.Exemple
        Stream.Close()

Et maintenant, ça marche !
Mais y aurait il une autre solution que de recopier chaque propriété en affectant directement l'instance au résultat de la désérialisation ?
Merci encore
Bertrand

dans ton singleton :

Code:

1
2
3
4
if instance is nothing then
    instance = new pc
end if
return instance

Code:

1
2
3
4
if instance is nothing then
    instance = deserialize
end if
return instance

25/02/2013, 22h21
105rn2

Bonsoir,
Vraiment logique et évident .. quand on sait !
En tout cas, je n'aurais jamais trouvé tout seul !
ça marche nickel !
Merci encore Pol63
Bertrand