Download do tsmbios - Download do código -fonte tsmbios

tsmbios

Código fonte Delphi

1.0.0

Baixar

O SMBIOS (BIOS de gerenciamento do sistema) é um padrão desenvolvido pelo DMTF. As informações armazenadas no SMBIOS incluem fabricante de dispositivos, nome do modelo, número de série, versão do BIOS, etiqueta de ativo, processadores, portas e memória de dispositivo instalada.

logotipo O TSMBIOS Libary permite acessar o System Management BIOS (SMBIOS) usando a linguagem Pascal do objeto (Delphi ou Pascal gratuito).

Características

Totalmente documentado (XMLDOC), compatível com o recurso de ajuda, disponível desde o Delphi 2005.
Suporta SMBIOS versão 2.1 a 2.8.
Compatível com Delphi 5 através de Delphi 11 Alexandria.
Trabalha com o FPC 2.4.0 ou posterior.
Suporta Windows e Linux.
Pode ler dados SMBIOS de máquinas remotas usando o WMI.

Tabelas SMBIOS Suportadas

Informações do BIOS (Tipo 0)
Informações do sistema (tipo 1)
Informações sobre rodapé (ou módulo) (Tipo 2)
Gabinete do sistema ou chassi (tipo 3)
Informações do processador (tipo 4)
Informações do controlador de memória (tipo 5)
Informações do módulo de memória (tipo 6)
Informações sobre cache (tipo 7)
Informações do conector da porta (tipo 8)
Slots do sistema (tipo 9)
Informações sobre dispositivos a bordo (tipo 10)
Strings OEM (tipo 11)
Opções de configuração do sistema (tipo 12)
Informações do idioma do BIOS (Tipo 13)
Associações de grupo (tipo 14)
Log do evento do sistema (tipo 15) - não implementado
Matriz de memória física (tipo 16)
Dispositivo de memória (tipo 17)
Endereço mapeado da matriz de memória (tipo 19)
Endereço mapeado do dispositivo de memória (tipo 20)
Dispositivo de apontamento embutido (tipo 21)
Bateria portátil (tipo 22)
Redefinição do sistema (tipo 23) - não implementado
Sonda de tensão (tipo 26)
Dispositivo de resfriamento (tipo 27)
Sonda de temperatura (tipo 28)
Sonda de corrente elétrica (tipo 29)
Acesso remoto fora da banda (tipo 30)-não implementado
Informações de erro de memória de 64 bits (tipo 33) - não implementado
Dispositivo de gerenciamento (tipo 34) - não implementado
Componente do dispositivo de gerenciamento (tipo 35) - não implementado
Dados do limite do dispositivo de gerenciamento (tipo 36) - não implementado
Canal de memória (tipo 37) - não implementado
Fonte de alimentação do sistema (tipo 39) - não implementado
Informações adicionais (tipo 40) - não implementado
Dispositivos a bordo de informações estendidas (tipo 41) - não implementado
Interface do host do controlador de gerenciamento (tipo 42) - não implementado

Amostra de código -fonte

Este código demonstra como recuperar informações relacionadas aos dispositivos de memória instalados no 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 .