tsmbios

El SMBIOS (BIOS de gestión del sistema) es un estándar desarrollado por el DMTF. La información almacenada en el SMBIOS incluye fabricante de dispositivos, nombre del modelo, número de serie, versión de BIOS, etiqueta de activos, procesadores, puertos y memoria del dispositivo instalada.

TSMBIOS Libary permite el acceso al BIOS de gestión del sistema (SMBIOS) utilizando el lenguaje Pascal Object (Delphi o Pascal libre).

Características

• Totalmente documentado (XMLDOC), compatible con la función Help Insight, disponible desde Delphi 2005.
• Admite SMBIOS Versión 2.1 a 2.8.
• Compatible con Delphi 5 a través de Delphi 11 Alexandria.
• Funciona con FPC 2.4.0 o posterior.
• Admite Windows y Linux.
• Puede leer datos de SMBIOS de máquinas remotas utilizando WMI.

Tablas Smbios compatibles con

• Información del BIOS (tipo 0)
• Información del sistema (tipo 1)
• Información de la placa base (o módulo) (tipo 2)
• Recinto del sistema o chasis (tipo 3)
• Información del procesador (tipo 4)
• Información del controlador de memoria (tipo 5)
• Información del módulo de memoria (tipo 6)
• Información de caché (tipo 7)
• Información del conector de puerto (tipo 8)
• Ranuras del sistema (tipo 9)
• Información de dispositivos a bordo (tipo 10)
• Cadenas OEM (tipo 11)
• Opciones de configuración del sistema (Tipo 12)
• Información del lenguaje del BIOS (tipo 13)
• Asociaciones grupales (tipo 14)
• Registro de eventos del sistema (Tipo 15): no implementado
• Matriz de memoria física (tipo 16)
• Dispositivo de memoria (tipo 17)
• Dirección asignada por la matriz de memoria (Tipo 19)
• Dirección mapeada del dispositivo de memoria (Tipo 20)
• Dispositivo de punta incorporado (Tipo 21)
• Batería portátil (tipo 22)
• Restablecimiento del sistema (tipo 23): no implementado
• Sonda de voltaje (tipo 26)
• Dispositivo de enfriamiento (Tipo 27)
• Sonda de temperatura (tipo 28)
• Sonda de corriente eléctrica (tipo 29)
• Acceso remoto fuera de banda (Tipo 30): no implementado
• Información de error de memoria de 64 bits (tipo 33): no implementado
• Dispositivo de administración (tipo 34): no implementado
• Componente del dispositivo de administración (tipo 35): no implementado
• Datos de umbral del dispositivo de administración (tipo 36): no se implementa
• Canal de memoria (tipo 37): no implementado
• Fuente de alimentación del sistema (tipo 39): no implementado
• Información adicional (tipo 40): no implementado
• Información extendida de dispositivos a bordo (tipo 41): no implementado
• Interfaz de host del controlador de administración (tipo 42): no implementado

Muestra de código fuente

Este código demuestra cómo recuperar información relacionada con los dispositivos de memoria instalados en el sistema.

 { $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 .

Ayuda de información

Otro

Puede instalar Delphinus Package Manager e instalar TSMBIOS como un paquete allí. (Delphinus-respaldo)