Работа с TThread и TMemo: Фоновые задачи и синхронизация в Delphi

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

Работа с TThread и TMemo: Фоновые задачи и синхронизация в Delphi

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

Создание класса TThread с TMemo и параметрами

Для начала создадим класс TThread, который будет принимать TMemo и параметры, необходимые для выполнения задачи. Пример такого класса представлен ниже:

unit ThreadUnit;

interface

Uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  VCL.StdCtrls;

type
  TMyThread = class(TThread)
  private
    FMemo: TMemo;
    FCMD: String;
    FDir: String;
  public
    constructor Create(var ResultMemo: TMemo; CMD, Dir: String);
  protected
    procedure Execute; override;
  end;

implementation

{ TMyThread }
constructor TMyThread.Create(var ResultMemo: TMemo; CMD, Dir: String);
begin
  Inherited Create(True);
  FreeOnTerminate := True;
  FMemo := ResultMemo;
  FCMD := CMD;
  if Dir = '' then
    FDir := 'C:\'
  else
    FDir := Dir;
end;

procedure TMyThread.Execute;
var
  SA: TSecurityAttributes;
  SI: TStartupInfo;
  PI: TProcessInformation;
  StdOutPipeRead, StdOutPipeWrite: THandle;
  Handle, WasOK: Boolean;
  Buffer: array[0..255] of AnsiChar;
  BytesRead: Cardinal;
  utf8: UTF8String;
  Result: String;
begin
  Result := '';
  // Инициализация и создание каналов для передачи данных
  // ...
  // Создание процесса и чтение данных из стандартного вывода
  // ...
  if Handle then
  begin
    try
      repeat
        WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
        if BytesRead > 0 then
        begin
          Buffer[BytesRead] := #0;
          utf8 := Result + String(Buffer);
          Result := utf8;
          // Синхронизация доступа к UI
          Synchronize(
            procedure
            begin
              FMemo.Lines.Add(Result);
            end
          );
        end;
      until not WasOK or (BytesRead = 0);
      WaitForSingleObject(PI.hProcess, INFINITE);
    finally
      CloseHandle(PI.hThread);
      CloseHandle(PI.hProcess);
    end;
  end;
finally
  CloseHandle(StdOutPipeRead);
end;

end.

Использование TThread для фоновых задач

Чтобы использовать созданный класс TThread, достаточно создать экземпляр этого класса и вызвать метод Start. Пример использования TMyThread приведен ниже:

procedure TForm2.Button1Click(Sender: TObject);
var
  MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(Memo1, 'PING 127.0.0.1', '');
  MyThread.Start;
end;

При нажатии на кнопку Button1 будет создан новый поток, который будет выполнять команду ping и отображать результаты в TMemo, не блокируя пользовательский интерфейс.

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

В приведенном выше коде используется механизм синхронизации для доступа к UI-элементам из фонового потока. Это позволяет обновлять интерфейс в реальном времени без блокировки основного потока программы.

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

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

Заключение

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

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

Описание: Пример создания и использования фонового потока `TThread` в Delphi для выполнения задач без блокировки основного потока и демонстрация синхронизации доступа к `TMemo` для отображения результатов в реальном времени.

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

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

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