На Delphi Studio вы можете найти и скачать исходники, примеры, компоненты, книги, учебники, статьи по Delphi и Pascal

Чаще всего, юзер начинает изучать потоки, когда задает вопрос: "Как сделать, чтобы форма не зависала?". И ему сразу же отвечают: "Многопоточность".

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

Как написать многопоточное приложение в Delphi? - очень просто, и я постараюсь вам это продемонстрировать. Но для начала немного теории.

Для начала давайте разберемся, что такое поток.

Поток - объект внутри процесса, отвечающий за выполнение кода и получающий для этого процессорное время. Каждая программа представляет собой главный поток и несколько вспомогательных(причем вспомогательных может и не быть). При запуске программы создается поток для ее выполнения, и если приложение однопоточное, то весь код будет выполняться последовательно, учитывая все условные и безусловные переходы. И тут то и возникают проблемы(см. пример). Если в программе есть какие-либо длительные действия, то во время их выполнения мы будем наблюдать зависшую форму. Но решение есть, нужно создать еще один поток, который будет выполнятся параллельно с главным, т.е форма будет выполнятся в одном потоке(главном), а нужный код в другом(вспомогательном).

Вот пример с тем же IdHTTP(Indy), когда многопоточность почти необходима:


Многопоточность в Delphi обеспечивает почти параллельную(или по научному псевдопараллельно) работу множества программ. На самом деле настоящая параллельность возможна только на многопроцессорной машине. Но Windows, может имитировать такую работу.

В Delphi работа с потоками реализуется с помощью класса TThread. Чтобы его использовать, достаточно унаследовать свой класс от него, и переопределить метод Execute.

Думаю теории достаточно, чтобы вы имели представление о потоках. Перейдем к самому вкусному :) - к практике.

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

На чтоже, приступим :))

Для работу с сетью я выбрал компонент IdHTTP из набора Indy(т.к многие с ним знакомы). Для хранения списка страниц будет использовать TStringList. Файлы с исходными кодами будем сохранять как name_of_site.txt.

Открываем дельфи, создаем новое приложение. Для начала опишем свой класс потока, добавляем этот код после блока Uses :


Рассмотрим для начала конструктор:


Далее ThreadExit:



Теперь процедуру Execute, в которой находится основной код потока.



С методами потока разобрались. Теперь, чтобы реализовать многопоточность, добавим к глобальным переменным :

Далее как и любой класс TMyThread нужно создать :


Список сайтов можно загрузить как из мемо, так и из текстового файла, с помощью метода LoadFromFile.

Теперь когда наш "шаблон" сделан, займемся основным кодом. Весь код потока будем описывать в процедуре Execute.



Вот собственно и весь код :)) Все очень просто, не правда ли?

Теперь пара последних доработок :



Поэкспериментируйте с данным кодом. Сделайте чтобы юзер сам выбирал кол-во потоков. Реализовать это можно так:
Киньте на форму Edit. И измените свой код на:


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