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

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:

---

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 ?

Salut,

Citation:

---

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.

Citation:

---

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

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:

---

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à

Quel est le type de WmiProperty ?

Citation:

---

Envoyé par phplive

mais j'ignore pourquoi ...

---

Je suis tenté de dire que coté objet COM le type est connu et donc géré sans perte d'info.