Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 10
Всего онлайн: 10
Зарегистрировано юзеров: 7806
Комментариев на сайте: 681
Новый юзер: Geraldglurn



Последние комментарии
c
Arthurneime прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[img]https://sun9-66.userapi.com/c857220/v857220344/115e0/ySGY2CstZbw.jpg[/img] [b]Секс и здоровье[/b] =!!= Секс и здоровье : причинно-следственная связь =!!= Понижение потенции: есть ли повод для паники? =!!= Половой акт: квинтэссенция чувств и жизненных сил =!!= Продление полового акта: забег на длинную дистанцию =!!= Продление эрекции: выше, больше, сильнее [b]Секс и здоровье мужчины: причинно-следственная связь [/b] В ходе многочисленных экспериментов ученые установили, что главной причиной ранней смертности мужчин (а средняя продолжительность жизни мужской части населения в России составляет всего 59 ле&#1090 является безответственное отношение к своему сексуальному здоровью. При первых сбоях в работе половой системы мужчины подвергаются стрессу, выходят из состояния психического равновесия. В 80% случаев сексуальная нереализованность выливается в тяжелые депрессивные состояния, неврозы, проявления неконтролируемой агрессии. Этому есть вполне логичное объяснение с точки зрения физиологии. Дело в том, что мужской гормон тестостерон, который является важнейшим фактором в работе сердца, почек, печени, нервной системы, способен вырабатываться лишь в процессе половой близости. Мужчина с пошатнувшимся сексуальным здоровьем часто начинает ощущать общее недомогание, становится раздражительным, несобранным, агрессивным и чрезмерно эмоциональным. А это уже прямо ведет к тому, что человеку не хватает сил для самореализации, которая для мужчин имеет приоритетное значение в жизни. [b]Получается очень мрачная картина, напоминающая замкнутый круг.[/b] Как выйти из него, как решить проблемы? На многие возникающие интимные вопросы вы сможете найти ответы посетив рекомендуемые ниже ресурсы. Источник: http://porntube24.online/2020/04/08/aletta-ocean-backstage-fucking-big-cock/ ================== [url=https://bit.ly/2KhYaIy]Знакомства 18+[/url] [url=https://bit.ly/2y2MVRE]Казино для Ценителей.[/url] [url=https://bit.ly/2KgSJcE]18+ Секс -чат[/url] https://www.youtube.com/watch?v=32ClBPbPuGE [youtube]wcgT7YcqPg0[/youtube]
EleoPhync прокомментировал "Урок 18 - Знакомство с компонентами (часть 9/13)":
Viagra Pas De La Case [url=https://buyciallisonline.com/#]Buy Cialis[/url] Kamagra Jelly Usa <a href=https://buyciallisonline.com/#>Buy Cialis</a> Acquistare Cialis Tadalafil

Урок 54 - Потоки в Delphi, (часть 2/3)

  В этом уроке мы научимся правильно запускать наш поток.

//Запускать поток будем нажатием на кнопку:
TForm1.Button1Click(Sender: TObject);
begin
	//Вначале нужно создать экземпляр потока:
	MyThread:=TMyThread.Create(False);
	//Параметр False запускает поток сразу после создания, True - запуск впоследствии , методом Resume
	//Далее можно указать параметры потока, например приоритет:
	MyThread.Priority:=tpNormal;
	//Можно указать что после завершения кода поток завершится автоматически:
	MyThread.FreeOnTerminate:=true;
end;

end.
  Ну вот, даже этот минимальный код позволяет поэкспериментировать с потоками и посмотреть, что они создаются в системе, работают, уничтожаются. Например, измените условие завершения потока:
	MyThread.FreeOnTerminate:=false; //Поток не будет уничтожен после завершения работы
Теперь в Диспетчере Задач Windows можно наблюдать, что при каждом нажатии на кнопку Button1 в нашем приложении количество потоков в проекте Project1 увеличивается.

А теперь поместите в процедуру Execute такой оператор:
	MyThread.Terminate;
Метод Terminate уничтожает данный экземпляр потока. Теперь при нажатии кнопки в приложении количество потоков всё равно остаётся равным 1 (это главный поток приложения), так как сразу после создания новый поток уничтожается методом Terminate, и мы просто не успеваем заметить краткий миг его существования. Тем не менее, это означает, что код потока в процедуре Execute выполняется!

Ещё пример. Если в основной программе попробовать выполнить такой цикл:
	while True do;
то приложение зависнет. А теперь поместите его в процедуру Execute. При нажатии на кнопку наш бесконечный цикл будет непрерывно выполняться в потоке, однако и приложение как целое не зависнет.

  При работе с потоками необходимо учитывать приоритет создаваемых потоков. Так, если в предыдущем примере запустить не один поток, а два или больше, то компьютер станет очень заметно "тормозить". Это происходит потому что приоритет по умолчанию новых потоков - нормальный. Можно уменьшить его, задав
	MyThread.Priority:=tpLower;
Этого достаточно, чтобы компьютер чувствовал себя более свободно. Вот таблица приоритетов:

Приоритет Описание
tpIdle Низший приоритет. Поток получает время только тогда, когда операционная система находится в состоянии простоя.
tpLowest Приоритет на два пункта ниже нормального
tpLower Приоритет на один пункт ниже нормального
tpNormal Нормальный приоритет
tpHigher Приоритет на один пункт выше нормального
tpHighest Приоритет на два пункта выше нормального
tpTimeCritical Максимальный приоритет. Приоритет на уровне функций ядра операционной системы.


   В следующем уроке будет пример скачивания файла из интернета в потоке.

Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 23 Июня 2013
Просмотров: 11939

Урок 53 - Потоки в Delphi, (часть 1/3) Урок 55 - Потоки в Delphi, (часть 3/3)

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил: sorokin [Новичок] Дата: 2013-07-17
Спасибо Александр за хороший сайт где все подробно объяснено и приведены примеры. У меня есть вопрос по текущему уроку. После того как я создал вручную поток MyThread и вбил код описанный выше, я запустил программу, но в диспетчере задач так ничего и не увидел, никаких изменений. В чем может быть проблема? Спасибо.




аватар Добавил(а): Joker1999obp [Новичок] Дата: 2013-10-25
наведи курсор на фразу в Диспетчере Задач Windows можно наблюдать




аватар Добавил(а): Joker1999obp [Новичок] Дата: 2013-10-25
а нет всёравно не работает




аватар Добавил(а): Theihpled [Новичок] Дата: 2017-11-07
Кстати да. С потоками тоже ничего не вышло.