Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.04;
Скачать: CL | DM;

Вниз

загрузка CPU при прорисовке   Найти похожие ветки 

 
ev ©   (2002-03-23 18:48) [0]

Мастера! Помогите! Как понизить загрузку CPU.
Сначала

mStream:=TmemoryStream.Create;
jpg:=TJpegImage.Create;

А потом в цикле

jpg.LoadFromStream(mStream);
image1.Picture.Assign(jpg);

9 процессов. 2-3 раза в секунду. На АТЛОНЕ 1300 загрузка CPU = 80%.
Основно еремя (порядка 99%) уходит на image1.Picture.Assign(jpg);


 
ppcat   (2002-03-24 20:02) [1]

Уменьшить приоритет
==================================================================================

Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
ProcessID : DWORD;
ProcessHandle : THandle;
ThreadHandle : THandle;
begin
ProcessID := GetCurrentProcessID;
ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,
false,
ProcessID);
SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);
ThreadHandle := GetCurrentThread;
SetThreadPriority(ThreadHandle, THREAD_PRIORITY_TIME_CRITICAL);
end;

Но все равно увидишь тоже самое. Чем хорошо - если время понадобится другому процессу, он его отдаст. А больше никак.



Страницы: 1 вся ветка

Текущий архив: 2002.04.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
1-9431
koks
2002-03-22 09:30
2002.04.04
перерисовка MainForm


1-9493
DNT
2002-03-25 21:05
2002.04.04
Можно ли узнать, в какой части экрана расположен таск бар?


14-9642
fliz
2002-02-21 14:53
2002.04.04
у кого в каком возрасте зуб мудрости вылез?


3-9403
Wizard_Ex
2002-03-07 17:43
2002.04.04
FIBPLUS & EVENTALERTER


14-9610
novomod
2002-02-21 23:44
2002.04.04
Математика.Функция.Алгоритм.Help.