Бесконечный цикл с 30-секундным обновлением: отображение времени и даты в Delphi

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

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

Проблема и контекст

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

Подтвержденный ответ

Для решения поставленной задачи можно использовать фоновый поток и событие для реализации неблокирующего таймера. Это позволит избежать блокировки основного потока, что критично для GUI-приложений.

// Код главного окна формы
unit u_frm_main;
interface
uses
  u_workthread,
  SysUtils,
  Windows,
  Forms,
  SyncObjs, Classes, Controls, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    Worker: TWorkThread;
    procedure ShowData;
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ShowData;
begin
  // Здесь может быть код, который выполняется каждые 30 секунд
  Memo1.Lines.Add(FormatDateTime('HH:NN:SS', Now)); // Пример: добавление текущего времени в Memo
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Worker := TWorkThread.Create(30, ShowData); // Создание фонового потока с периодом 30 секунд
  Worker.Start;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Worker.ThreadEvent.SetEvent; // Сигнал фоновому потоку о завершении работы
  Worker.Terminate;
  Worker.WaitFor;
end;
end.
// Конец кода главного окна формы

// Код фонового потока
unit u_workthread;
interface
uses
  SysUtils,
  SyncObjs,
  Classes;
type
  TWorkProc = procedure of object;
  TWorkThread = class(TThread)
  private
    Counter: Integer;
    FTimeout: Integer;
    FEventProc: TWorkProc;
    procedure DoWork;
  protected
    procedure Execute; override;
  public
    ThreadEvent: TEvent;
    constructor Create(TimeoutSeconds: Integer; EventProc: TWorkProc); // Конструктор с указанием времени ожидания в секундах
    destructor Destroy; override;
  end;
implementation
procedure TWorkThread.DoWork;
begin
  // Здесь может быть код, который требуется выполнить каждые 30 секунд
  // Важно не обращаться к GUI-элементам из этого метода
end;
procedure TWorkThread.Execute;
begin
  Counter := 0;
  while not Terminated do
  begin
    if ThreadEvent.WaitFor(FTimeout) = wrTimeout then
    begin
      DoWork;
      // Оповещение главного потока о том, что данные готовы
      Synchronize(FEventProc);
    end
    else
      // Событие ThreadEvent было сигнализировано, выход из цикла
      Break;
    end;
  end;
constructor TWorkThread.Create(TimeoutSeconds: Integer; EventProc: TWorkProc);
begin
  ThreadEvent := TEvent.Create(nil, True, False, '');
  // Преобразование в миллисекунды
  FTimeout := TimeoutSeconds * 1000;
  FEventProc := EventProc;
  // Вызов конструктора базового класса с CreateSuspended как True
  inherited Create(True);
end;
destructor TWorkThread.Destroy;
begin
  ThreadEvent.Free;
  inherited;
end;
end.
// Конец кода фонового потока

Альтернативный ответ

В качестве альтернативы можно использовать один поток с таймером для периодического обновления данных. Устанавливаем интервал таймера в соответствии с желаемой частотой обновления, например, 30000 миллисекунд (30 секунд). В обработчике события таймера выполняем необходимые операции и обновляем интерфейс пользователя.

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

Заключение

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

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

Программа на Delphi для отображения времени и даты с обновлением каждые 30 секунд, использующая фоновые потоки для эффективности и не блокировки основного потока.

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

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

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