Unduh tsmbios - Unduh Kode Sumber tsmbios

tsmbios

Kode sumber Delphi

1.0.0

Unduh

SMBIOS (BIOS Manajemen Sistem) adalah standar yang dikembangkan oleh DMTF. Informasi yang disimpan dalam SMBIOS mencakup produsen perangkat, nama model, nomor seri, versi BIOS, tag aset, prosesor, port dan memori perangkat yang diinstal.

logo Libary TSMBIOS memungkinkan akses BIOS manajemen sistem (SMBIO) menggunakan bahasa Pascal Object (Delphi atau Pascal gratis).

Fitur

Sepenuhnya didokumentasikan (XMLDOC), kompatibel dengan fitur Help Insight, tersedia sejak Delphi 2005.
Mendukung SMBIOS Versi 2.1 hingga 2.8.
Kompatibel dengan Delphi 5 hingga Delphi 11 Alexandria.
Bekerja dengan FPC 2.4.0 atau lebih baru.
Mendukung Windows dan Linux.
Dapat membaca data SMBIOS dari mesin jarak jauh menggunakan WMI.

Tabel SMBIOS didukung

Informasi BIOS (Tipe 0)
Informasi Sistem (Tipe 1)
Informasi Baseboard (atau Modul) (Tipe 2)
Enklosur atau sasis sistem (Tipe 3)
Informasi Prosesor (Tipe 4)
Informasi Pengontrol Memori (Tipe 5)
Informasi Modul Memori (Tipe 6)
Informasi cache (Tipe 7)
Informasi Konektor Port (Tipe 8)
Slot Sistem (Tipe 9)
Informasi perangkat di papan (Tipe 10)
String OEM (tipe 11)
Opsi Konfigurasi Sistem (Jenis 12)
Informasi Bahasa BIOS (Tipe 13)
Asosiasi Grup (Tipe 14)
Log Acara Sistem (Tipe 15) - Tidak Diimplementasikan
Array Memori Fisik (Tipe 16)
Perangkat memori (ketik 17)
Alamat pemetaan array memori (tipe 19)
Alamat Memetakan Perangkat Memori (Tipe 20)
Perangkat penunjuk bawaan (Tipe 21)
Baterai portabel (tipe 22)
Sistem Reset (Tipe 23) - Tidak Diimplementasikan
Probe tegangan (tipe 26)
Perangkat pendingin (ketik 27)
Probe suhu (tipe 28)
Probe Arus Listrik (Tipe 29)
Akses jarak jauh di luar band (Tipe 30)-tidak diimplementasikan
Informasi kesalahan memori 64 -bit (Type 33) - tidak diimplementasikan
Perangkat manajemen (Tipe 34) - tidak diimplementasikan
Komponen Perangkat Manajemen (Tipe 35) - Tidak diimplementasikan
Data ambang batas perangkat manajemen (Tipe 36) - tidak diimplementasikan
Saluran Memori (Tipe 37) - Tidak Diimplementasikan
Catu Daya Sistem (Tipe 39) - Tidak diimplementasikan
Informasi tambahan (Tipe 40) - tidak diterapkan
Perangkat Onboard Informasi Diperpanjang (Tipe 41) - Tidak Diimplementasikan
Antarmuka Host Pengontrol Manajemen (Tipe 42) - Tidak diimplementasikan

Kode Sumber Sampel

Kode ini menunjukkan cara mengambil informasi yang terkait dengan perangkat memori yang diinstal pada sistem.

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