[LEЖIK]

я конечно понимаю что эти темы уже есть по отдельности но я там не нашел понятного ответа на эти вопросы. думаю эта тема будет многим интересна т.к. я блин уже давольно долго не могу найти ответы на эти вопросы в нете...еще просьба не отвечать типа температуру камня мона считать в реестре с hkey dyn data предварительно включив с4етчик startstat - пробовал, давольно долго мучился и ничего не получил
З.Ы.
кто знает просьба писать с пояснениями))

[moo2k]

Вот почитай тут или тут на русском языке. Больше ничего найти не смог.

[LEЖIK]

в русской инфе насчет температуры ни... не понял - но папробую разобрацца))) за инфу спасиба

[LEЖIK]

нащел рабочий пример получения загруза камня:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110

const SystemBasicInformation = 0; SystemPerformanceInformation = 2; SystemTimeInformation = 3; type TPDWord = ^DWORD; TSystem_Basic_Information = packed record    dwUnknown1: DWORD;    uKeMaximumIncrement: ULONG;    uPageSize: ULONG;    uMmNumberOfPhysicalPages: ULONG;    uMmLowestPhysicalPage: ULONG;    uMmHighestPhysicalPage: ULONG;    uAllocationGranularity: ULONG;    pLowestUserAddress: Pointer;    pMmHighestUserAddress: Pointer;    uKeActiveProcessors: ULONG;    bKeNumberProcessors: byte;    bUnknown2: byte;    wUnknown3: word; end; type TSystem_Performance_Information = packed record    liIdleTime: LARGE_INTEGER; {LARGE_INTEGER}    dwSpare: array[0..75] of DWORD; end; type TSystem_Time_Information = packed record    liKeBootTime: LARGE_INTEGER;    liKeSystemTime: LARGE_INTEGER;    liExpTimeZoneBias: LARGE_INTEGER;    uCurrentTimeZoneId: ULONG;    dwReserved: DWORD; end; var NtQuerySystemInformation: function(infoClass: DWORD;    buffer: Pointer;    bufSize: DWORD;    returnSize: TPDword): DWORD; stdcall = nil; liOldIdleTime: LARGE_INTEGER = (); liOldSystemTime: LARGE_INTEGER = (); function Li2Double(x: LARGE_INTEGER): Double; begin Result := x.HighPart * 4.294967296E9 + x.LowPart end; procedure GetCPUUsage; var SysBaseInfo: TSystem_Basic_Information; SysPerfInfo: TSystem_Performance_Information; SysTimeInfo: TSystem_Time_Information; status: Longint; {long} dbSystemTime: Double; dbIdleTime: Double; bLoopAborted : boolean; begin if @NtQuerySystemInformation = nil then    NtQuerySystemInformation := GetProcAddress(GetModuleHandle('ntdll.dll'),      'NtQuerySystemInformation'); // get number of processors in the system status := NtQuerySystemInformation(SystemBasicInformation, @SysBaseInfo, SizeOf(SysBaseInfo), nil); if status <> 0 then Exit; // Show some information with SysBaseInfo do begin      ShowMessage(      Format('uKeMaximumIncrement: %d'#13'uPageSize: %d'#13+      'uMmNumberOfPhysicalPages: %d'+#13+'uMmLowestPhysicalPage: %d'+#13+      'uMmHighestPhysicalPage: %d'+#13+'uAllocationGranularity: %d'#13+      'uKeActiveProcessors: %d'#13'bKeNumberProcessors: %d',      [uKeMaximumIncrement, uPageSize, uMmNumberOfPhysicalPages,      uMmLowestPhysicalPage, uMmHighestPhysicalPage, uAllocationGranularity,      uKeActiveProcessors, bKeNumberProcessors])); end; bLoopAborted := False; while not bLoopAborted do begin    // get new system time    status := NtQuerySystemInformation(SystemTimeInformation, @SysTimeInfo, SizeOf(SysTimeInfo), 0);    if status <> 0 then Exit;    // get new CPU's idle time    status := NtQuerySystemInformation(SystemPerformanceInformation, @SysPerfInfo, SizeOf(SysPerfInfo), nil);    if status <> 0 then Exit;    // if it's a first call - skip it    if (liOldIdleTime.QuadPart <> 0) then    begin      // CurrentValue = NewValue - OldValue      dbIdleTime := Li2Double(SysPerfInfo.liIdleTime) - Li2Double(liOldIdleTime);      dbSystemTime := Li2Double(SysTimeInfo.liKeSystemTime) - Li2Double(liOldSystemTime);      // CurrentCpuIdle = IdleTime / SystemTime      dbIdleTime := dbIdleTime / dbSystemTime;      // CurrentCpuUsage% = 100 - (CurrentCpuIdle * 100) / NumberOfProcessors      dbIdleTime := 100.0 - dbIdleTime * 100.0 / SysBaseInfo.bKeNumberProcessors + 0.5;      // Show Percentage      Form1.Label1.Caption := FormatFloat('CPU Usage: 0.0 %',dbIdleTime);      Application.ProcessMessages;      // Abort if user pressed ESC or Application is terminated      bLoopAborted := (GetKeyState(VK_ESCAPE) and 128 = 128) or Application.Terminated;    end;    // store new CPU's idle and system time    liOldIdleTime := SysPerfInfo.liIdleTime;    liOldSystemTime := SysTimeInfo.liKeSystemTime;    // wait one second    Sleep(1000); end; end;   procedure TForm1.Button1Click(Sender: TObject); begin GetCPUUsage end;

