Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.11.2010, 16:23
Kopik Kopik вне форума
Прохожий
 
Регистрация: 19.10.2010
Сообщения: 8
Репутация: 10
По умолчанию Готовая прога на Delphi загружает процессор ДО 50%. Почему?

Почему не все 100%?
Проц Athlon64 4600+ X2. Захотел сравнить графики на большом с большим числом разбиений - ждал больше минуты.
Ответить с цитированием
  #2  
Старый 07.11.2010, 16:45
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

А что делает эта программа?
Достаточно 2 таймера запустить - и вуаля программа жрет проц. по полной программе...
__________________
Нет ничего не возможного. Вопрос только во времени...
Ответить с цитированием
  #3  
Старый 07.11.2010, 18:33
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

На счет оперативки: у меня программа на делфи, с использование 3х таймеров жрет 800 КБайт оперативки, а не все 100%...

ЗЫ скажи что именно тебе надо узнать? Как можно забить всю оперативку? Или как уменьшить, чтоб программа жрала меньше оперативки?
__________________
Помогаю за Спасибо
Ответить с цитированием
  #4  
Старый 07.11.2010, 19:04
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Как ты это сделал - случайно те так?
Код:
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
CloseHandle(MainHandle);
end;

если нет - то расскажи как ты это реализовал....
__________________
Нет ничего не возможного. Вопрос только во времени...
Ответить с цитированием
  #5  
Старый 07.11.2010, 19:11
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Нет, без этого, и вообще без чего либо
У меня такая особенная делфи 7

ЗЫ вообще вот функция, которая "уменьшает оперативку":
Код:
procedure TrimWorkingSet; 
var
  MainHandle: THandle;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
    SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
    CloseHandle(MainHandle);
  end;
end;
ЗЫ я не шучу, я ей не пользуюсь... программы и так получаются довольно маленькими (по занимаю оперативки), как я уже сказал, большие проекты занимают до 3 МБайт оперативки...
__________________
Помогаю за Спасибо
Ответить с цитированием
  #6  
Старый 07.11.2010, 20:33
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

у меня браузер только так ест память, попробую твою функцию)
Ответить с цитированием
  #7  
Старый 07.11.2010, 20:46
Kopik Kopik вне форума
Прохожий
 
Регистрация: 19.10.2010
Сообщения: 8
Репутация: 10
По умолчанию

Цитата:
Сообщение от Electronic_Arts
А что делает эта программа?
Достаточно 2 таймера запустить - и вуаля программа жрет проц. по полной программе...
Программа в цикле вычисляет полдесятка строчек (производная II порядка) и строит 4 графика.
И вообще, ещё ни одна готовая программулина не хотела кушать проц на 100%, хотя оперативку по полгига хавала бывало.
Ответить с цитированием
  #8  
Старый 07.11.2010, 23:45
Kopik Kopik вне форума
Прохожий
 
Регистрация: 19.10.2010
Сообщения: 8
Репутация: 10
По умолчанию

И что значит это сообщение?
"Достаточно 2 таймера запустить - и вуаля программа жрет проц. по полной программе..."
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:14.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025