Презентация ПРОЦЕСС И ПОТОК онлайн

Содержание слайда: ПРОЦЕСС И ПОТОК

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

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

Содержание слайда: В 32-х разрядных версиях Windows используется вытесняющая многозадачность В 32-х разрядных версиях Windows используется вытесняющая многозадачность ОС разделяет процессорное время между разными приложениями и потоками на основе вытеснения. Разделение происходит в основном благодаря приоритету потока. Чем выше приоритет, тем больше процессорного времени выделяется этому потоку. Потоки с одинаковым приоритетом будут получать одинаковое количество процессорного времени.

Содержание слайда: Класс – TThread tnew = class(tthread) private { private declarations } protected procedure execute; override; end; … procedure tnew.execute; begin { place thread code here } // Код, который будет выполняться в отдельном потоке end;

Содержание слайда: Запустить поток var new: tnew; … begin new := tnew.create(true); end;   Значение true в методе create значит, что после создания класса поток автоматически запущен не будет.

Содержание слайда: Пример Теперь создадим модуль для потока. Для этого выберем пункт меню File->New->Other для открытия окна создания нового модуля найдём в этом окне на закладке New пункт Thread Object.

Содержание слайда: Назовем свой поток tnew Код созданного для потока модуля: unit MyThread; interface uses Classes; type T tnew = 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.

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

Содержание слайда: procedure TCountObj.Execute; procedure TCountObj.Execute; begin index:=1; //Запускаем бесконечный счётчик while index>0 do begin Synchronize(UpdateLabel); Inc(index); if index>100000 then index:=0; //Если поток остановлен, то выйти. if terminated then exit; end; end;

Содержание слайда: Переменную index объявим как integer в разделе private объекта потока. Там же объявим процедуру UpdateLabel. Эта процедура выглядит так: Переменную index объявим как integer в разделе private объекта потока. Там же объявим процедуру UpdateLabel. Эта процедура выглядит так: procedure TCountObj.UpdateLabel; begin Form1.Label1.Caption:=IntToStr(Index); end;

Содержание слайда: подключаем главную форму в раздел uses. В методе Execute запускается цикл while, который будет выполняться, пока переменная index больше нуля. Внутри цикла вызывается метод Synchronize увеличивается переменная index.

Содержание слайда: о функции Synchronize. Если процедура вызвана в методе Synchronize, то выполнение основной программы и потока замораживается и к компонентам окна получает доступ только объект, вызвавший метод Synchronize.

Содержание слайда: Главная программа В раздел uses главной формы (самый первый, который идёт после interface) добавяемл модуль потока MyThread. Это связано с тем, что в разделе private нужно объявить переменную имеющую тип нашего объекта. Если добавить имя модуля во второй раздел uses, то он находиться ниже той части кода, где нужно написать объявление. Именно поэтому добавлять модуль MyThread нужно в первый раздел uses.

Содержание слайда: В разделе private объявляем переменную co типа Ttnew (объект нашего потока). По нажатию кнопки "Запустить" напишем такой код: procedure TForm1.Button1Click(Sender: TObject); begin co:=Ttnew.Create(true); co.Resume; co.Priority:=tpLower; end;

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

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

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

Содержание слайда: сообщение SendMessage SendMessage(Form1.Edit1.Handle, WM_SETTEXT, 0, Integer(PChar(IntToStr(index)))); в разделе uses нужно добавить два модуля: windows (здесь объявлена сама функция) и messages (здесь находятся все типы сообщений Windows).

Содержание слайда: const PROGRESS_POS = WM_USER+1; В объявление класса формы добавим новый метод, а затем и его реализацию: 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; const PROGRESS_POS = WM_USER+1; В объявление класса формы добавим новый метод, а затем и его реализацию: 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 = class(TThread) private { Private declarations } protected procedure Execute; override; end; var Form1: TForm1; implementation {$R *.dfm} { 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; TNewThread = class(TThread) private { Private declarations } protected procedure Execute; override; end; var Form1: TForm1; implementation {$R *.dfm} { 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;

Содержание слайда: Критические секции var Form1: TForm1; CriticalSection: TCriticalSection; ... procedure TForm1.FormCreate(Sender: TObject); begin CriticalSection:=TCriticalSection.Create; end;

Содержание слайда: У TCriticalSection есть два нужных нам метода, Enter и Leave, соответственно вход и выход из неё. Поместим наш код в критическую секцию: 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; У TCriticalSection есть два нужных нам метода, Enter и Leave, соответственно вход и выход из неё. Поместим наш код в критическую секцию: 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;