Discussion :

[visithierry]

Bonjour à tous.

J'ai un probléme de compilation du code ci dessous:

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;

Lazarus me dit : " Fatal: Syntax error, "identifier" expected but "CLASS" found ".
C'est apparement du code Delphi, une adaptation du code VB suivant :

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"

(Bon ça fait pas la même chose, mais c'est la preuve que Path_.Class existe bien...)

Je pense que c'est le compilateur qui n'aime pas ".Class" mais comment contourner le problème ????

Merci à vous :-)

[tintinux]

Bonjour

On ne sait pas ce que fait ton code, et comme tu ne donnes pas les unités requises, il faudrait du temps pour le rendre compilable.

List.Add attend un paramètre avec un identificateur de type String.
Est-ce bien celui de Path_.Class ? Non, car Class est un mot réservé et ne peut être un identificateur.

Au hasard, Est-ce que ClassName ne serait pas plus approprié ?

[DomDA91]

Class est un mot réservé du langage Pascal, si tu est obligé de l'utiliser en tant qu'identificateur a-tu essayé ?

Code :

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

colItem.Path_.&Class

Le signe & permet d' "escaper" un mot réservé.

[visithierry]

VOILA, c'est exactement la réponse a mon pb.
Maintenant ça compile !
MERCI BEAUCOUP DomDA91 :-)

Class est un mot réservé du langage Pascal, si tu est obligé de l'utiliser en tant qu'identificateur a-tu essayé ?

Code :

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

colItem.Path_.&Class

Le signe & permet d' "escaper" un mot réservé.