Задачи по Python с решениями

   
На этом шаге мы рассмотрим особенности использования этого класса.

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

type
  TMyThread = class(TThread) 
  protected
    procedure Execute: override; 
  end;
  .   .   .
  procedure TMyThread.Execute; 
  begin
  // Программный код
  end;

   
Код, который реализуется в методе Execute, выполняется в отдельном потоке. Для его запуска просто необходимо создать экземпляр класса TMyThread:

  ТМуThread.Create(False);

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

   
При запуске любого приложения автоматически создается отдельный поток, который называют главным. В коде главного потока реализуется прием сообщений Windows, нрорисовка графики на экране,
обработка событий (если обработчики специально не созданы так, чтобы выполняться в отдельном потоке). Создание экземпляра класса-потомка TThread означает, что код в методе Execute будет выполняться
параллельно с кодом главного потока, периодически прерывая выполнение кода главного потока, - создается фоновый поток. Он может находиться в одном из двух состояний: ожидание и выполнение. Если
фоновый поток находится в состоянии ожидания, то процессор ему просто не выделяет время. При этом все время отдается другим потокам. Соответственно, класс TThread имеет два метода:

• Suspend - переводит работающий поток в состояние ожидания;
• Resume - переводит ожидающий ноток в рабочее состояние.

   
Конструктор класса TThread принимает в качестве параметра логическую переменную CreateSuspended. Если ее значение равно True, то конструктор полностью отрабатывается, но поток находится в
состоянии ожидания. Для его запуска требуется вызов метода Resume. При значении этого параметра, равном False, код в методе Execute начинает выполняться немедленно после отработки конструктора.
Нельзя вызывать конструктор класса-потомка TThread с параметром False, если происходит инициализация свойств в классе:

type
  TMyThread = class(TThread) 
  protected
    procedure Execute: override; 
  public
    FR: Single; 
  end;
  .   .   .   .
  procedure TMyThread.Execute; 
  var
    R: Single; 
  begin
  .   .   .   .
    R := Sqrt(FR - 1); 
  .   .   .   .
  end;
  .   .   .   .
  procedure TForm1.ButtonlClick(Sender:TObject); 
  begin
    with TMyThread.Create(False) do FR := 5; 
  end;

   
На первый взгляд этот код не содержит ошибки: создается отдельный ноток, присваивается начальное значение переменной FR и продолжается расчет с использованием этого значения. Однако поскольку после отработки
конструктора код, реализованный в методе Execute, выполняется в отдельном потоке, то оператор R := sqrt(FR-1) из метода ТМуThread.Execute может быть выполнен раньше оператора FR := 5 из
метода TForm1.ButtonlClick. Соответственно, значение переменной FR после отработки конструктора равно 0, и в такой ситуации будет происходить исключение ЕInvalidOp (попытка извлечь квадратный
корень из -1). Поиск и устранение такого типа ошибки усложняются тем, что, вообще говоря, эта ошибка непостоянна и в некоторых случаях может проявляться очень редко. Для устранения указанной ошибки код в методе
Button1Click следует переписать:

  procedure TForm1.ButtonlClick(Sender:TObject); 
  begin
    with TMyThread.Create(True) do begin FR := 5; 
    Resume; 
    end; 
  end;

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

   
На следующем шаге мы закончим изучение этого вопроса.