tsmbios下載tsmbios源代碼下載

tsmbios

Delphi源碼

1.0.0

下載

SMBIO（系統管理BIOS）是由DMTF開發的標準。存儲在SMBIOS中的信息包括設備製造商，型號，序列號，BIOS版本，資產標籤，處理器，端口和設備內存。

TSMBIO的LIBARY允許使用對象Pascal語言（Delphi或Free Pascal）訪問系統管理BIOS（SMBIO）。

特徵

完全記錄的（XMLDOC），與自2005年Delphi自2005年以來的幫助洞察力兼容。
支持SMBIOS版本2.1至2.8。
與Delphi 5到Delphi 11 Alexandria兼容。
使用FPC 2.4.0或更高版本。
支持Windows和Linux。
可以使用WMI從遠程計算機讀取SMBIO數據。

支持SMBIOS表

BIOS信息（類型0）
系統信息（類型1）
踢腳線（或模塊）信息（類型2）
系統外殼或機箱（3型）
處理器信息（4類）
內存控制器信息（類型5）
內存模塊信息（類型6）
緩存信息（類型7）
端口連接器信息（類型8）
系統插槽（9型）
板上設備信息（類型10）
OEM字符串（類型11）
系統配置選項（類型12）
BIOS語言信息（類型13）
小組協會（類型14）
系統事件日誌（類型15） - 未實現
物理內存數組（類型16）
內存設備（類型17）
內存陣列映射地址（類型19）
存儲設備映射地址（類型20）
內置指向設備（21型）
便攜式電池（22型）
系統重置（類型23） - 未實施
電壓探頭（26型）
冷卻設備（27型）
溫度探針（28型）
電流探針（29型）
帶外遠程訪問（鍵入30） - 未實現
64位內存錯誤信息（類型33） - 未實現
管理設備（類型34） - 未實施
管理設備組件（類型35） - 未實現
管理設備閾值數據（類型36） - 未實施
內存頻道（類型37） - 未實現
系統電源（類型39） - 未實施
其他信息（類型40） - 未實施
板載設備擴展信息（類型41） - 未實現
管理控制器主機接口（類型42） - 未實現

示例源代碼

該代碼演示瞭如何檢索與系統上安裝的內存設備相關的信息。

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