Function avec variable method

Version imprimable

17/04/2007, 17h42
BATiViR

Function avec variable method

Bonjour à tous,
je suis entrain de créer une fonction et je lui rentre des paramètres et une method. Il me renvoie erreur quand je lui envoie un String comme method, ce qui me parrais logique, mais comment initialiser une variable method et lui donner une valeur pour ma fonction?? Merci d'avance a tous

voila la fonction

Code:

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
function setExecWMI(Instance, Properties, Value :String) :Integer;
var
  WmiLocator:          TSWbemLocator;
  WmiService:          SWbemServices;
 
  ArrayVariant:        OleVariant;
  ObjectEnumerator:    IEnumVariant;
  NumberItem:          LongWord;
begin
  WmiLocator:= TSWbemLocator.Create(nil);
  try
    Screen.Cursor := crAppStart;
    // Connexion WMI (PCName, 'ROOT\CIMV2', UserName, UserPassword, '', '', ...)
    WmiService := WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '',
                                          '', wbemConnectFlagUseMaxWait, nil);
 
    ArrayVariant := WmiService.ExecQuery(Instance, 'WQL', 0, Nil);
 
    // Affecte un énumérateur pour la collection d'objet SWbemObject
    ObjectEnumerator:= IUnknown(ArrayVariant._NewEnum) as IEnumVariant;
    while (ObjectEnumerator.Next(1, ArrayVariant, NumberItem) = S_OK) do
    begin
      Result := ArrayVariant.Properties(value);
    end;
    Screen.Cursor:= crDefault;
  Finally;
    ArrayVariant := Unassigned;
    WmiLocator.Disconnect;
    WmiLocator.Free;
  end;
end;

la variable Properties me pose problème et demande que ce soit une method

17/04/2007, 18h25
ShaiLeTroll

le paramètres n'est pas utilisé dans ta fonction, comment peut-on comprendre ton besoin, dans ce cas ...
17/04/2007, 18h30
BATiViR

Il se trouve à cette ligne :

Code:

Result := ArrayVariant.Properties(value);

Properties me dit qu'il devrait être une method mais c'est une variable en string... comment faire?
17/04/2007, 18h36
ShaiLeTroll

Ah, précise donc

tu as un paramètres Properties et ArrayVariant.Properties(value);
ils n'ont rien à voir, si tu confonds ça, c'est mal barré ...

deplus comment ArrayVariant peut-il s'avoir qu'il a un Properties

Code:

ObjectEnumerator.Properties[Value]

Ce code ci dessus, serait plus cohérent, mais comme je ne connais pas ces objets, je ne sais pas, ...

c'est une erreur de syntaxe, tu manipules des variants, faut que je consulte http://laurent-dardenne.developpez.com/articles/wmi-p1/
pour vérifier ton utilisation de ces variants ...
17/04/2007, 18h55
BATiViR
dsl mais c'est la seule manière que j'ai trouver qui fonctionne ou que j'ai réussi a faire fonctionner. Si je met

Code:

Result := ArrayVariant.EnableDHCP(value);

ce qui active le DHCP avec WMI cela fonctionne. Mais si je remet
Code:

1 2 Properties := 'EnableDHCP'; Result := ArrayVariant.Properties(value);
il me renvoie erreur et me dit Méthode Properties non supportée... Je veux juste qu'il voit Properties comme une variable et mette ce qu'il se trouve dedan et pas Properties comme methode...
17/04/2007, 18h59
ShaiLeTroll
J'ignore ton niveau, mais la programmation c'est pas de la magie

Code:

Result := ArrayVariant.EnableDHCP(value);

au mieux tu écrire
Code:

1 2 Properties := 'EnableDHCP'; Result := TFuncType(ArrayVariant.GetFunction(Properties))(value);
à toi de trouver le TFuncType ... à mon avis, tu cherche une chose impossible, en RTTI, avec MethodAdress, il y a des choses possibles, mais avec les variants et les interfaces, j'en doute ... en plus utiliser des chaines pour augmenter l'infiabilité d'un code pour identifier des fonctions proprements défini, je trouve cela étrange ...
17/04/2007, 20h17
Kaféine
salut,
En regardant rapidement ton code, je trouve que tu te complique la vie!
De plus, je sais pas ce que le paramètre "Instance" est sensé fournir, en faite je l'aurais plutot appele "SQL" ou "Requete" car il s'agit bien d'une requete WQL dans ton cas, que ExecSQL attent.

donc pourquoi ne pas écrire plutôt:
Code:

1 2 3 4 5 6 7 8 9 var (...) ObjSet: SWbemObjectSet; (...) begin (...) ObjSet := WmiService.ExecSQL('select * from Win32_LogicalDisk', 'WQL', wbemFlagReturnImmediately, nil); (...)
et ensuite enumerer ce set, recupere les objets et enfin leurs proprietes?

voila une autre fonction que j'ai fai et qui fonctionne

Code:

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
function setWMI(Requete, Properties, Item, Value : String) :Integer;
var
  WmiLocator:          TSWbemLocator;
  WmiService:          SWbemServices;
  WmiObject,
  WmiObjectInProperties,
  WmiObjectOut:        SWbemObject;
  WmiObjectMethod:     ISWbemMethod;
  WmiProperty:         SWbemProperty;
 
  ArrayVariant,
  ArrayValue:           OleVariant;
begin
  WmiLocator:= TSWbemLocator.Create(nil);
  try
    Screen.Cursor := crAppStart;
    // Connexion WMI (PCName, 'ROOT\CIMV2', UserName, UserPassword, '', '', ...)
    WmiService := WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '',
                                          '', wbemConnectFlagUseMaxWait, nil);
    WmiObject := WmiService.Get(Requete, 0, Nil);
    WmiObjectMethod := WmiObject.Methods_.Item(Properties, 0);
    WmiObjectInProperties := WmiObjectMethod.InParameters.SpawnInstance_(0);
    WmiProperty := WmiObjectInProperties.Properties_.Item(Item,0);
    ArrayValue := Value;
    WmiProperty.Set_Value(ArrayValue);
    WmiObjectOut := WmiObject.ExecMethod_(Properties, WmiObjectInProperties,
                                          wbemFlagReturnWhenComplete, Nil);
    ArrayVariant := WmiObjectOut.Properties_.Item('ReturnValue', 0);
 
    Result := ArrayVariant.Value;
 
    Screen.Cursor:= crDefault;
  Finally;
    WmiLocator.Disconnect;
    WmiLocator.Free;
  end;
end;

Si je fai

Code:

setWMI('Win32_Process', 'Create', 'CommandLine', 'cmd')

sa fonctionne sans problème mais si je fais

Code:

setWMI('Win32_WindowsProductActivation', 'SetProductKey', 'ProductKey', 'XXXXX-XXXXX-XXXXX-XXXXX-XXXXX')

il me renvoie paramètre de methode non valide et pourtant avec la fonction que j'avai fai plus haut cela fonctionait parfaitement et je l'ai fais en vbs sans problème aussi... J'ai essayer de le faire en C++ je n'arrive pas et en delphi sa va mieux mais j'arrive toujours pas...
Si quelqu'un voit l'erreur merci d'avance