у меня фсе работает)))

[cadil]

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

Вот почитай тут или тут на русском языке. Больше ничего найти не смог.

Хотелось бы программно вытащить информацию о температуре процессора и использовать ее при формировании управляющего сигнала для изменения скорости вращения вентилятора кулера. В линке на русском слишком много ограничений - там не работает, это не тестировал и т.д.
Тем не менее, существует много программ (например, SpeedFan), которые выводят температуру в разных точках и кучу других параметров компа вне зависимости от изготовителя комплектующих.
Найти бы адресок исходника такого продукта! Помогите!

[zip000]

http://www.xard.ru/post/10920/default.asp
Там правда на С++, но на Delphi переносится элементарно.

[cadil]

[quote=zip000]http://www.xard.ru/post/10920/default.asp
Там правда на С++, но на Delphi переносится элементарно.[/Q]

Спасибо за ссылку. На Delphi, наверное, переносится элементарно, но не с моим уровнем...

Решил вопрос проще - поставил терморезистор. Все остальное - дело техники.

[ControlFreak]

Помогите перевеси код из С++ в делфи. Так же не могу найти примеров кода для снятия показаний датчиков температуры, тут хоть для с++ есть осталось тока первести но я с++ не знаю вообще : ) ХЕЛП!

[ControlFreak]

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

Помогите перевеси код из С++ в делфи. Так же не могу найти примеров кода для снятия показаний датчиков температуры, тут хоть для с++ есть осталось тока первести но я с++ не знаю вообще : ) ХЕЛП!

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

int indexPort = 0x295;   int dataPort = 0x296;   Теперь напишем функцию, возвращающую содержимое регистра SuperIO чипа по его индексу.   int ListenPort(int index)   {   PortOut(indexPort, index);   return PortIn(dataPort);   }   Также нам понадобится функция, записывающая некоторое значение в регистр SuperIO чипа по его индексу.   void SendPort(int index, int data)   {   PortOut(indexPort, index);   PortOut(dataPort, data);   }   Полагаем, что приведенный код абсолютно понятен и в комментариях не нуждается.   Теперь мы можем разработать функцию, возвращающую показание термодатчика. В качестве параметра функции передается его номер (смотри Листинг 1).   int getTemp(int TempNum)   {   int TempPort;   if (TempNum == 1)   {   TempPort = 0x29;   }   else {   if (TempNum == 2)   {   TempPort = 0x2A;   }   else {   if (TempNum == 3)   {   TempPort = 0x2B;   }   }   }   return ListenPort(TempPort);   }

Admin: Пользуемся тегами!

[Rokuell]

Вот перевод:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

uses io;   const indexPort:word = $295;         dataPort:word = $296;     function ListenPort(index:byte):byte; begin  PortOut(indexPort, index);  Result :=  PortIn(dataPort); end;   procedure SendPort(index:byte; data:byte); begin  PortOut(indexPort, index);  PortOut(dataPort, data); end;   function getTemp(TempNum:byte):byte; begin    if TempNum=1 then Result := ListenPort($29)    else if TempNum=2 then Result := ListenPort($2A)    else if TempNum=3 then Result := ListenPort($2B)    else Result := 0; end;   procedure TForm1.Button1Click(Sender: TObject); begin  ShowMessage ( IntToStr(getTemp(1))  ); end;

Заголовочный файл io.pas и библиотека io.dll в архиве.

