Discussion :

[105rn2]

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 :

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
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 :

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

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

Mais aussi

Code :

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

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

[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 ...

[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 :

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

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

[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ù)

[105rn2]

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 :

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

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

Code :

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

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

[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 ?

[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

[105rn2]

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

Code :

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

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

[Pol63]

dans ton singleton :

Code :

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

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

=>

Code :

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

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

[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