Работа с потоками в Delphi

Итак вводную часть данной темы я делал в этом посте, поэтому пора приступать к практике, не правда ли?. Давайте немного вспомним, что потоки помогают выполнять одновременно несколько функций программы не мешая друг другу, а также не мешая главному потоку программы. Это очень популярно в настоящее время и сейчас большинство, особенно, крупных программных разработок, работают с использованием потоков. Давайте и мы будем использовать потоки в своем приложении, только не забывайте, что потоками злоупотреблять нельзя, многие используют потоки в своих программах, приложениях совсем там, где они ненужны, или там, где можно обойтись обычным Application.ProcessMessages;

На форме у меня следующие компоненты

• TButton
• TEdit

В данном примере мы будем в цикле увеличивать переменную и отображать ее в TEdit, тем самым будем пробывать передвигать окно, набирать в другом TEdit какие-либо данные, и цикл будет проходить до 65000, чтобы было заметно и немного времени прошло. Давайте создадим новый поток, не забываем, что за это отвечает класс TThread. Вы можете создать с помощью мастера, для этого выполняем File-New-Other во вкладке New выбираем Thread Object и нажимаем OK. Далее в появившемся окне пишем имя нашего потока и кнопка ОК. Но если Вы создаете мастером, то не забудьте в модуль потока подключить модуль вашего проекта, а в модуль вашего проекта подключить модуль потока (подключать в Uses). Я создавал все в одном модуле и класс потока у меня выглядит так

Исходный код

type
 MyThread=class(TThread)
  private
   results:integer;
  protected
   procedure ShowResult;
   procedure Execute; override;
end;

переменная results - будет увеличиваться в цикле на 1 и отображаться в TEdit. Процедура ShowResult - будет выводить наш результат в TEdit, а Execute — основная процедура потока, в которой и выполняется сам поток.

Далее я поставил курсор на процедуру Execute и нажал клавиши Shift+Ctrl+C. Далее у меня сформировались процедуры, и в процедурe Execute я написал следующий код

Исходный код

procedure MyThread.Execute;
var
 i:integer;
begin
  inherited;
   results:=0;
   for i:=1 to 65000 do
    begin
     results:=results+1;
     Synchronize(ShowResult);
    end;
end;

То есть в цикле как я и говорил увеличиваем нашу переменную на 1. А с помощью процедуры Synchronize - сихронизируем наш результат. Процедура ShowResult у меня выглядит следующим образом

Исходный код

procedure MyThread.ShowResult;
begin
   Form1.Edit1.Text:=IntToStr(results);
end;

То есть просто в TEdit мы выводим наш результат. Далее, чтобы наш поток выполнялся надо создать объект нашего класса, для этого на OnClick-событие компонента TButton я написал следующий код

Исходный код

procedure TForm1.Button1Click(Sender: TObject);
var
 ThreadBegin:MyThread;
begin
   ThreadBegin:=MyThread.Create(False);
   ThreadBegin.Resume;
   ThreadBegin.Priority:=tpNormal;
end;

Здесь должно быть все понятно, создаю поток, вызываю сразу Execute - это видно, что при создании я указываю False. Далее возобновляю на всякий случай поток и ставлю приоритет ему нормальный. Все у нас отображаются данные в TEdit и мы можем например в другом TEdit набирать любой текст и данные все равно у нас будут отображаться. Вот так все просто, далее рассмотрим что-нибудь серьезное

Автор статьи - Andrey53

Метки: TThread, многопоточные приложения, потоки