[WMI] Variant de type Unsigned Int 64 ...

**phplive** · 04/05/2006, 00h02

Bsr,

En récupérant des propriétés en utilisant WMI avec D7, je suis tombé sur des variants de type Unsigned Int 64 (wbemCimtypeUint64 soit $00000015 ou encore 21)

J'ai utilisé ce code pour contourner le pb :

Code :

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

1
2
3
 
      if WmiProperty.CIMType = wbemCimtypeUint64 then
        TVarData(Value).VType := wbemCimtypeSint64;

Pas top top mais ca fonctionne...

Bizarrement Delphi 7 ne supporte que le type int64 qui lui est signé : est-ce toujours le cas avec les versions de Delphi plus récentent ?

Existe-il un moyen pour faire en sorte que tout les variants de type 21 soient traités comme des variants de type 20 une fois pour toute : si oui comment ?

**Laurent Dardenne** · 04/05/2006, 22h56

Salut,

Envoyé par phplive

Bizarrement Delphi 7 ne supporte que le type int64 qui lui est signé : est-ce toujours le cas avec les versions de Delphi plus récentes ?

J'ai regardé rapidement sous D2006 j'ai bien peur que cela soit tjr le cas, mais c'est à confirmer.

Envoyé par phplive

Existe-il un moyen pour faire en sorte que tout les variants de type 21 soient traités comme des variants de type 20 une fois pour toute : si oui comment ?

Peut être avec TCustomVariantType.

[edit]
cf http://groups.google.ca/group/borlan...889b10b29f468c

**phplive** · 09/05/2006, 08h41

Bjr

Oups ! Autant pour moi le code que j'ai indiqué ne fonctionne pas mais alors pas du tout !

Par contre si je traite les types unsigned int64 comme des chaînes alors ca fonctionne (je laisse en fait le soin au compilateur d'effectuer le transtypage vers un string) mais j'ignore pourquoi ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  sValue : string;
  bigValue : Int64;
begin
...
  Value:=WmiProperty.Get_Value;
  if (WmiProperty.CIMType = wbemCimtypeUint64) then
  begin
    sValue := Value;
    bigValue := StrToInt(sValue);
  end;
end;

Voilà