tsmbios 다운로드 tsmbios 소스 코드 다운로드

tsmbios

델파이 소스 코드

1.0.0

다운로드

SMBIOS (System Management BIOS)는 DMTF가 개발 한 표준입니다. SMBIOS에 저장된 정보에는 장치 제조업체, 모델 이름, 일련 번호, BIOS 버전, 자산 태그, 프로세서, 포트 및 장치 메모리가 포함됩니다.

심벌 마크 TSMBIOS Libary는 객체 Pascal Language (Delphi 또는 Free Pascal)를 사용하여 SMBIOS (System Management BIOS)에 액세스 할 수 있습니다.

특징

Delphi 2005 이후로 제공되는 Help Insight 기능과 호환되는 완전히 문서화 (XMLDOC).
SMBIOS 버전 2.1 ~ 2.8을 지원합니다.
Delphi 5와 Delphi 11 Alexandria와 호환됩니다.
FPC 2.4.0 이상으로 작동합니다.
Windows 및 Linux를 지원합니다.
WMI를 사용하여 원격 기계의 SMBIOS 데이터를 읽을 수 있습니다.

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 .