Навигация
Главная
Поиск
Форум
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
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 81
На сайте нет зарегистрированных пользователей

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

Программа тестирования (тест) - вступительные экзамены (математика, физи...
Моделирование интернет магазина (Apache, Php, Html) на GPSS + Блок схема
Диплом - база данных поставщиков на Delphi (MS Sql Server)+ Пояснительна...

Создание потоков с помощью функции 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 18:49:18 · 1 Комментариев · 65535 Прочтений · Для печати

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


Комментарии
Роман March 14 2014 06: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...
Шаблон для новост...

Случайные загрузки
Динамические за...
PHP/MySQL для нач...
Delphi7 Для профе...
Формирование отче...
Microsoft Press -...
ATComponents
oTextrackBar
Панель Календарь
FatScrollbar
Пишем программы и...
Task Shedule
Усложнённый кальк...
TmxOutlookBarPro
C++ Builder в за...
Задача о 8ми ладьях
Изучаем Ассемблер
CS:Source - монит...
Андрей Боровский....
TsHintManager
OnlineIP

Топ загрузок
Приложение Клие... 100791
Delphi 7 Enterp... 97987
Converter AMR<-... 20293
GPSS World Stud... 17047
Borland C++Buil... 14217
Borland Delphi ... 10359
Turbo Pascal fo... 7387
Калькулятор [Ис... 6070
Visual Studio 2... 5228
Microsoft SQL S... 3673
Случайные статьи
Шаблонизатор на PH...
Развлечения Starda...
Как работает GZIP ...
Масла Meguin
Септик
совместимый со ста...
Анализатор поисков...
Игровые автоматы и...
Сжатие и кодирован...
Иерархия классов
Вещественные типы
Схема кодирования,...
Большая глубина цв...
Вы можете сразу от...
Сетевые интерфейсы...
Питер Наур и его р...
Слияние двух списков
Использование класса
Domain Controllers...
В чем заключается ...
Игровые автоматы В...
Решения к главе 5
TopServer
Функции
ОСНОВНЫЕ КОНЦЕПЦИИ...
Статистика



Друзья сайта
Программы, игры


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