Навигация
Главная
Поиск
Форум
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
Реклама
Сейчас на сайте
Гостей: 16
На сайте нет зарегистрированных пользователей

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

Игра Sokoban на Delphi + Блок схемы
Моделирование системы управления качеством производственного процесса на...
Моделирование работы аэропорта на GPSS + Пояснительная записка

Создание потоков с помощью функции 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...
Шаблон для новост...

Случайные загрузки
Swing. Эффектные...
DelphiX
Шейдеры в Delphi
Delphi World 6.0
FatScrollbar
Упорядоченный дин...
Нестандартные при...
Базы данных в Инт...
В.Понамарев - COM...
HTMLredaktor
Delphi 6/7 базы д...
PHP в примерах
CLR via C#
WordReport
Создание меню на ...
Синтаксический ан...
Приемы программир...
PDJ Scrollers
Черный круг двига...
SysInfo [Исходник...

Топ загрузок
Приложение Клие... 100793
Delphi 7 Enterp... 98034
Converter AMR<-... 20298
GPSS World Stud... 17060
Borland C++Buil... 14245
Borland Delphi ... 10376
Turbo Pascal fo... 7392
Калькулятор [Ис... 6083
Visual Studio 2... 5232
Microsoft SQL S... 3674
Случайные статьи
Пример обработки т...
5.1. Окончательная...
для Web-сервера
Подсчет атомов и ч...
ВСТРОЕННЫЕ ПРЕДИКА...
Волоконно-оптическ...
Как поместить вашу...
Системы экспертных...
Управляющие сообще...
Ключевые факты об ...
учетная запись Кей...
Протоколы группово...
Этапы подбора ключ...
параметры политики...
Обработка исключит...
Ввод элементарных ...
НАЗНАЧЕНИЕ РЕФЛЕКС...
Идеализация процессов
— Windows NT 4
Выработка решенияП...
Демонстрация работ...
Документы СС/РР
Добавление медиако...
Определения в язы...
Чтение/показ из фа...
Статистика



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


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