[DigitalBrain]

Здравствуйте!
Сижу уже день терзая гугл, но абсолютно ничего работающего не нашел..Все что не пробовал с wmi не работает: или провайдера не существует или пустой список возвращает..
Как же все таки вытащить инфу о температуре компонентов пк? Кучи же подобного софта , казалось бы тривиальная задача, но на деле...
Вообще интересуют: HDD,System,CPU и GPU..
Вот этот код возвращает пустой список, пробовал на ноутбуках с разных эпох, результат тот же...Windows7/XP

Код:

 WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root  := WMIServices.ExecQuery('Select * FROM Win32_TemperatureProbe','WQL', 0, nil);
  for I := 0 to Root.Count - 1 do
  begin
    Item := Root.ItemIndex(I);
      Writeln('Accuracy                        '+VarToStr(Item.Accuracy));
      Writeln('Availability                    '+VarToStr(Item.Availability));
      Writeln('Caption                         '+Item.Caption);
      Writeln('Config Manager Error Code       '+VarToStr(Item.ConfigManagerErrorCode));
      Writeln('Config Manager User Config      '+VarToStr(Item.ConfigManagerUserConfig));
      Writeln('Creation Class Name             '+VarToStr(Item.CreationClassName));
      Writeln('Current Reading                 '+VarToStr(Item.CurrentReading));
      Writeln('Description                     '+VarToStr(Item.Description));
      Writeln('Device ID                       '+VarToStr(Item.DeviceID));
      Writeln('Error Cleared                   '+VarToStr(Item.ErrorCleared ));
      Writeln('Error Description               '+VarToStr(Item.ErrorDescription));
      Writeln('Install Date                    '+VarToStr(Item.InstallDate));
      Writeln('Is Linear                       '+VarToStr(Item.IsLinear));
      Writeln('Last Error Code                 '+VarToStr(Item.LastErrorCode));
      Writeln('Lower Threshold Critical        '+VarToStr(Item.LowerThresholdCritical));
      Writeln('Lower Threshold Fatal           '+VarToStr(Item.LowerThresholdFatal));
      Writeln('Lower Threshold NonCritical     '+VarToStr(Item.LowerThresholdNonCritical));
      Writeln('Max Readable                    '+VarToStr(Item.MaxReadable));
      Writeln('Min Readable                    '+VarToStr(Item.MinReadable));
      Writeln('Name                            '+VarToStr(Item.Name));
      Writeln('Nominal Reading                 '+VarToStr(Item.NominalReading));
      Writeln('Normal Max                      '+VarToStr(Item.NormalMax));
      Writeln('Normal Min                      '+VarToStr(Item.NormalMin ));
      Writeln('PNP Device ID                   '+VarToStr(Item.PNPDeviceID));
      Writeln('Power Management Capabilities   '+VarToStr(Item.PowerManagementCapabilities));
      Writeln('Power Management Supported      '+VarToStr(Item.PowerManagementSupported));
      Writeln('Resolution                      '+VarToStr(Item.Resolution));
      Writeln('Status                          '+VarToStr(Item.Status));
      Writeln('Status Info                     '+VarToStr(Item.StatusInfo));
      Writeln('System Creation Class Name      '+VarToStr(Item.SystemCreationClassName));
      Writeln('System Name                     '+VarToStr(Item.SystemName));
      Writeln('Tolerance                       '+VarToStr(Item.Tolerance));
      Writeln('Upper Threshold Critical        '+VarToStr(Item.UpperThresholdCritical));
      Writeln('Upper Threshold Fatal           '+VarToStr(Item.UpperThresholdFatal));
      Writeln('Upper Threshold NonCritical     '+VarToStr(Item.UpperThresholdNonCritical));
      Writeln('');
  end;
end;

[DigitalBrain]

Эх..видно совсем хардкорная тема оказалась=\

Пока настругал только функцию для чтения температуры HDD:

Код:

Function GetHDDTemperarure(DriveIndex:byte;out Temperature:SmallInt):Boolean;
Type
 TSmartData = Array [0..$20F] of Byte;
Var
 Op: TSmartData;
 H: Cardinal;
 br: DWORD;
begin
 Result:=false;
 try
  H:= CreateFile(PChar('\\.\PhysicalDrive'+IntToStr(DriveIndex)),$C0000000,3,nil, 3,0,0);
  DeviceIoControl(H,$0007C088,@Ip,$20,@Op,$210,br,nil);
  CloseHandle(H);
  Temperature:=Op[$A8]*$FF+Op[$A7];
  if(Temperature>-50) And (Temperature<200) then
  begin
   Result:=true;
  end;
 except
 end;
end;

