Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

Нить и ЦП   Найти похожие ветки 

 
_BasiL_ ©   (2005-06-09 13:41) [0]

Здравствуйте!

Нити загружают ЦП на 100%, при этом комп не тормозит и другие приложения выполняются без тормозов.

Есть одна главная нить, она сканирует папки на наличие появления определенных файлов, при нахождении таких она раздает рабочим нитям (динамический массив нитей, сколько пользователь создаст) в буфер, соответственно контролирует равномерное заполнение буферов. У рабочей нить вначале пустой цикл с приоритетом IDLE в котором смотрится буфер и с интервалом в 3 секунды вызывается Synchronize процедуры которая на визуальном объекте выводит свой буфер, если в буфере оказался файл, она себя выставляет в NORMAL и начинает его обробатывать.

И вот такой парадокс, если создать одну рабочаю нить и ее запустить без главной нити сканирования, теоретически и практически рабочая нить крутится в этом пустом цикле, а проц подскакивает на 100%. Убирал из этого цикла Synchronize, оставит только такой код
FName="";
repeat
 if Terminated then Exit;
until FName<>"";

Загрузка ЦП всеравно 100%


 
iskatel ©   (2005-06-09 13:43) [1]

sleep(ms)


 
_BasiL_ ©   (2005-06-09 14:15) [2]

Помогло :-)


 
Суслик ©   (2005-06-09 14:17) [3]

sleep(0)


 
Alexander Panov ©   (2005-06-09 14:28) [4]

Неправильно работаешь с потоками. Почитай про объекты синхронизации, например про Event, Semaphore.

см. также WaitForSingleObject.



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

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

Наверх




Память: 0.45 MB
Время: 0.036 c
1-1117793065
Andrey Kononov
2005-06-03 14:04
2005.06.29
Передача параметров в форму


3-1116233305
Yurisimus
2005-05-16 12:48
2005.06.29
DataSource не видит pFIBQuery


1-1117604631
leonidus
2005-06-01 09:43
2005.06.29
Подскажите компонент для отображения HTML страниц


10-1094464325
Ragazor
2004-09-06 13:52
2005.06.29
Как в делфи перевести команду 1С такого синтаксиса


3-1116312633
ANB
2005-05-17 10:50
2005.06.29
Как побыстрее удалить большую часть записей из таблицы ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский