ПРОЦЕСС И ПОТОК

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

Поток - объект внутри процесса, отвечающий за выполнение кода и получающий для этого процессорное время.

имеет свой уникальный идентификатор – целое число, назначаемое операционной системой

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

процессорное время между разными приложениями и потоками на основе вытеснения.

Разделение происходит в основном благодаря приоритету потока.
Чем выше приоритет, тем больше процессорного времени выделяется этому потоку. Потоки с одинаковым приоритетом будут получать одинаковое количество процессорного времени.

override; end; … procedure tnew.execute; begin { place thread code here } // Код, который будет

выполняться в отдельном потоке end;

значит, что после создания класса поток автоматически запущен не будет.

File->New->Other для открытия окна создания нового модуля найдём в этом

окне на закладке New пункт Thread Object.

= class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
{ Important: Methods and

properties of objects in VCL can only be used in a
method called using Synchronize, for example,}
Synchronize(UpdateCaption);
procedure Ttnew.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }
{ TCountObj }
procedure TCountObj.Execute;
begin
{ Place thread code here }
end;
end.

эта процедура обязана быть переопределена, и в ней должен быть

написан собственный код. Это связано с тем, что в объекте TThread, эта процедура объявлена как абстрактная (abstract) – пустая. Это значит, что процедуре дали имя, выделили место, но её код должен быть написан объектами потомками. Метод Execute – это и есть заготовка для кода потока. То, что написано здесь будет выполняться параллельно основной задаче.

то выйти.
if terminated then exit;
end;
end;

Там же объявим процедуру UpdateLabel. Эта процедура выглядит так:
procedure TCountObj.UpdateLabel;
begin
Form1.Label1.Caption:=IntToStr(Index);
end;

цикл while, который будет выполняться, пока переменная index больше нуля.

Внутри цикла вызывается метод Synchronize увеличивается переменная index.

выполнение основной программы и потока замораживается и к компонентам окна

получает доступ только объект, вызвавший метод Synchronize.

после interface) добавяемл модуль потока MyThread. Это связано с тем,

что в разделе private нужно объявить переменную имеющую тип нашего объекта. Если добавить имя модуля во второй раздел uses, то он находиться ниже той части кода, где нужно написать объявление. Именно поэтому добавлять модуль MyThread нужно в первый раздел uses.

потока). По нажатию кнопки "Запустить" напишем такой код:
procedure TForm1.Button1Click(Sender: TObject);
begin
co:=Ttnew.Create(true);
co.Resume;
co.Priority:=tpLower;
end;

co.Suspend. Чтобы возобновить работу с этой же точки нужно вызвать

Resume.
Priority- устанавливает приоритет потока. Например Priority:=tpIdle;
tpIdle - поток будет работать только когда процессор бездельничает.
tpLowest - самый слабый приоритет
tpLower - слабый приоритет
tpNormal - нормальный
tpHigher - высокий
tpHighest - самый высокий
tpTimeCritical - критичный.

паузе.
Terminated - если true, то поток должен быть остановлен, иначе

поток должен продолжать работу.
Terminate – остановить выполнение потока.
FreeOnTerminate – если это свойство равно true, то по завершении выполнения процедуры Execute поток самоуничтожиться.

можем посылать окну сообщение SendMessage с указанием значения, которое надо

установить. Главное окно будет получать это сообщение и компонент сам изменит заголовок. В этом случае мы не обращаемся к главному окну из потока, а только отправляем сообщение.

модуля: windows (здесь объявлена сама функция) и messages (здесь находятся

все типы сообщений Windows).

затем и его реализацию: TForm1 = class(TForm) Button1: TButton; ProgressBar1: TProgressBar; procedure Button1Click(Sender: TObject); private procedure

SetProgressPos(var Msg: TMessage); message PROGRESS_POS; public { Public declarations } end; ... procedure TForm1.SetProgressPos(var Msg: TMessage); begin ProgressBar1.Position:=Msg.LParam; end; Теперь мы немного изменим, можно сказать даже упростим, реализацию метода Execute нашего потока: procedure TNewThread.Execute; var i: integer; begin for i:=0 to 100 do begin sleep(50); SendMessage(Form1.Handle,PROGRESS_POS,0,i); end; end;

TNewThread } procedure TNewThread.Execute; begin while true do {ничего не делаем}; end; procedure TForm1.Button1Click(Sender: TObject); var NewThread:

TNewThread; begin NewThread:=TNewThread.Create(true); NewThread.FreeOnTerminate:=true; NewThread.Priority:=tpLower; NewThread.Resume; end;

соответственно вход и выход из неё. Поместим наш код в

критическую секцию: procedure TNewThread.Execute; var i: integer; begin CriticalSection.Enter; for i:=0 to 100 do begin sleep(50); SendMessage(Form1.Handle,PROGRESS_POS,0,i); end; CriticalSection.Leave; end;