Discussion :

[vinou94400]

Bonjour,

Excusez moi, j'ai un problème avec une fonction que j'ai créé pour lire dans ma base de registre. Voila la fonction en question :

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
 
    Public Function getEssbaseActivate() As String
        Dim Reg As RegistryKey
        Dim tmp As String = "toto"
        EcrireLog("valeurAvant", tmp)
        'Ouvre l'instance de la clé du produit
        Reg = Registry.CurrentUser.OpenSubKey("EssSwitch")
        'Recupere la valeur
        tmp = Reg.GetValue("essbase")
        EcrireLog("valeurapres", tmp)
        'ferme la cle
        Reg.Close()
        Return tmp
    End Function
#End Region

Mon problème est que dans mon ficchier log je récupère bien la valeur avant mais pas celle après. Donc j'ai ma fonction qui bloque entre les deux. Si vous pouviez m'aider ou me mettre sur une piste, ce serait sympa.

Merci d'avance.

Vinou

[tomlev]

Tu as essayé de mettre un point d'arrêt dans la fonction et de l'exécuter pas à pas pour voir ce qui se passe ?

[vinou94400]

Bah c'ests un windows service mais bon peut etre qu'en recuperant une exception (s'il y en a une) dans un fichier log avec un try catch ou en creant une application effectuant la meme operation. Bref j'essaye ce soir et je te tien au courant en rentrant. Merci du conseil bonne journee

[vinou94400]

Re coucou
Alors j'ai mis un try catch au niveau de la fonction de récupération de la valeur dans la base de registre et j'obtiens l'erreur suivante :

"La référence d'objet n'est pas définie à une instance d'un objet"

Snif des idées ?

En fait, je l'appelle au moment ou le windows service reçoit l information que l'utilisateur a cliqué sur un bouton dans l'application. Si je met pas la fonction et que je met une valeur o pif et que je la renvoie a l application, je la récupère bien. En gros, cela vient de la fonction de récuperation de la valeur dans le registre.

Je vous remercie d'avance pour votre aide .

[benito9253]

Salut,

Essaye comme ca:

Code :

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

1
2
3
4
            Dim key1 As Microsoft.Win32.RegistryKey
            key1 = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("EssSwitch")
            tmp = key1.GetValue("essbase", "Erreur")
            EcrireLog("valeurapres", tmp)

[vinou94400]

Eh nan snif, ca ne marche pas. Toujours la même erreur ... Merci en tout cas de ta proposition