Discussion :

[Nicolas Coolman]

Hello,

Je voudrais lire la donnée d'une valeur de clé de Base De Registres Windows. Afin d'éviter l'affichage d'une d'erreur, je voudrais intercepter l'erreur provoquée par ERegistryException afin de faire un readString ou un readInteger de la donnée

Voilà un bout de programme qui plante malgré le Try/Except

vVariant est de type variant, j'ai essayer aussi en mettant un integer dans le cas d'un ReadInteger et un string dans le cas du
ReadString

Code :

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

1
2
3
4
5
6
7
8
9
10
           Try
                vVariant := reg.ReadString('VALUE1');
 
            Except
               on ERegistryException do begin
                  ShowMessage('ERREUR D''ACCES DONNEE');
                  vVariant := reg.ReadInteger('VALUE1');
               end;
            end;
            //suite du traitement

Donc malgré le Try/Except, j'ai quand même le message d'erreur


Pourriez-vous m'aider à résoudre mon problème. ?

Merci d'avance.

[ShaiLeTroll]

L'image est celle d'une exception de débogage, ... case à cocher "Arrêter sur exceptions Delphi" dans l'onglet "Exception du Langage" Menu Outils

[Cl@udius]

Salut

Pourquoi ne pas utiliser la fonction ValueExists ?
Et ainsi éviter le try..except.

@+ Claudius

[Nicolas Coolman]

Hello,

Merci à tous les deux pour vos réponses,

Bravo, effectivement en désactivant l'option de déboggage, j'ai bien le passage dans la routine 'Except' et je n'ai plus de plantage.

Par contre en désactivant cette option, qu'advient-il si d'autres types d'exception se présentent ?

Je vais jeter un coup d'oeil aussi du côté de la fonction ValueExists et de l'analyse de la donnée retournée.

Encore bravo pour la réactivité et la qualité de votre forum.

[Cl@udius]

Je vais jeter un coup d'oeil aussi du côté de la fonction ValueExists et de l'analyse de la donnée retournée.

ValueExists renvoie un boolean qui te confirme ou non la présence de la valeur dans la BdR. Ce qui évite de lever une exception lors de sa lecture si elle est absente.
C'est à mon avis plus propre qu'un bloc try...except.

Encore bravo pour la réactivité et la qualité de votre forum.

[Nicolas Coolman]

Re,

ValueExists renvoie un boolean qui te confirme ou non la présence de la valeur dans la BdR. Ce qui évite de lever une exception lors de sa lecture si elle est absente.
C'est à mon avis plus propre qu'un bloc try...except.

Oui, Cl@udius, je viens juste de constater qu'il s'agit d'une boolean.
Mais dans mon cas de figure, en dehors du fait de savoir si la valeur existe, c'est l'analyse du type de la donnée qui m'interesse et la le try/except passe bien.

A bientôt...

Je passe en résolu

[guillemouze]

Par contre en désactivant cette option, qu'advient-il si d'autres types d'exception se présentent ?

au lieu de decocher "Arrêter sur exceptions Delphi", tu peux clicquer sur "Ajouter" dans le groupbox juste au dessus ("Types d'exceptions à ignorer") et ecrire "ERegistryException". Toutes les classes d'exceptions cochées ici ne te mettront pas le message du debugger delphi.
(cette fonctionnalité est presente au moins dans Delphi7)

[Nicolas Coolman]

Hello guillemouze,

Cette option du debogger me plait bien, je vais l'adopter.

Merci pour l'info et à bientôt