Discussion :

[msuire]

Bonjour,

Je possède Delphi 7 et ayant eu du mal à le faire fonctionner avec win 8, j'étais passé sur Lazarus.
Récemment, j'ai retenté l'installation en mode administrateur comme conseillé et ça marche. Suite au tutoriel de Laurent Dardenne, j'ai tenté d'importer l'activeX Wbemdisp.tlb, mais cela ne me donne rien de plus dans les outils de Delphi.
Alors je suis de nouveau reparti vers Lazarus.
J'ai trouvé à cette adresse (https://github.com/rruz/tsmbios) des exemples de code Lazarus qui fonctionnent mais seulement en mode console et je ne sais pas comment récupérer les valeurs dans dans un mémo par exemple.

Merci à celui qui pourrait m'éclairer ?

Michel Suire

[Jipété]

et je ne sais pas comment récupérer les valeurs dans un mémo par exemple.

Si je devais faire, je remplacerais tous les "WriteLn" par des "memo.Lines.Add()" mais attention, il y a une petite adaptation à faire à chaque ligne.

Exemple avec deux lignes :

Code :

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

1
2
        WriteLn(Format('Size           %d Mbytes',[LMemoryDevice.GetSize]));
        WriteLn(Format('Device Locator %s',[LMemoryDevice.GetDeviceLocatorStr]));

vont devenir

Code :

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

1
2
        memo.Lines.Add('Size ' + IntToStr(LMemoryDevice.GetSize) +' Mbytes');
        memo.Lines.Add('Device Locator ' + LMemoryDevice.GetDeviceLocatorStr);

Y a p'têt' moyen de garder le "Format" mais j'ai un peu la flemme de chercher/tester (fait trop chaud...)

[jurassic pork]

hello,
le code que tu nous présentes n'est pas du WMI. Quelles infos veux-tu récupérer ? Il y a moyen de faire du WMI assez simplement en Lazarus.

Ami calmant, J.P

[msuire]

Bonjour Jurassik,

Je ne suis qu'un amateur en terme de programmation et je pensai que les exemples de code de https://github.com/rruz/tsmbios étaient basé sur le WMI.
En fait, je voudrai récupérer les adresse MAC wifi et Ethernet, la marque de la carte mère et le numéro de série, les caractéristiques des disque durs... Si j'ai une piste pour ces éléments ce serait déjà pas mal.
Concernant la proposition de JiPeTe, j'avais déjà essayé cette solution, mais sans grand succès...

Merci pour votre implication.

Michel Suire

[jurassic pork]

hello,
je mets en pièce jointe une unité (utilwmi.pas) avec une fonction expérimentale ( elle est brute de fonderie et contient certainement des bugs) qui permet de récupérer des informations par WMI sous windows. Voici la syntaxe :

Code :

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

1
2
 Function GetWMIInfo(const WMIClass: string ; const WMIProperty:tstringList;
                     const Condition: string = ''): Tlist

le paramètre WMIClass est la classe WMI à inspecter exemple : Win32_NetworkAdapter
le paramètre WMIProperty est la liste des propriétés à récupérer exemple : Name, MacAddress
le paramètre conditionnel condition est la condition de sélection des propriétés exemple : WHERE NETENABLED = TRUE

le résultat est une liste de listes des propriétés.

Voici un exemple d'utilisation qui affiche dans un mémo les noms et mac addresses des cartes réseaux actives :

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
17
18
19
20
21
22
23
24
procedure TForm1.Button3Click(Sender: TObject);
var ResultatWMI : TList;
    Infos : TStringList;
  i,j       : Integer;
begin
  Memo1.Clear;
  Infos := TstringList.Create;
  // Préparation des paramètres à chercher
  Infos.CommaText:='Name=,ProductName=,MACAddress=';
  ResultatWMI := GetWMIInfo('Win32_NetworkAdapter',Infos,'WHERE NETENABLED = TRUE');
   for i := 0 to ResultatWMI.Count-1 do
    begin
     Memo1.Lines.add('================================================');
     for j := 0 to Infos.Count-1 do
         begin
         Memo1.Lines.add(TstringList(ResultatWMI[i]).Names[j]+' : '+
         TstringList (ResultatWMI[i]).ValueFromIndex[j]);
         end;
    end;
  // Nettoyage
    for i := 0 to ResultatWMI.Count-1 do
         begin
           TstringList(ResultatWMI[i]).Free;
         end;

Mettre l'unité dans le répertoire de son projet et rajouter l'unité dans le uses.
Si vous voyez des corrections ou des améliorations à faire n'hésitez pas à me le dire.



Ami calmant, J.P

[Jipété]

Concernant la proposition de JiPeTe, j'avais déjà essayé cette solution, mais sans grand succès...

Sans grand succès...

Ouaip, ça c'est du lourd et de la haute précision dans le genre description du problème...
Tu ne nous aides pas à t'aider, là !

[msuire]

Re-bonjour Jurassik,

Je rentre du boulot et je viens de tester ce que tu proposes. C'est parfait: les résultats sont là et même si je n'ai pas encore tout compris, je m'attèle à la tâche. Ne serait-ce que par respect de ton engagement.

Merci et à +

Michel Suire