Features
- Supports SMBIOS Version 2.1 to 3.9.
- Compatible with Delphi 5 through Delphi 13 Florence.
- Fully documented (XMLDoc), compatible with the Help Insight feature, available since Delphi 2005.
- Works with FPC 2.4.0 or later.
- Supports Windows and Linux.
- Can read SMBIOS data from remote machines using WMI.
- Exposes the SMBIOS 3.x fixed-layout fields added to the supported table types, including BIOS ROM size, processor core/thread counts, cache sizes, system slot bus data, and memory device technology, firmware, persistent memory, speed, PMIC, and RCD data.
SMBIOS Tables supported
| SMBIOS Table | |||
|---|---|---|---|
| BIOS Information (Type 0) | Delphi | FPC | C++ Builder |
| System Information (Type 1) | Delphi | FPC | C++ Builder |
| Baseboard (or Module) Information (Type 2) | Delphi | FPC | C++ Builder |
| System Enclosure or Chassis (Type 3) | Delphi | FPC | C++ Builder |
| Processor Information (Type 4) | Delphi | FPC | C++ Builder |
| Memory Controller Information (Type 5) | Delphi | FPC | C++ Builder |
| Memory Module Information (Type 6) | Delphi | FPC | C++ Builder |
| Cache Information (Type 7) | Delphi | FPC | C++ Builder |
| Port Connector Information (Type 8) | Delphi | FPC | C++ Builder |
| System Slots (Type 9) | Delphi | FPC | C++ Builder |
| On Board Devices Information (Type 10) | Delphi | FPC | C++ Builder |
| OEM Strings (Type 11) | Delphi | FPC | C++ Builder |
| System Configuration Options (Type 12) | Delphi | FPC | C++ Builder |
| BIOS Language Information (Type 13) | Delphi | FPC | C++ Builder |
| Group Associations (Type 14) | Delphi | FPC | C++ Builder |
| System Event Log (Type 15) | Delphi | FPC | C++ Builder |
| Physical Memory Array (Type 16) | Delphi | FPC | C++ Builder |
| Memory Device (Type 17) | Delphi | FPC | C++ Builder |
| 32-Bit Memory Error Information (Type 18) | Delphi | FPC | C++ Builder |
| Memory Array Mapped Address (Type 19) | Delphi | FPC | C++ Builder |
| Memory Device Mapped Address (Type 20) | Delphi | FPC | C++ Builder |
| Built-in Pointing Device (Type 21) | Delphi | FPC | C++ Builder |
| Portable Battery (Type 22) | Delphi | FPC | C++ Builder |
| System Reset (Type 23) | Delphi | FPC | C++ Builder |
| Hardware Security (Type 24) | Delphi | FPC | C++ Builder |
| System Power Controls (Type 25) | Delphi | FPC | C++ Builder |
| Voltage Probe (Type 26) | Delphi | FPC | C++ Builder |
| Cooling Device (Type 27) | Delphi | FPC | C++ Builder |
| Temperature Probe (Type 28) | Delphi | FPC | C++ Builder |
| Electrical Current Probe (Type 29) | Delphi | FPC | C++ Builder |
| Out-of-Band Remote Access (Type 30) | Delphi | FPC | C++ Builder |
| Boot Integrity Services Entry Point (Type 31) | Delphi | FPC | C++ Builder |
| System Boot Information (Type 32) | Delphi | FPC | C++ Builder |
| 64-Bit Memory Error Information (Type 33) | Delphi | FPC | C++ Builder |
| Management Device (Type 34) | Delphi | FPC | C++ Builder |
| Management Device Component (Type 35) | Delphi | FPC | C++ Builder |
| Management Device Threshold Data (Type 36) | Delphi | FPC | C++ Builder |
| Memory Channel (Type 37) | Delphi | FPC | C++ Builder |
| IPMI Device Information (Type 38) | Delphi | FPC | C++ Builder |
| System Power Supply (Type 39) | Delphi | FPC | C++ Builder |
| Additional Information (Type 40) | Delphi | FPC | C++ Builder |
| Onboard Devices Extended Information (Type 41) | Delphi | FPC | C++ Builder |
| Management Controller Host Interface (Type 42) | Delphi | FPC | C++ Builder |
| TPM Device (Type 43) | Delphi | FPC | C++ Builder |
| Processor Additional Information (Type 44) | Delphi | FPC | C++ Builder |
| Firmware Inventory Information (Type 45) | Delphi | FPC | C++ Builder |
| String Property (Type 46) | Delphi | FPC | C++ Builder |
Sample source code
This code demonstrates how to retrieve information related to the memory devices installed on the system.
{$APPTYPE CONSOLE} {$R *.res} uses Classes, SysUtils, uSMBIOS in '..\..\source\uSMBIOS.pas'; procedure GetMemoryDeviceInfo; Var SMBios: TSMBios; LMemoryDevice: TMemoryDeviceInformation; begin SMBios := TSMBios.Create; try WriteLn('Memory Device Information'); WriteLn('-------------------------'); if SMBios.HasMemoryDeviceInfo then for LMemoryDevice in SMBios.MemoryDeviceInfo 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 MT/s',[LMemoryDevice.GetSpeed])); if SMBiosAtLeast(SMBios, 2, 7) and LMemoryDevice.HasConfiguredMemorySpeed then WriteLn(Format('Configured Speed %d MT/s',[LMemoryDevice.GetConfiguredMemorySpeed])); if SMBiosAtLeast(SMBios, 3, 2) then begin if LMemoryDevice.HasMemoryTechnology then WriteLn(Format('Technology %s',[LMemoryDevice.GetMemoryTechnologyStr])); if LMemoryDevice.HasFirmwareVersion then WriteLn(Format('Firmware %s',[LMemoryDevice.FirmwareVersionStr])); if LMemoryDevice.HasNonVolatileSize then WriteLn(Format('Non-Volatile %d bytes',[LMemoryDevice.GetNonVolatileSize])); if LMemoryDevice.HasVolatileSize then WriteLn(Format('Volatile %d bytes',[LMemoryDevice.GetVolatileSize])); if LMemoryDevice.HasCacheSize then WriteLn(Format('Cache %d bytes',[LMemoryDevice.GetCacheSize])); if LMemoryDevice.HasLogicalSize then WriteLn(Format('Logical %d bytes',[LMemoryDevice.GetLogicalSize])); end; if SMBiosAtLeast(SMBios, 3, 7) and LMemoryDevice.HasPMIC0 then begin WriteLn(Format('PMIC0 Manufacturer ID %.4x',[LMemoryDevice.GetPMIC0ManufacturerID])); WriteLn(Format('PMIC0 Revision Number %.4x',[LMemoryDevice.GetPMIC0RevisionNumber])); end; if SMBiosAtLeast(SMBios, 3, 7) and LMemoryDevice.HasRCD then begin WriteLn(Format('RCD Manufacturer ID %.4x',[LMemoryDevice.GetRCDManufacturerID])); WriteLn(Format('RCD Revision Number %.4x',[LMemoryDevice.GetRCDRevisionNumber])); end; 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 Assigned(LMemoryDevice.PhysicalMemoryArray) 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 if LMemoryDevice.PhysicalMemoryArray.HasExtendedMaximumCapacity then WriteLn(Format(' Maximum Capacity %d bytes',[LMemoryDevice.PhysicalMemoryArray.GetExtendedMaximumCapacity])) else WriteLn(' Maximum Capacity Unknown'); 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.