Понятие потока

Введение

Потоки появились еще в Windows NT, но до определенного времени редко использовались прикладными программистами. В наше время эта тема очень актуальна, когда даже самый захудалый офисный компьютер обладает как минимум двумя процессорными ядрами, не использовать потоки в программах просто неприлично. Например, всё программирование звука написано с использованием потоков, или параллельная проверка орфографии в MicrosoftWord.

Целью данной курсовой работы было разработать оконное многопоточное приложение, которое будет выполнять SQL-запросы базы данных, используя несколько потоков, что существенно увеличивает продуктивность программы, что в свою очередь уменьшает время ожидания пользователя.

В первом разделе приведена информация о многопоточности и о типах реализации потоков, во втором разделе была рассмотрена проблема взаимодействия потоков с общими ресурсами, а так же способы решения данных проблем. Классы реализации многопоточности в Delphi, были приведены в третьем пункте, вместе с разработанным наследником класса TThread, который является одним из способов реализации потоков в Delphi.

Потоки в Delphi выполняют функцию имитации псевдопараллельной работы приложения. Как известно, для организации многозадачности операционная система выделяет каждому приложению, выполняющемуся в настоящий момент, определённые кванты времени, длина и количество которых определяется его приоритетом. Поэтому объём работы, который приложение может выполнить, определяется тем, сколько таких квантов оно сможет получить в единицу времени. Для операционной системы каждый поток является самостоятельной задачей, которой выделяются кванты времени на общих основаниях. Поэтому приложение Delphi, умеющее создать несколько потоков, получит больше времени операционной системы, и соответственно сможет выполнить больший объём работы. Создать дополнительный поток в Delphi поможет объект TThread. Ввести объект TThread в программу можно двумя способами:

1. с помощью Мастера;

2. вручную.

1. Мастер создания дополнительного потока в Delphi создаёт отдельный модуль, в рамках которого выполняется поток.

Выполняется:

File ->New ->Other...

В появившейся табличке выбора следует найти TThreadObject. Появится окошко, в верхнюю строку которого (ClassName необходимо ввести имя будущего потока: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.

2. В первом способе класс MyThread был создан мастером в дополнительном модуле. Второй способ состоит в том, что нужно самостоятельно создать такой класс в рамках одного из уже существующих модулей программы, например, в модуле Unit1:

unit Unit1; //Обычный модуль в котором описывается основная программа

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender:TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }

end;

//Здесь необходимо описать класс TMyThread:
TMyThread = class(TThread)
private
{ Privatedeclarations }
protected
procedure Execute; override;
end;

var
Form1: TForm1;
//Нужно ввести переменную класса TMyThread
MyThread: TMyThread;

implementation

{$R *.dfm}

//Необходимо создать процедуру Execute, уже описанную в классе TMyThread
procedure TMyThread.Execute;
begin
//Здесь описывается код, который будет выполняться в потоке
end;

Если поток создаётся мастером, т.е. в другом модуле, то нельзя забывать, в основном модуле описать переменную - экземпляр потока, как указано выше. Также, поскольку класс потока описан в другом модуле, имя этого модуля необходимо добавить в секцию uses. Теперь можно запускать поток, даже если в его процедуре Execute нет ни единого оператора.

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

Дата добавления: 2015-08-31