|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
получить показания датчиков температуры пк
Здравствуйте!
Сижу уже день терзая гугл, но абсолютно ничего работающего не нашел..Все что не пробовал с 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; |
#2
|
|||
|
|||
Эх..видно совсем хардкорная тема оказалась=\
Пока настругал только функцию для чтения температуры 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 лет как минимум должен был появится не один велосипед-библиотека для доступа к датчикам материнки, но глухо... |
#3
|
||||
|
||||
Глянь дизассемблером, как те программы работают.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Цитата:
Да и кажись исходик OpenHardwareMonitor как бы нашел...но блин опять же не мои родные языки..но уж лучше чем читать тонну asmа.. https://code.google.com/p/open-hardw.../ATI/ATIGPU.cs |
#6
|
||||
|
||||
DigitalBrain, - вот нашёл на просторах интернета, у меня работает.
Показыват температуру Проца и матери. t_sensor.zip Програмистами не рождаются, ими становятся! |
#7
|
|||
|
|||
Цитата:
фиг там...ну у меня выбивает исключение EPrivilege: Privileged instruction от имени админа..что на win7 64bit что на XP 32bit...результат тот же..( |
#8
|
|||
|
|||
Цитата:
Да...включен. WMI как бы работает, но провайдеры датчиков температуры и скорости кулеров например не работают.. Ну а библиотека типов для работы с wmi конечно импортирована, да и тестил я для чистоты эксперимента чужим ехе для просмотра wmi |
#9
|
||||
|
||||
у меня такая же ошибка.
считал S.M.A.R.T через MSStorageDriver_ATAPISmartData, параметр HDA temperature (194) есть, но он не меняется добавлено позже ой, я перепутал датчик. показывает такую же температуру как и HWiNFO32.exe. как бы теперь температуру диска повысить... Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 26.09.2013 в 16:40. |
#10
|
||||
|
||||
Цитата:
jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 26.09.2013 в 21:28. |
#11
|
||||
|
||||
для 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 Пишу программы за еду. __________________ |
Эти 3 пользователя(ей) сказали Спасибо NumLock за это полезное сообщение: | ||
#12
|
|||
|
|||
Такс...2 дня трудов по чтению доков..перевода C++ хедеров ADL под делфи...и..таки удалось вытянуть инфу о температуре видеокарты от amd (ну и чуть еще инфы раз полез уже туда) , собственно только amd видео карты у меня везде и стоят..
По идее и инфу о скорости кулера видеокарты должно получать, но у меня нет ни одной с кулером- не геймер я особый: люблю тишину пассивного охлаждения) да и карточки только 2-х видов у меня(- Так что, люди добрые, хотелось бы узнать у владельцев amd карточек работает ли сей хело-ворлдовский ехешник собранный в lazarus?) осталось получить датчики с материнки цп/система..думаю тут проще будет) |
#13
|
||||
|
||||
Пишу программы за еду. __________________ |
#14
|
|||
|
|||
Цитата:
нус тогда под х32 версия |