Эффективное использование механизма синхронизации в Delphi: передача параметров без глобальных переменных

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

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

Проблема передачи параметров в синхронизированные процедуры

Когда мы создаем объект потока, нам может потребоваться вызвать код из приложения, который должен быть синхронизирован. Например, у нас есть процедура Execute в классе TThreadObject, где нам нужно передать параметры в синхронизированную процедуру funcyfunc. Один из способов - создать дополнительную процедуру starVal, которая будет использовать глобальные переменные, но это не является оптимальным решением.

Решение с использованием анонимных методов

Современные версии Delphi предоставляют возможность использования анонимных методов, что позволяет передавать параметры в синхронизированные процедуры без использования глобальных переменных. Пример использования анонимного метода в TThread.Synchronize:

Synchronize(
  procedure
  begin
    // Здесь можно использовать локальные переменные
    Form1.Memo1.Lines.Add('Begin Execution');
  end);

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

Пример кода с передачей параметров

procedure ThreadObject.Execute;
var
  val1, val2: Integer;
  Star: string;
begin
  Synchronize(
    procedure
    begin
      funcyfunc(val1, val2, Star);
    end);
end;

В этом коде параметры val1, val2 и Star будут переданы в синхронизированную процедуру funcyfunc, и вам не потребуется использовать глобальные переменные.

Альтернативное решение для старых версий Delphi

Если вы используете старую версию Delphi, которая не поддерживает анонимные методы, вы можете сделать параметры полями класса:

procedure ThreadObject.Execute;
var
  val1, val2: Integer;
  Star: string;
begin
  FVal1 := val1;
  FVal2 := val2;
  FStar := Star;
  Synchronize(procedure begin funcyfunc(FVal1, FVal2, FStar); end);
end;

procedure ThreadObject.funcyfunc;
begin
  // Выполнение кода с использованием FVal1, FVal2 и FStar
end;

Важно отметить, что эти поля не являются глобальными в классическом понимании, и их использование в рамках синхронизации безопасно, так как основная цель Synchronize - обеспечение координации между потоками.

Заключение

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

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

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

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

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

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