tsmbios

Le SMBIOS (System Management BIOS) est une norme développée par le DMTF. Les informations stockées dans le SMBIOS comprennent le fabricant d'appareils, le nom du modèle, le numéro de série, la version BIOS, la balise d'actif, les processeurs, les ports et la mémoire de l'appareil installé.

Le TSMBIOS Libary permet d'accéder au System Management BIOS (SMBIOS) en utilisant le langage d'objet Pascal (Delphi ou Free Pascal).

Caractéristiques

• Entièrement documenté (XMLDOC), compatible avec la fonction Help Insight, disponible depuis Delphi 2005.
• Prend en charge la version 2.1 à 2.8 de SMBIOS.
• Compatible avec Delphi 5 à Delphi 11 Alexandrie.
• Fonctionne avec FPC 2.4.0 ou version ultérieure.
• Prend en charge Windows et Linux.
• Peut lire les données SMBIOS à partir de machines distantes à l'aide de WMI.

Tables SMBIOS prises en charge

• BIOS Information (Type 0)
• Informations système (Type 1)
• Informations sur les plinthes (ou modules) (type 2)
• Boîtier système ou châssis (type 3)
• Informations sur le processeur (type 4)
• Informations sur le contrôleur de mémoire (type 5)
• Informations sur le module de mémoire (type 6)
• Informations sur le cache (type 7)
• Informations sur le connecteur du port (type 8)
• Emplacements système (type 9)
• Informations sur les appareils à bord (type 10)
• Chaînes OEM (type 11)
• Options de configuration du système (type 12)
• Informations sur la langue du BIOS (Type 13)
• Associations de groupe (type 14)
• Journal des événements système (type 15) - non implémenté
• Tableau de mémoire physique (type 16)
• Appareil de mémoire (Type 17)
• Adresse mappée du tableau de mémoire (type 19)
• Adresse mappée du périphérique de mémoire (type 20)
• Dispositif de pointage intégré (type 21)
• Batterie portable (type 22)
• Réinitialisation du système (type 23) - non implémenté
• Sonde de tension (type 26)
• Appareil de refroidissement (type 27)
• Sonde de température (type 28)
• Sonde de courant électrique (type 29)
• Accès à distance hors bande (type 30) - non implémenté
• Informations d'erreur de mémoire 64 bits (Type 33) - Non implémenté
• Dispositif de gestion (type 34) - non implémenté
• Composant du périphérique de gestion (type 35) - non implémenté
• Données de seuil de périphérique de gestion (type 36) - non implémenté
• Channel de mémoire (type 37) - non implémenté
• Alimentation système (type 39) - non implémenté
• Informations supplémentaires (type 40) - non implémenté
• Informations étendues de dispositifs (Type 41) - non implémenté
• Interface hôte du contrôleur de gestion (type 42) - non implémenté

Exemple de code source

Ce code montre comment récupérer des informations liées aux périphériques de mémoire installés sur le système.

 { $APPTYPE CONSOLE }

{ $R *.res }

uses
  Classes,
  SysUtils,
  uSMBIOS in ' ....CommonuSMBIOS.pas ' ;

procedure GetMemoryDeviceInfo ;
Var
  SMBios: TSMBios;
  LMemoryDevice: TMemoryDeviceInformation;
begin
  SMBios := TSMBios.Create;
  try
      WriteLn( ' Memory Device Information ' );
      WriteLn( ' ------------------------- ' );

      if SMBios.HasPhysicalMemoryArrayInfo then
      for LMemoryDevice in SMBios.MemoryDeviceInformation do
      begin
        WriteLn(Format( ' Total Width    %d bits ' ,[LMemoryDevice.RAWMemoryDeviceInfo.TotalWidth]));
        WriteLn(Format( ' Data Width     %d bits ' ,[LMemoryDevice.RAWMemoryDeviceInfo.DataWidth]));
        WriteLn(Format( ' Size           %d Mbytes ' ,[LMemoryDevice.GetSize]));
        WriteLn(Format( ' Form Factor    %s ' ,[LMemoryDevice.GetFormFactor]));
        WriteLn(Format( ' Device Locator %s ' ,[LMemoryDevice.GetDeviceLocatorStr]));
        WriteLn(Format( ' Bank Locator   %s ' ,[LMemoryDevice.GetBankLocatorStr]));
        WriteLn(Format( ' Memory Type    %s ' ,[LMemoryDevice.GetMemoryTypeStr]));
        WriteLn(Format( ' Speed          %d MHz ' ,[LMemoryDevice.RAWMemoryDeviceInfo.Speed]));
        WriteLn(Format( ' Manufacturer   %s ' ,[LMemoryDevice.ManufacturerStr]));
        WriteLn(Format( ' Serial Number  %s ' ,[LMemoryDevice.SerialNumberStr]));
        WriteLn(Format( ' Asset Tag      %s ' ,[LMemoryDevice.AssetTagStr]));
        WriteLn(Format( ' Part Number    %s ' ,[LMemoryDevice.PartNumberStr]));

        WriteLn;

        if LMemoryDevice.RAWMemoryDeviceInfo.PhysicalMemoryArrayHandle> 0 then
        begin
          WriteLn( '  Physical Memory Array ' );
          WriteLn( '  --------------------- ' );
          WriteLn( '  Location         ' +LMemoryDevice.PhysicalMemoryArray.GetLocationStr);
          WriteLn( '  Use              ' +LMemoryDevice.PhysicalMemoryArray.GetUseStr);
          WriteLn( '  Error Correction ' +LMemoryDevice.PhysicalMemoryArray.GetErrorCorrectionStr);
          if LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.MaximumCapacity<>$ 80000000 then
            WriteLn(Format( '  Maximum Capacity %d Kb ' ,[LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.MaximumCapacity]))
          else
            WriteLn(Format( '  Maximum Capacity %d bytes ' ,[LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.ExtendedMaximumCapacity]));

          WriteLn(Format( '  Memory devices   %d ' ,[LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.NumberofMemoryDevices]));
        end ;
        WriteLn;
      end
      else
      Writeln( ' No Memory Device Info was found ' );
  finally
   SMBios.Free;
  end ;
end ;


begin
 try
    GetMemoryDeviceInfo;
 except
    on E:Exception do
        Writeln(E.Classname, ' : ' , E.Message);
 end ;
 Writeln( ' Press Enter to exit ' );
 Readln;
end .

Aide à la perspicacité

Autre

Vous pouvez installer Delphinus Package Manager et installer TSMBIOS en tant que package. (Support Delphinus)