Bonjour à tous.
J'ai un probléme de compilation du code ci dessous:
Lazarus me dit : " Fatal: Syntax error, "identifier" expected but "CLASS" found ".
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 procedure GetListWmiClassesWithMethods(const NameSpace:String;Const List :TStrings); var objWMIService : OLEVariant; colItems : OLEVariant; colItem : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; begin List.Clear; objWMIService := GetWMIObject(FHost,SNameSpace, FUsername, FPassword); colItems := objWMIService.SubclassesOf(); oEnum := IUnknown(colItems._NewEnum) as IEnumVariant; while oEnum.Next(1, colItem, iValue) = 0 do if colItem.Methods_.Count>0 then List.Add(colItem.Path_.Class); end;
C'est apparement du code Delphi, une adaptation du code VB suivant :
(Bon ça fait pas la même chose, mais c'est la preuve que Path_.Class existe bien...)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Set objSWbemService = GetObject("Winmgmts:root\default") Set objClass = objSWbemService.Get() objClass.Path_.Class = "NewClass"
Je pense que c'est le compilateur qui n'aime pas ".Class" mais comment contourner le problème ????
Merci à vous :-)
Partager