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




Вниз

загрузка 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;

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




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




Наверх





Память: 0.71 MB
Время: 0.019 c
1-9461            Марк                  2002-03-25 11:01  2002.04.04  
Как просмотреть все рисунки в файле иконки?


3-9407            s                     2002-03-13 10:32  2002.04.04  
Необходим совет


1-9463            Mummi                 2002-03-25 14:48  2002.04.04  
В ячейке StringGrida есть слово. Как узнать в какой позиции слова стоит курсор? (типа свойства SelStart)


1-9543            masterdim             2002-03-22 11:32  2002.04.04  
проблема с созданием класса (простая :))


1-9550            Atrem                 2002-03-23 12:38  2002.04.04  
Мастера,как можно перебрать в цикле все узлы и всех потомков всех узлов и т.д. в TTreeView?