tsmbios

SMBIOS (BIOS لإدارة النظام) هو معيار تم تطويره بواسطة DMTF. تتضمن المعلومات المخزنة في SMBIOS الشركة المصنعة للأجهزة ، واسم النموذج ، والرقم التسلسلي ، وإصدار BIOS ، وعلامة الأصول ، والمعالجات ، والمنافذ ، وذاكرة الجهاز المثبتة.

يتيح TSMBIOS Libary الوصول إلى BIOS لإدارة النظام (SMBIOs) باستخدام لغة الكائن Pascal (Delphi أو Free Pascal).

سمات

• موثقة بالكامل (XMLDOC) ، متوافقة مع ميزة BENDING Insight ، المتوفرة منذ Delphi 2005.
• يدعم الإصدار SMBIOS 2.1 إلى 2.8.
• متوافق مع Delphi 5 من خلال Delphi 11 Alexandria.
• يعمل مع FPC 2.4.0 أو أحدث.
• يدعم Windows و Linux.
• يمكن قراءة بيانات SMBIOS من الآلات البعيدة باستخدام WMI.

طاولات SMBIOS مدعومة

• معلومات BIOS (النوع 0)
• معلومات النظام (النوع 1)
• معلومات اللوحة (أو الوحدة النمطية) (النوع 2)
• حاوية النظام أو الهيكل (النوع 3)
• معلومات المعالج (النوع 4)
• معلومات وحدة تحكم الذاكرة (النوع 5)
• معلومات وحدة الذاكرة (النوع 6)
• معلومات ذاكرة التخزين المؤقت (النوع 7)
• معلومات موصل المنفذ (النوع 8)
• فتحات النظام (النوع 9)
• على معلومات الأجهزة (النوع 10)
• سلاسل OEM (النوع 11)
• خيارات تكوين النظام (النوع 12)
• معلومات لغة BIOS (النوع 13)
• جمعيات المجموعة (النوع 14)
• سجل أحداث النظام (النوع 15) - لم يتم تنفيذه
• صفيف الذاكرة الفعلية (النوع 16)
• جهاز الذاكرة (النوع 17)
• عنوان Memory Array عنوان (النوع 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 .

مساعدة البصيرة

آخر

يمكنك تثبيت Delphinus Package Manager وتثبيت TSMBIOS كحزمة هناك. (دعم دلفينوس)