Как использовать многопоточность в Delphi для взаимодействия с весами через последовательный порт

Delphi , Компоненты и Классы , Потоки

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

Создание потока

Для начала, определим класс TWeigh, который наследуется от TThread. Этот класс будет отвечать за взаимодействие с весами и обработку их данных.

TWeigh = class(TThread)
  private
    FTerminateEvent: TEvent;
  protected
    procedure Execute; override;
    procedure TerminatedSet; override;
  public
    constructor Create(ACreateSuspended: Boolean);
    destructor Destroy; override;
end;

Инициализация событий

В конструкторе класса TWeigh создаем событие FTerminateEvent. Это позволит нам управлять потоком.

constructor TWeigh.Create(ACreateSuspended: Boolean);
begin
  FTerminateEvent := TEvent.Create(nil, True, False, '');
  inherited Create(ACreateSuspended);
end;

Не забудьте освободить событие в деструкторе.

destructor TWeigh.Destroy;
begin
  inherited;
  FTerminateEvent.Free;
end;

Запуск потока

Переопределяем метод Execute, который будет выполнять основную работу потока.

procedure TWeigh.Execute();
begin
  while (not Terminated) do begin
    if (validweight) then begin
      Synchronize(procedure begin
        DoStuff();
      end);
      exit;
    end;
    FTerminateEvent.WaitFor(100);
  end;
end;

Ожидаем события validweight (стабильного веса) и выполняем действие DoStuff только один раз. Затем поток завершается.

Управление потоком

В пользовательском интерфейсе создаем кнопку для запуска взвешивания. При нажатии на кнопку создаем экземпляр TWeigh и при необходимости освобождаем его.

procedure TForm1.btnWeighClick(Sender: TObject);
var
  B : TButton;
begin
  B := Sender as TButton;
  if B.Caption = 'Weigh' then begin
    if not Assigned(Weigh) then
      Weigh := TWeigh.Create(False);
  end
  else if B.Caption = 'Cancel' then begin
    Weigh.FTerminateEvent.SetEvent;
    Weigh.WaitForTerminated;
    Weigh := nil;
  end;
  // Изменяем подпись кнопки для отображения статуса
  B.Caption := Trim(Copy('CancelWeigh ', AnsiPos(B.Caption, 'Weigh Cancel'), 6));
end;

Завершение потока

Чтобы поток мог завершиться самостоятельно после выполнения действия, необходимо, чтобы переменная Weigh была освобождена из области, где она может быть не доступна для доступа из других потоков. Это делается с помощью флага Terminated или с помощью установки события FTerminateEvent пользователем.

Заключение

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

Создано по материалам из источника по ссылке.

Использование многопоточности в Delphi для взаимодействия с весами через последовательный порт, с целью обеспечения эффективного и надежного сбора данных о весе в реальном времени.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Потоки ::