ดาวน์โหลด tsmbios - ดาวน์โหลดซอร์สโค้ด tsmbios

tsmbios

ซอร์สโค้ดเดลฟี

1.0.0

ดาวน์โหลด

SMBIOS (BIOS การจัดการระบบ) เป็นมาตรฐานที่พัฒนาโดย DMTF ข้อมูลที่เก็บไว้ใน SMBIOS รวมถึงผู้ผลิตอุปกรณ์ชื่อรุ่นหมายเลขซีเรียลเวอร์ชัน BIOS แท็กสินทรัพย์โปรเซสเซอร์พอร์ตและหน่วยความจำอุปกรณ์ที่ติดตั้ง

โลโก้ TSMBIOS libary อนุญาตให้เข้าถึง BIOS การจัดการระบบ (SMBIOS) โดยใช้ภาษา Pascal Object (Delphi หรือ Pascal ฟรี)

คุณสมบัติ

เอกสารเต็มรูปแบบ (XMLDOC) เข้ากันได้กับฟีเจอร์ Help 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 Strings (ประเภท 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 .