Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Определение загрузки процессора перед запуском проги 


Sergy   (2002-02-06 18:05) [10]

> всем
Использовал код Tosov
Вопрос возник в процессе:
При перенесе кода в тело dll (ISAPI dll) вызвыаю ее припомощи запроса к веб серверу. При проверке оказывается, что
Round(dbIdleTime) возвращает -9223372036854775808.
В обычном приложении код работает идеально и возвращает то что нужно.
Вот код, правда я его немного изменил:

liOldIdleTime.QuadPart:=0;
liOldSystemTime.QuadPart:=0;
if NtQuerySystemInformation(SystemBasicInformation,@SysBaseInfo,sizeof(SysBaseInfo),0)<>NO_ERROR
then exit;
i:=0;
repeat
if NtQuerySystemInformation(SystemTimeInformation,@SysTimeInfo,sizeof(SysTimeInfo),0)<>NO_ERROR
then exit;
if NtQuerySystemInformation(SystemPerformanceInformation,@SysPerfInfo,sizeof(SysPerfInfo),0)<>NO_ERROR
then exit;
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;

response.Content:=Response.Content + "<br>"+ inttostr(Round(dbIdleTime));
inc(i);
end;
// store new CPU"s idle and system time
liOldIdleTime := SysPerfInfo.liIdleTime;
liOldSystemTime := SysTimeInfo.liKeSystemTime;
if i=1000 then
begin
Response.Content :=Response.Content+"<br>!!!" ;
Handled:=true;
exit;


end;
until false;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.03 c
3-22554           Sergant               2002-03-15 15:50  2002.04.08  
Не могу совладать c EhLib 2.1


4-22880           ATLANTIDO             2002-02-05 01:12  2002.04.08  
Любители хуков и клавиатурных шпионов !


1-22665           ola                   2002-03-28 13:36  2002.04.08  
ApplicationEvents!!!!!


1-22750           kalinka               2002-03-25 12:03  2002.04.08  
анализ строки


1-22748           Shark2001             2002-03-27 09:54  2002.04.08  
Событие OnClick для меню