Подробней о синхронизации

Дополнительные возможности потоков

Теперь мы дадим краткий обзор ещё некоторых свойств и методов объекта потока и сделаем несколько замечаний по работе с потоком. В принципе, у объекта не так уж и много свойств и методов, и большую часть возможностей мы уже рассмотрели, но всё же мы обязаны сделать ещё несколько замечаний.

Suspend - приостанавливает поток. Для вызова просто напишите co. Suspend. Чтобы возобновить работу с этой же точки нужно вызвать Resume.

Priority - устанавливает приоритет потока. Например Priority:=tpIdle;

tpIdle - поток будет работать, только когда процессор не занят другими процессами.

tpLowest - самый слабый приоритет

tpLower - слабый приоритет

tpNormal - нормальный

tpHigher - высокий

tpHighest - самый высокий

tpTimeCritical - критичный (мы не советуем использовать, потому что может зависнуть система).

Suspended - если этот параметр true, то поток находится в паузе.

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

Terminate – остановить выполнение потока.

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

Давайте посмотрим, как будет выглядеть наш метод Execute из предыдущего примера с использованием свойства FreeOnTerminate:

procedure TCountObj.Execute;

begin

FreeOnTerminate:=true;

index:=1;

// Запускаем бесконечный счётчик

while index>0 do

begin

Synchronize(UpdateLabel);

Inc(index);

if index>100000 then

index:=0;

// Если поток остановлен, то выйти.

if terminated then exit;

end;

end;

В принципе, этой информации вам будет достаточно для написания собственных потоков. У объекта TThread есть ещё несколько свойств и методов, но они не так важны.

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

В предыдущем примере мы использовали процедуру UpdateLabel, в которой на главную форму выводится значение переменной index. Если бы мы программировали главное окно, то вполне логичным было бы создать переменную index локальной для процедуры Execute, а её значение передавать в UpdateLabel в качестве параметра. В потоках с этим проблема. Чтобы передать какие-то значения в процедуру, которая должна вызываться методом Synchronize, нужно пользоваться переменными объекта. Мы даже не советуем пробовать передавать параметры в процедуры, которые вызываются методом Synchronize.

Но использование синхронизации – не единственный способ обновления параметров окна. Мы можем использовать для этого событийную модель Windows. Каждый раз, когда надо обновить содержимое текста, мы можем посылать окну сообщение SendMessage с указанием значения, которое надо установить. Главное окно будет получать это сообщение и компонент сам изменит заголовок. В этом случае мы не обращаемся к главному окну из потока, а только отправляем сообщение, поэтому никаких проблем не будет.

Итак, функция SendMessage имеет следующие параметры:

1. Указатель на окно (компонент), которому нужно послать сообщение.

2. Тип сообщения.

3. Первый параметр.

4. Второй параметр.

Судя по функции, нам нужен компонент, у которого есть свойство Handle. В предыдущем примере у нас был TLabel, у которого нет такого свойства, значит, он нам не подходит. Заменим этот компонент на TEdit. Теперь перейдём в поток. Тут в разделе uses нужно добавить два модуля: windows (здесь объявлена сама функция) и messages (здесь находятся все типы сообщений Windows).

Теперь удаляйте из потока процедуру UpdateLabel, больше она не нужна, потому что мы не будем использовать метод Synchronize. Ну и наконец, подкорректируем наш метод Execute:

procedure TCountObj.Execute;

begin

index:=1;

while index>0 do

begin

SendMessage(Form1.Edit1.Handle, WM_SETTEXT, 0,

Integer(PChar(IntToStr(index))));

Inc(index);

if index>100000 then

index:=0;

if terminated then exit;

end;

end;

Как видите, теперь у нас вместо метода Synchronize генерируется событие на обновления компонента TEdit. В качестве второго параметра мы указываем тип сообщения WM_SETTEXT – обновить информацию. Третий параметр равен нулю. В последнем параметре нужно указать значение, которое нужно установить. Вот тут есть небольшая сложность. У нас значение представлено в виде целого числа, но нужно превратить его в PChar. Для этого мы сначала конвертируем переменную index в строку (IntToStr), потом приводим его к типу PChar и тут же указываем размер Integer.

Дата добавления: 2015-03-29