Erreur lecture tableau WMI

**BATiViR** · 10/04/2007, 12h55

Bonjour a tous,
je suis entrain de créer une application qui affiche quelques paramètres réseau (IP, gateway,...). Cela fonctionne très bien mais le problème est que si je n'ai pas de gateway il me renvoie EVariantInvalidArgError. J'ai fai un if et lui demande si il est égal à NULL avant mais le problème est qu'il est dans un tableau et si il n'existe pas et je lui demande de lire dans [0] il me renvoie erreur. Quelqu'un sait comment verifier si le tableau existe ou s'il y a quelque chose dedans? ou une autre solution merci d'avance

**Kaféine** · 10/04/2007, 13h49

je pense que tu peux vérifier dans un 1er temps si le tableau est nil
puis si la longueur du tableau est <> 0

Code :

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

1
2
3
4
 
if Assigned(MonTableau) then
  if Length(MonTableau) <> 0 then
    //traitement...

**BATiViR** · 10/04/2007, 14h10

enfaite je fais ça:

Code :

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

if WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0] = NULL ...

Me renvoie erreur car il ne trouve pas le tableau et si j'enleve le [0] tout est correct. Mais si la gateway existe, donc le tableau aussi, il me renvoie erreur car c'est un tableau et je ne lui est pas mit [x]... T'es verification n'ont rien changer aux erreurs

merci quand même... Quelqu'un aurait une autre solution?

**philnext** · 10/04/2007, 14h14

Tu mets tout ça dans un try except...

Code :

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

1
2
3
4
5
6
try
if WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0] = NULL
except
  //gestion du message comme quoi il n'y a pas de passerelle defaut.
end;

**Kaféine** · 10/04/2007, 14h20

si jai bien compris

ceci renvois la valeur de l'item en l'occurence "DefaultIPGateway"

Code :

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

1
2
 
WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value

et si l'item existe alors on accède aux propriétés du "DefaultIPGateway"

donc il suffit de faire ca?

Code :

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

1
2
3
4
5
6
7
8
9
 
(...)
var
 item0: Variant;
(...)
if WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value <> null then
begin
  item0 := WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0];
end;

**BATiViR** · 10/04/2007, 14h23

Il me fait toujours erreur quand je test dans le tableau vu qu'il n'existe pas ...

**Kaféine** · 10/04/2007, 14h57

Code :

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

1
2
3
4
5
6
7
8
(...)
var
 item0: Variant;
(...)
if WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value <> nil then
begin
  item0 := WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0];
end;

<> nil pardon

**BATiViR** · 10/04/2007, 15h12

Il me dit types incompatibles...

**Kaféine** · 10/04/2007, 15h16

Bizarre je pensais que c'était un type interface retourné
c'est quoi ton code exactement?

**Kaféine** · 10/04/2007, 15h27

Ok essai ca:

Code :

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

1
2
3
4
5
6
 
      if Obj.Properties_.Item('DefaultIPGateway', 0) <> nil then
      begin
        if not VarIsNull(Obj.Properties_.Item('DefaultIPGateway', 0).Get_Value) then
          Showmessage(Obj.Properties_.Item('DefaultIPGateway', 0).Get_Value[0]);
      end;

en fait le code complet aprés avoir lu un article sur developpez.com a propos de WMI
laurent-dardenne.developpez.com/articles/wmi-p1

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
procedure TForm1.btn2Click(Sender: TObject);
var
  WMILocator:          TSWbemLocator;
  WmiService:          SWbemServices;
 
  Obj:           SWbemObject;
  ObjSet:        SWbemObjectSet;
  Enumerator:    IEnumVariant;
 
  VarArray:        OleVariant;
  Count:          LongWord;
 
  begin
  WMILocator:= TSWbemLocator.Create(self);
  try
 
    wmiService:= WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '',
                                        '', wbemConnectFlagUseMaxWait, nil);
 
    ObjSet := wmiService.InstancesOf('Win32_NetworkAdapterConfiguration',
					wbemFlagReturnWhenComplete,
					Nil);
 
 
   Enumerator:= (ObjSet._NewEnum) as IEnumVariant;
 
 
    while (Enumerator.Next(1, VarArray, Count) = S_OK) do
    begin
      Obj := IUnknown(VarArray) as SWBemObject;
      mmo1.Lines.Add(AdjustLineBreaks(Obj.GetObjectText_(0)));
      if Obj.Properties_.Item('DefaultIPGateway', 0) <> nil then
      begin
        if not VarIsNull(Obj.Properties_.Item('DefaultIPGateway', 0).Get_Value) then
          Showmessage(Obj.Properties_.Item('DefaultIPGateway', 0).Get_Value[0]);
      end;
    end;
 
  finally
    WMILocator.Free;
  end;
 
 