заставить WMI хоть что то показать не удалось на 4 разных машинах...в TermalZone есть пара значений, но ни одной температуре они не соответствуют..да и они всегда константные(
Нарыл программу http://openhardwaremonitor.org/ , которая судя по доках может экспортировать свои данные в WMI...пока не удалось ее вкурить...
Куча бесплатного подобного софта, и ни одного примера исходного кода, неужели они напрямую по портам к контроллеру обращаются Оо за 10 лет как минимум должен был появится не один велосипед-библиотека для доступа к датчикам материнки, но глухо...

[M.A.D.M.A.N.]

Глянь дизассемблером, как те программы работают.

[Alegun]

Сообщение от DigitalBrain

...Все что не пробовал с wmi не работает...

Стесняюсь спросить - а у вас сервис WMI в системе вообще запущен? Он по умолчанию отключен, да и в делфи, как я понял, нужно ещё ОСХ-компонент доустановить.

[DigitalBrain]

Сообщение от M.A.D.M.A.N.

Глянь дизассемблером, как те программы работают.

К сожалению, я не такой джедай с ASMом под x86 чтоб осилить реинжениринг...мой уровень там- пару функций аля хеловорд..
Да и кажись исходик OpenHardwareMonitor как бы нашел...но блин опять же не мои родные языки..но уж лучше чем читать тонну asmа..
https://code.google.com/p/open-hardw.../ATI/ATIGPU.cs

[SCrat.ORS]

DigitalBrain, - вот нашёл на просторах интернета, у меня работает.
Показыват температуру Проца и матери.
t_sensor.zip

[DigitalBrain]

Сообщение от SCrat.ORS

DigitalBrain, - вот нашёл на просторах интернета, у меня работает.
Показыват температуру Проца и матери.
Вложение 4085

фиг там...ну у меня выбивает исключение EPrivilege: Privileged instruction от имени админа..что на win7 64bit что на XP 32bit...результат тот же..(

[DigitalBrain]

Сообщение от Alegun

Стесняюсь спросить - а у вас сервис WMI в системе вообще запущен? Он по умолчанию отключен, да и в делфи, как я понял, нужно ещё ОСХ-компонент доустановить.

Да...включен. WMI как бы работает, но провайдеры датчиков температуры и скорости кулеров например не работают..
Ну а библиотека типов для работы с wmi конечно импортирована, да и тестил я для чистоты эксперимента чужим ехе для просмотра wmi

[NumLock]

у меня такая же ошибка.


считал S.M.A.R.T через MSStorageDriver_ATAPISmartData, параметр HDA temperature (194) есть, но он не меняется


добавлено позже
ой, я перепутал датчик. показывает такую же температуру как и HWiNFO32.exe. как бы теперь температуру диска повысить...

[Bargest]

фиг там...ну у меня выбивает исключение EPrivilege: Privileged instruction от имени админа..что на win7 64bit что на XP 32bit...результат тот же..(

Понятное дело - команды in/out процессор не даст исполнять ни с какими правами админа, если в таблице IO портов (кажись в TSS) доступ запрещен. Потому что права админа - понятие ОС, а аппаратная защита - процессора. Скорее всего для работы нужен еще тот самый giveo.sys - но не известно, насколько он работает на современных системах. Может его неспроста не включают в стандартную поставку Windows.

[NumLock]

для HDD:

Код:

procedure GetTemperature(var Airflow, HDA, Temperature: Integer);
var
  objLocator: ISWbemLocator;
  objServices: ISWbemServices;
  objObjectSet: ISWbemObjectSet;
  EnumSet: IEnumVariant;
  SetVar: OleVariant;
  Fetched: Cardinal;
  objObject: ISWbemObject;
  objProperty: ISWbemProperty;
  v: OleVariant;
  i: Integer;
begin
  Airflow:=-1;
  HDA:=-1;
  Temperature:=-1;
  objLocator:=CreateComObject(CLASS_SWbemLocator) as ISWbemLocator;
  objServices:=objLocator.ConnectServer('', 'root\WMI', '', '', '', '', 0, nil);
  objObjectSet:=objServices.ExecQuery('select * from MSStorageDriver_ATAPISmartData', 'WQL', 0, nil);
  EnumSet:=IUnknown(objObjectSet._NewEnum) as IEnumVariant;
  while EnumSet.Next(1, SetVar, Fetched)=S_OK do
  begin
    objObject:=IUnknown(SetVar) as ISWbemObject;
    objProperty:=objObject.Properties_.Item('VendorSpecific', 0);
    if (objProperty.CIMType=wbemCimtypeUint8) and objProperty.IsArray then
    begin
      v:=objProperty.Get_Value;
      for i:=0 to ((VarArrayHighBound(v, 1)-1) div 12)-1 do
      begin
        if v[2+i*12]=190 then Airflow:=v[2+i*12+3];
        if v[2+i*12]=194 then HDA:=v[2+i*12+3];
        if v[2+i*12]=231 then Temperature:=v[2+i*12+3];
      end;
    end;
  end;
end;

только нужно исправить код для нескольких жестких дисков, иначе будет выдавать для последнего.

http://zalil.ru/34744720

[DigitalBrain]

Такс...2 дня трудов по чтению доков..перевода C++ хедеров ADL под делфи...и..таки удалось вытянуть инфу о температуре видеокарты от amd (ну и чуть еще инфы раз полез уже туда) , собственно только amd видео карты у меня везде и стоят..
По идее и инфу о скорости кулера видеокарты должно получать, но у меня нет ни одной с кулером- не геймер я особый: люблю тишину пассивного охлаждения) да и карточки только 2-х видов у меня(-

Так что, люди добрые, хотелось бы узнать у владельцев amd карточек работает ли сей хело-ворлдовский ехешник собранный в lazarus?)

осталось получить датчики с материнки цп/система..думаю тут проще будет)

[NumLock]

[DigitalBrain]

Сообщение от NumLock

ой...нежданчик...win32 Оо во времена нетбуков с 10гб озу Оо)
нус тогда под х32 версия