P.S. ВАЖНО: Если функции экспортируемые из io.dll не указывать как stdcall то возможны ошибки, вплоть до вылета на синий экран смерти (Как это было у меня)

[ControlFreak]

файл IO.dcu не найден

[ControlFreak]

в общем совместными услилиями решили это дело !
для ITF 8712f адерса 29,2A,2B
для w83627DHG адреса 27,50,51
незнаю как делать теги поэтому прилагаю файл с кодом в текстовом файле : ) Научите теги писать что бы код прятать ?!
так же в архиве ответы на вапросы как установить IO.dll и сама io.dll
Проверено лично на материнской плате ASUS p5b deluxe каторая имеет w83627DHG показания первого и второго датчика совпали с показаниями программы ЭВЕРЕСТ , третий датчик показывал от 0 до 128 причина в том что он не задействован : )
Возникают проблемы при использовании на микросхемах w83627HF , читается только показания первого датчика(северный мост).Остальные не тестировал, по всей видимости надо обращатся в первый банк а не нулевой а как это сделать низнаю : )

[DungeonLords]

Конкретно тег код писать так:
поскольку написать тег я не могу, он сразу превратится в поле, я буду писать вместо знака [ знак {
{code}

{/code}

[ControlFreak]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

uses io; var indexPort:integer = $295; dataPort:integer = $296; tempport:integer;   function ListenPort(index:integer):integer; begin  PortOut(indexPort, index);  Result := PortIn(dataPort); end;   procedure SendPort(index,data:integer); begin  PortOut(indexPort, index);  PortOut(dataPort, data); end;   function getTemp(TempNum:integer):integer; begin    if TempNum=1 then  tempport:=$27    else if TempNum=2 then  tempport:=$50    else if TempNum=3 then  tempport:=$51  ;    Result :=listenport(tempport); end;   procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := ( IntToStr(getTemp(1))  ); label2.Caption := ( IntToStr(getTemp(2))  ); label3.Caption := ( IntToStr(getTemp(3))  );

DungeonLords -сенькюверимача : )

[mixael]

Анализируя статью http://www.xard.ru/post/10920/default.asp попытался сделать информацию о скорости вращения кулеров, но столкнулся с проблемой-неправильным результатом при вычислениях. Вот код на си:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

int getRPM(int FanNum) { int divisor, FanCount, counter; divisor = ListenPort(0x0B); if (FanNum == 1) {divisor = divisor & 0x07; FanCount = ListenPort(0x0D);} else { if (FanNum == 2) {divisor = (divisor & 0x38) >> 3; FanCount = ListenPort(0x0E);} else { if (FanNum == 3) {divisor = divisor & 0x40; FanCount = ListenPort(0x0F);}}} if (divisor == 0) {counter = 1; if (FanNum == 3) counter = 2;} else { if (divisor == 1) {counter = 2;} else { if (divisor == 2) {counter = 4;} else { if (divisor == 3) {counter = 8;} else { if (divisor == 4) {counter = 16;} else { if (divisor == 5) {counter = 32;} else { if (divisor == 6) {counter = 64;} else { if (divisor == 7) {counter = 128;} else { if (divisor == 64) {counter = 8;}}}}}}}}} if (FanCount == -1 || FanCount == 0) {return 0;} else return 1350000/(counter*FanCount); }

Вот мой перевод на delphi:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

function getFan(FanNum:integer):extended; var divisor, FanCount, counter:integer; begin divisor:=0;FanCount:=0;counter:=0;    divisor:=ListenPort($0B);    if FanNum=1 then      begin       divisor:=divisor and ListenPort($07);       FanCount:=ListenPort($0D);      end      else    if FanNum=2 then      begin       divisor:=(divisor and ListenPort($38)) shr 3;       FanCount:= ListenPort($0E);      end      else    if FanNum=3 then      begin       divisor:= divisor and ListenPort($40);       FanCount:= ListenPort($0F);      end;    if divisor=0 then      begin       counter:= 1;       if (FanNum=3) then counter:= 2;      end      else    if divisor=1 then counter:=2      else    if divisor=2 then counter:=4      else    if divisor=3 then counter:=8      else    if divisor=4 then counter:=16      else    if divisor=5 then counter:=32      else    if divisor=6 then counter:=64      else    if divisor=7 then counter:=128      else    if divisor=64 then counter:=8;      if (FanCount=-1) or (FanCount=0) then    Result:=0      else    Result:=1350000/(counter*FanCount); end;

Может кто знает в чем дело?
Выдает по 22500, 540000 RPM, в действительности же Аида выдает ~2450