UDF > Debug >

_DebugCOMError

D�finit, r�initialise, ou demande le niveau de d�bogage pour les erreurs COM

#include <Debug.au3>
_DebugCOMError ( [$iComDebug = 1 [, $bExit = False]] )

Param�tres

$iComDebug [optionnel] Niveau de d�bogage. Les valeurs possibles sont:
-1 - Retourne les param�tres actuels
 0 - D�sactive le d�bogage
 1 - Active le d�bogage. Affiche les informations de d�bogage (par d�faut)
$bExit [optionnel] True si le script doit se terminer

Valeur de retour

Succ�s: Retourne:
1 si $iComDebug = 0 ou 1, et d�finit @extended de la fa�on suivante:
    0 - Le gestionnaire d'erreurs COM n'est pas initialis�
    1 - Le gestionnaire d'erreurs COM a �t� initialis�
    2 - Le gestionnaire d'erreurs COM �tait d�j� actif
    3 - Le gestionnaire d'erreurs COM est d�j� d�sactiv�
1 si $iComDebug = -1 et @error et @extented sont d�finis de la fa�on suivante:
    @error = niveau de d�bogage courant
    @extended = terminaison du script courant.
�chec: Retourne 0 et d�finit @error <> 0.
@error: 1 - $iComDebug n'est pas un nombre entier ou < -1 ou > 1
2 - Le gestionnaire d'erreurs COM est d�j� install� pour une autre fonction (= pas install� par cette fonction)
3 - _DebugSetup() ne s'est pas ex�cut�e correctement. Assurez-vous que _DebugSetup() s'est ex�cut�e correctement avant d'appeler cette fonction
4 - L'installation du gestionnaire d'erreur personnalis� a �chou�. @extended contient le code d'erreur retourn� par ObjEvent()

Remarque

Avant d'appeler cette fonction, _DebugSetup() doit �tre appel�e en premier pour cr�er la session de d�bogage.

En relation

_DebugSetup

Exemple

#include <Debug.au3>
#include <MsgBoxConstants.au3>

_DebugSetup(Default, True, 1, Default, True) ; 1 = Ecrit des messages avec horodatage dans le fichier journal de Window

Example()

; Provoque une erreur COM et laisse _DebugCOMError afficher les messages d'erreur dans le fichier journal de Window

Func Example()
    ; Cr�e un objet application Microsoft Internet Explorer
    Local $oIE = ObjCreate("InternetExplorer.Application")
    If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, "_DebugCOMError UDF", "Erreur lors de la cr�ation d'un nouvel objet application IE." & _
            @CRLF & "@error = " & @error & ", @extended = " & @extended)
    ; Met en place le gestionnaire d'erreur COM pour �crire les messages d'erreur dans le Report Log Window
    _DebugCOMError(1)
    ; Provoque une erreur COM: la fonction est inconnue
    $oIE.xyz()
    If @error <> 0 Then Return MsgBox($MB_SYSTEMMODAL, "_DebugCOMError UDF", "Erreur survenue et g�r�e." & _
            @CRLF & "@error = " & @error)
    ; Ferme IE
    $oIE.Quit()
    $oIE = 0
EndFunc   ;==>Example