end;

Merci ca ma permis de découvrir WMi

**Kaféine** · 10/04/2007, 15h29

tu peux supprimer cette ligne

Code :

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

1
2
 
 mmo1.Lines.Add(AdjustLineBreaks(Obj.GetObjectText_(0)));

**BATiViR** · 10/04/2007, 15h31

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TfmMain.buActualiserClick(Sender: TObject);
var
  WmiLocator:          TSWbemLocator;
  WmiService:          SWbemServices;
  WmiObjectSet:        SWbemObjectSet;
  WmiObject:           SWbemObject;
  //WmiProperty:         SWbemProperty;
 
  Registre:            TRegistry;
 
  ObjectEnumerator:    IEnumVariant;
 
  ArrayVariant:        OleVariant;
  NumberItem:          LongWord;
 
  OldCursor:           TCursor;
  test:                String;
  item0: Variant;
begin
  Registre := TRegistry.Create;
  WmiLocator:= TSWbemLocator.Create(self);
  try
 
    //////////////////////////////////////////////////////////
    // Recuperation des informations via WMI
    //////////////////////////////////////////////////////////
    // Connexion WMI (PCName, 'ROOT\CIMV2', UserName, UserPassword, '', '', ...)
    WmiService:= WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '',
                                          '', wbemConnectFlagUseMaxWait, nil);
 
    // Recuperation des infos Connexions réseaux
    WmiObjectSet := wmiService.InstancesOf('Win32_NetworkAdapterConfiguration WHERE IPEnabled = True',
                                            wbemFlagReturnWhenComplete, nil);
 
    ObjectEnumerator:= (WmiObjectSet._NewEnum) as IEnumVariant;
    while (ObjectEnumerator.Next(1, ArrayVariant, NumberItem) = S_OK) do
    begin
      WmiObject := IUnknown(ArrayVariant) as SWBemObject;
        if WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0] <> NULL 
        Then edGateway.Text := WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0];
  Finally;
    WmiLocator.Free;
  end;
end;

**Kaféine** · 10/04/2007, 15h36

remplace ca

Code :

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

1
2
3
4
 
 if WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0] <> NULL 
        Then 
edGateway.Text := WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0];

par ca

Code :

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

1
2
3
4
5
6
 
      if WmiObject.Properties_.Item('DefaultIPGateway', 0) <> nil then
      begin
        if not VarIsNull(WmiObject.Properties_.Item('DefaultIPGateway', 0).Get_Value) then
          edGateway.Text := WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[0];
      end;

et ca devrais être bon

**BATiViR** · 10/04/2007, 16h04

Merci pour votre aide, c'est parfait

**BATiViR** · 10/04/2007, 16h53

Encore un tout petit problème

comment vérifier que le [1] existe?

Code :

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

1
2
3
4
5
        if WmiObject.Properties_.Item('DefaultIPGateway',0) <> nil Then
        begin
          if not VarIsNull(WmiObject.Properties_.Item('DefaultIPGateway', 0).Get_Value) Then
            edGateway.Text := WmiObject.Properties_.Item('DefaultIPGateway',0).Get_Value[1]
        End;

le [0] existe il me le renvoie, si il existe pas il me le renvoie pas... Maintenant si je dois renvoyer le [1] comment verifier qu'il existe?

**Kaféine** · 10/04/2007, 21h54

tu peux déjà vérifier que la propriété est bien du type array.

si c'est un array tu récupère son count et tu peux parcourir l'array et tester chacune de ces valeurs.

du genre:

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
20
21
22
23
24
 
 
(...)
 while (Enumerator.Next(1, VarArray, Count) = S_OK) do
    begin
      Obj := IUnknown(VarArray) as SWBemObject;
 
      pSet := obj.Properties_;
      pEnumerator := (pSet._NewEnum) as IEnumVariant;
 
      while pEnumerator.Next(1, pArr, pCount) = S_OK do
      begin
        p := IUnknown(parr) as SWbemProperty;
 
        if not VarIsNull(p.Get_Value) then
          if p.IsArray then
          begin
            for i := 0 to VarArrayDimCount(p) do
               if not VarIsNull(p.Get_Value[i]) then
                 Showmessage(p.Get_Value[i]);
          end;
      end;
    end;
(...)

Erreur lecture tableau WMI

Delphi

Discussions similaires

Partager

Partager