Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Гостевая книга ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Эмулятор микроп... 65535
Бип из системно... 64031
Организация зап... 60451
Invision Power ... 60044
Приложение «Про... 59949
Оператор выбора... 58877
Модуль Forms 58183
Подключение Mic... 57884
Создание отчето... 57616
ТЕХНОЛОГИИ ДОСТ... 53931
Программируемая... 52091
Пример работы с... 50078
Имитационное мо... 49348
21 ошибка прогр... 44239
Реклама
Сейчас на сайте
Гостей: 13
На сайте нет зарегистрированных пользователей

Пользователей: 13,048
новичок: Madison
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Программа тестирования и обучающая программа по математике на Turbo Pasc...
Игра Sokoban на Delphi + Блок схемы
Информационная система - продуктовый магазин на Turbo Pascal (База данны...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании

Создание потоков с помощью функции CreateThread
Для создания дополнительного потока наряду с главным потоком приложения в Delphi можно использовать функцию прикладного программного интерфейса Windows (сокращенно API – Application Program Interface) для создания потока CreateThread. Для этого необходимо, во-первых, создать поток, вызвав указанную функцию, и, во-вторых, описать функцию потока, которая будет выполняться каждый раз, когда ОС будет выделять квант времени для выполнения созданного потока.
Функция CreateThread имеет следующий формат:
CreateThread(LpThreadAttributes, DwStackSize, LpStartAddress, LpParameter,
dwCreationFlags, LpThreadld);



Параметр LpThreadAttributes принимает серию атрибутов безопасности. Если этот параметр установлен в nil, то используются атрибуты безопасности по умолчанию.
Следующий параметр DwStackSize имеет тип DWORD и определяет размер (в байтах) стека создаваемого потока. Если этот параметр установлен в 0, то размер стека создаваемого потока будет совпадать с размером стека главного потока приложения. При определении этого параметра следует помнить, что если задается слишком большое значение, превышающее размеры доступной памяти, то система не сможет создать новый поток. Однако если заданного заранее размера стека становится недостаточно для потока, то размер стека увеличивается автоматически.
Параметр LpStartAddress указывает название функции потока, которая вызывается тогда, когда поток начинает выполняться. Здесь указывается имя функции потока, перед которым стоит символ «@».
Параметр LpParameter имеет тип Pointer и исполь¬зуется для передачи функции потока какого-либо инициализирующего значения.
Параметр DwCreationFlags позволяет передать определенные флаги, которые ассоциируются с потоком. Если указан флаг CREATE_SUSPENDED, то создается приостановленный поток, который не запускается на выполне¬ние до тех пор, пока не будет вызвана функци ResumeThread. Если значение этого параметра установлено в 0, то поток запускается на выполнение сразу после создания.
Последний параметр LpThreadld имеет тип DWORD. После создания потока этому параметру будет присвоен уникальный идентификационный номер потока.
Если создание потока прошло успешно, то значением функции станет указатель на вновь созданный поток, если поток со¬здать не удалось, то возвращаемое значение функции будет установлено в 0. После того, как создан неприостановленный поток, автоматически вызывается функция потока.
П р и м е р 1. Создается приложение, которое содержит три потока: главный и два дополнительных. Потоки будут выполнять некоторые простые вычисления, а главная программа — отображать информацию об объеме вычислений в секунду, выполненных в каждом потоке.
При выполнении потоков должна обеспечиваться возможность изменения их свойств и наблюдения за их реакцией.
Среди компонентов приложения будут использоваться два регулятора для установки приоритетов потоков, две строки редактирования — для наблюдения за их изменением, две кнопки для запуска потоков и компонент типа TTimer для подсчета времени выполнения потоков, как показано на рис.1.
Создание потоков с помощью функции CreateThread
Рис. 1
Новый поток будет создаваться при выполнении пользователем щелчка по соответствующей кнопке. Для этого необходимо создать обработчик события OnClick каждой кнопки. Для создания приложения следует выполнить следующие действия:
1. В разделе переменных модуля приложения опишите переменные:
var
Count1,Count2: integer; {число вычислений в секунду в потоке}
ThreadId1,ThreadId2:dword; {идентификатор создаваемого потока}
HThread1, HThread2: THandle; {указатель на создаваемый поток}



2. Для создания потока воспользуемся функцией CreateThread. Значения параметров зададим следующим образом. Атрибуты безопасности установим по умолчанию. Определим размер стека создаваемого потока — такой же, что и для главного потока приложения. Пусть функция первого потока будет называться Execute1, а второго – Execute2. В качестве атрибутов создания определим неприостановленный поток, а в качестве идентификатора потока укажем переменную ThreadID. В результате вызов функции создания первого потока будет иметь следующий вид:
HThread1:=CreateThread (nil, 0, @ Execute1, nil, 0, ThreadID1);



Второй поток создается аналогичным образом. Оформленные в таком виде вызовы функции CreateThread должны быть реализованы как обработчики кнопок «Поток 1» и «Поток 2».
3. Как уже было сказано, не все потоки, выполняющиеся в системе, одинаковы. Некоторые потоки получают от ОС больше времени для выполнения, некоторые — меньше. Доля времени выполнения потока задается операционной системой в зависимости от установленного для данного потока приоритета. Чем выше приоритет потока, тем больше времени для его выполнения выделяется ОС.
В Delphi для установления приоритета потока используется функция
SetThreadPriority(hThread, nPriority);



Параметр hThread определяет указатель на поток, для кото¬рого определяется приоритет, nPriority — задает приоритет потока.
Если установление приоритета потока прошло успешно, то значение функции SetThreadPriority устанавливается в True, иначе — в False.
Информацию об основных типах приоритетов потоков можно получить, используя справочную систему Delphi.
В создаваемом приложении установка и изменение приоритета каждого потока будет выполняться с помощью регулятора компонента TrackBar.
Выполните щелчок на левом регуляторе TrackBar1 и выберите страницу Events в окне Object Inspector. Затем выполните двойной щелчок напротив имени метода OnChange для создания шаблона метода, который будет вызываться каждый раз при изменении положения регулятора. Метод будет устанавливать регулятор в соответствии с задаваемым приоритетом потока. Для первого потока код метода будет следующим:
SetThreadPriority(HThread1,TrackBar1.Position);



Аналогично выглядит обработчик события OnChange для второго потока.
4. Чтобы ограничить приоритет потоков значением не больше максимального, предельное правое положение регуляторов компонента TrackBar должно быть ограничено четырьмя. Для этого нужно выбрать TrackBar1, и затем, удерживая клавишу , выбрать TrackBar2. Когда оба компонента будут выделены, выбрать в окне Object Inspector страницу Properties и установить для свойства Max значение
5. Компонент TTimer в данном примере будет использоваться для того, чтобы приложение могло отслеживать состояние потоков. Выполнив двойной щелчок на компоненте TTimer для создания шаблона метода Timer, введите текст следующей процедуры:
procedure TForm1.Timer1Timer (Sender: TObject);
begin
form1.Edit1.Text:=intTostr(Count1);
Count1:=0;
form1.Edit2.Text:=intToStr(Count2);
Count2:=0;
end;



Этот метод будет автоматически вызываться каждую секунду, чтобы приложение могло отслеживать состояние потоков.
6. Действия, выполняемые в процедурах Execute1 и Execute2, заключаются в том, чтобы подсчитать среднее значение десяти случайных чисел и затем увеличить на единицу значение соответственно Count1 и Count2. Текст процедуры для первого потока имеет вид:
procedure Execute1;
var
I, Total, Avg: integer;
begin
while True do
Begin
Total:=0;
For i:=1 To 10 Do inc(Total, Random(Maxint));
Avg:=Avg Div 10; inc(Count1);
End;
end;



Аналогично реализуется процедура Execute2. Тексты обеих процедур должны быть размещены в разделе реализации модуля приложения.
7. Запустите подготовленное приложение на выполнение. Изменяя приоритеты, проанализируйте их влияние на производительность одновременно выполняющихся потоков. Обратите внимание на скорость реакции ОС при изменении приоритетов потоков.





Опубликовал Kest January 01 2010 21:49:18 · 1 Комментариев · 41418 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Роман March 14 2014 10:47:13
да ну ....
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Как программирова...
Java 2 - Эффектив...
PHP в примерах
Delphi 7 Enterpri...
DiskInfo
Просмотр коммент...
PHP глазами хакера
DAlarm
С. Г. Горнаков - ...
SynEdit
Delphi7 Для профе...
NetGraph [Исходни...
ScreenSaver [Исхо...
TelBook
LaserTank [Исходн...
PHP 5 для "чайников"
Реализация ЭЦП по...
AboutSystem
Atb
TMS

Топ загрузок
Приложение Клие... 100341
Delphi 7 Enterp... 80556
Converter AMR<-... 20029
Borland C++Buil... 10871
GPSS World Stud... 9967
Borland Delphi ... 7902
Turbo Pascal fo... 6925
Visual Studio 2... 4931
Калькулятор [Ис... 4178
FreeSMS v1.3.1 3492
Случайные статьи
Информационный экс...
Географические диа...
Глоссарий продолжение
Что может сделать ...
Комплексные числа
Первое контрольно...
Подпрограмма Input...
Снова интерфейс и ...
Оператор поиска в ...
Абстрактные типы д...
Планируем структур...
Смешанная ассоциация
ООП И ОБРАБОТКА ИС...
Настройка 6-адреса...
Основные сведения ...
Сортировка обменами
Порядок в базе данных
Установка чипа дл...
Кэш просмотра ката...
Любые игры онлайн ...
Применение различн...
Произвольные фигуры
Просмотр состояния...
Сенсорные экраны
Ремонт бамперов.
Статистика



Друзья сайта
Программы, игры
Бюджетные и выгодные возможности отрывных бюджетных путешествий для компаний недорогие поездки в европу а также точная клиентская поддержка заказчика во время пребывания в Европу

Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?