[Информация] Создание Потоков

[gum_classis]

Может кому то будет полезна эта статья .

Создать дополнительный поток в Delphi поможет объект TThread. Ввести объект TThread в программу можно двумя способами:
1.С помощью Мастера;
2.Вручную.
И так способ первый:
Заходим в:

Цитата: File -> New -> Other...

В появившейся табличке выбора найдём TThread Object. Появится окошко, в верхнюю строку которого (Class Name) введём имя нашего будущего потока: MyThread. В результате будет создан модуль, содержащий заготовку кода, реализующего дополнительный поток Delphi:

Цитата: unit Unit2; // Имя модуля, содержащего поток. При сохранении его можно изменить. interface uses Classes; type MyThread = class(TThread) //MyThread - заданное нами имя потока. private { Private declarations } protected procedure Execute; override; end; implementation { Important: Methods and properties of objects in visual components can only be used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like, procedure MyThread.UpdateCaption; begin Form1.Caption := 'Updated in a thread'; end; } { MyThread } procedure MyThread.Execute; begin { Place thread code here } end; end.

А вот и второй способ(на мой взгляд более распростроненый):
И так начнем сначала мы будем описывать класс нашего потока:

Цитата: TMyThread = class(TThread) private { Private declarations } protected procedure Execute; override; end;

Затем нужно ввести в глобальную переменную,переменную нашего потока:

Цитата: var Form1: TForm1; MyThread: TMyThread;

И наконец создаем процедуру execute уже выше нами описаную:

Цитата: procedure TMyThread.Execute; begin .....КОД..... end;

Ну а дальше наверно уже все догадываетесь что поток нужно запустить а через какую процедуру это уже ваша фантазия,ну а я для примера сделаю это простым нажатием кнопочки,ах да в примере коментами я опишу что да как:

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

Как вы уже заметили что в примере описан приоритет tpNormal так вот я готов поспорить что не у всех сильные машины и именно для этого я и составил небольшую табличку параметров приоритета нашего потока смотрите ниже:

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

Может кому пригодится эта статейка,а кто это знает просьба тапками не кидать!
Я писал её сам и будет очень обидно если мне за минусуют репу.
А по теме вскоре дополню эту тему и научу вас синхролизировать наши потоки между собой.

[VeTaL_UA]

Цитата: Сообщение от gum_classis procedure TForm1.Button1Click(Sender: TObject); begin MyThread:=TMyThread.Create(False); MyThread.Priority:=tpNormal; MyThread.FreeOnTerminate:=true; end;

Запустить поток и потом начать изменять параметры?

[gum_classis]

Цитата: Сообщение от VeTaL_UA Цитата: Сообщение от gum_classisПосмотреть сообщение procedure TForm1.Button1Click(Sender: TObject); begin MyThread:=TMyThread.Create(False); MyThread.Priority:=tpNormal; MyThread.FreeOnTerminate:=true; end; Запустить поток и потом начать изменять параметры?

Наоборот!,сначала настроить всё а потом уже запускать!

[Mebius]

Цитата: Сообщение от gum_classis Наоборот!,сначала настроить всё а потом уже запускать!

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

так же одно замечание, TThread это НЕ ОБЪЕКТ, а класс!!! обьектом в мастере он обозван тк создается новый юнит с шаблоном кода. так же замечание, раз уж рассказал про поток, надо было предусмотреть, что желающие писать доп поток обязательно захотят сделать какой либо вывод на форму или другой компонент в программе => надо описать вариант синхронизации и критической секции, так же пояснить, к каким последствиям может привести попытка передачи данных из потока в другой поток (форма тоже отдельный поток!) без синхронизации или критической секции. а такая передача может пройти гладко, а может превратить память отданую под прогу в месево непонятных кусокв бог знает чего.

[VeTaL_UA]

Цитата: Сообщение от gum_classis Наоборот!,сначала настроить всё а потом уже запускать!

Так ты же наоборот сделал

[Рэйзор]

Товарищи, ну надо же хотяб Ctrl-Click по классу потока и посмотреть, что там внутри происходит то.
А именно там есть такой вот конструктор:

constructor Create(CreateSuspended: Boolean); overload;

Где параметр CreateSuspended отвечает за запуск потока сразу после создания или просто выделение памяти.

procedure TForm1.Button1Click(Sender: TObject);
begin
   MyThread:=TMyThread.Create(False); 
   MyThread.Priority:=tpNormal;
   MyThread.FreeOnTerminate:=true;
end;

Превращается в:

procedure TForm1.Button1Click(Sender: TObject);
begin
   MyThread:=TMyThread.Create(True); 
   MyThread.Priority:=tpNormal;
   MyThread.FreeOnTerminate:=true;
   MyThread.Resume;
end;

P.S как вы собрались чего-то настраивать в объекте, когда он еще даже не создан?

[pavel!]

Ребят не могу остановить поток.
в глобал вар написал:
pause: TNewThread; // TNewThread мой поток
Потом кидаю кнопку которая остановит поток и пишу в ней:
pause.Terminate;
Запускаю, сначало жму старт, запускаю поток , потом жму паузу и вылетает ошибка, а поток дальше работает ._.
создавать булевую переменную , на форму труе, в кнопке фалсе тоже пробовал, но поток не останавливается ._.