FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//Les types d'erreurs rencontrées. (Nommage propre à l'application) 
Type TOriginError = (TypeErrorUnknow,WMIError,Win32Error,ProviderError,MethodError); 
... 
Function ExistWMIErreur(Var WMILastError: TSWbemLastError;AOwner: TComponent):Boolean; 
//Gestion d'erreur WMI, crée un objet SWbemLastError pour la dernière erreur générée. 
begin 
 Try 
   WMILastError:=Nil; 
   WMILastError:=TSWbemLastError.Create(AOwner); 
   WMILastError.ConnectKind := ckNewInstance; 
     // Si aucune erreur n'existe, la méthode connect déclenche une exception EOleSysError 
   WMILastError.Connect; 
   Result:=True; 
  
 Except 
 on E:EOleSysError do 
  begin 
   {cf. Vous pouvez consulter le fichier WinError.h du SDK Win32 :  Codes 0x4000-0x40ff are reserved for OLE 
     MessageId: E_FAIL = 0x80004005L 
     MessageText:  Unspecified error 
   } 
   Result:=False; 
   FreeAndNil(WMILastError); 
  end 
 end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function OriginError(Code : HRESULT): TOriginError; 
//Détermine le type d'erreur 
begin 
 Result:=TypeErrorUnknow; 
 if (Code Xor HRESULT($80070000))<=$FFFF 
  then Result:=Win32Error 
  else 
   if (Code Xor HRESULT($80040000))<=$FFFF 
    then Result:=WMIError; 
  // Reste à implémenter ProviderError et MethodError   
end; 
  
Function StrOriginError(Code : HRESULT): String; 
begin 
 Case OriginError(Code) of 
   Win32Error : Result:='Erreur Win32'; 
   WMIError   : Result:='Erreur WMI'; 
   TypeErrorUnknow:Result:='Type erreur inconnue'; 
   // Reste à implémenter ProviderError et MethodError   
 end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var WMILastError: TSWbemLastError; 
begin 
... 
    except 
     on E:Exception do 
      begin 
       if (E is EOleException) or (E is EOleSysError) 
        then 
          begin 
           if ExistWMIErreur(WMILastError,Self) 
            then ShowWMIErreur('Opération xxx',WMILastError,(E as EOleException)); 
  
            //Rappel sur le contexte du dernier appel WMI 
           Memo1.Lines.Add(#13#10+'Test d''item inexistant.'); 
            //Affiche l'origine de l'erreur à partir du code d'erreur de l'exception 
           Memo1.Lines.Add(StrOriginError((E as EOleException).ErrorCode));  
            // Affiche le message de l'exception 
           Memo1.Lines.Add('Erreur ['+IntToHex((E as EOleException).ErrorCode,8)+'] '+E.Message); 
          end 
        else Raise; //On redéclenche les exceptions non gérées 
       end; 
     end; //Except 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Procedure ShowWMIErreur(Msg:String; WMILastError: TSWbemLastError;E:EOleException); 
//Affiche les informations d'une erreur WMI 
var S:String; 
begin 
  
 S:='Informations d''erreur WMI :'+#13#10+#13#10+ 
    Msg+#13#10+ 
    'Operation : '+WMILastError.Properties_.Item('Operation',0).Get_Value+#13#10+ 
    'Provider : '+WMILastError.Properties_.Item('ProviderName',0).Get_Value+#13#10+ 
    'Description : '+WMIVariantToStr(WMILastError.Properties_.Item('Description',0).Get_Value)+#13#10+ 
    'paramètre : '+WMIVariantToStr(WMILastError.Properties_.Item('ParameterInfo',0).Get_Value)+#13#10+ 
    'Code : '+WMIVariantToStr(WMILastError.Properties_.Item('StatusCode',0).Get_Value); 
  
 if E<>Nil 
  then S:=S+#13#10+#13#10+ 
          'Code Exception'+#13#10+ 
          'Origine : '+StrOriginError(E.ErrorCode)+#13#10+ 
          'Erreur: ['+IntToHex(E.ErrorCode,8)+'] '+E.Message; 
  
 ShowMessage(S); 
end;