Правильная передача массива в задачу с использованием OmniThreadLibrary в Delphi XE8

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

При работе с библиотекой OmniThreadLibrary в среде разработки Delphi XE8 может возникнуть проблема с передачей массива в задачу через метод SetParameter. В данной статье мы рассмотрим, как правильно решить эту проблему, используя примеры кода на Object Pascal.

Описание проблемы

Разработчик столкнулся с ошибкой компилятора при попытке передать массив в задачу, используя метод SetParameter из OmniThreadLibrary. Ошибка возникала из-за несовместимости типов данных.

Пример кода, вызывающего ошибку

type
  TCookie = record
    Name:    string;
    Value:   string;
    ExpDate: string;
    ModDate: string;
  end;
  TCookieArray = array of TCookie;

var
  CurCookies: TCookieArray;

procedure TForm1.btnStartTaskClick(Sender: TObject);
begin
  SetLength(CurCookies, 2);
  CurCookies[0].Name  := 'username';
  CurCookies[0].Value := 'Paul';
  CurCookies[1].Name  := 'password';
  CurCookies[1].Value := 'none';

  FGetCookieDetailsTask := CreateTask(GetCookieEntries, 'GetCookieEntries')
    .MonitorWith(OTLMonitor)
    .SetParameter('CookiesArray', TOmniValue.FromArray<TCookieArray>(CurCookies))
    .Run;
end;

Компилятор выдавал ошибку, указывая на несовместимость типов.

Решение проблемы

Для корректной передачи массива в задачу необходимо использовать тип TArray<T> вместо array of T. Кроме того, при использовании метода TOmniValue.FromArray<T> следует указывать тип элементов массива, а не сам тип массива.

Исправленный код:

type
  TCookie = record
    Name:    string;
    Value:   string;
    ExpDate: string;
    ModDate: string;
  end;
  TCookieArray = TArray<TCookie>;

var
  CurCookies: TCookieArray;

procedure TForm1.btnStartTaskClick(Sender: TObject);
begin
  SetLength(CurCookies, 2);
  CurCookies[0].Name  := 'username';
  CurCookies[0].Value := 'Paul';
  CurCookies[1].Name  := 'password';
  CurCookies[1].Value := 'none';

  FGetCookieDetailsTask := CreateTask(GetCookieEntries, 'GetCookieEntries')
    .MonitorWith(OTLMonitor)
    .SetParameter('CookiesArray', TOmniValue.FromArray<TCookie>(CurCookies))
    .Run;
end;

procedure GetCookieEntries(const task: IOmniTask);
var
  TaskCookies: TCookieArray;
begin
  TaskCookies := task.Param['CookiesArray'].ToArray<TCookie>;
  // Здесь можно работать с массивом TaskCookies
end;

Дополнительные замечания

В OmniThreadLibrary до версии 3.04b существовали проблемы с обработкой записей в методах ToArray<T> и FromArray<T>. Однако эти проблемы были исправлены, и актуальная версия библиотеки должна работать корректно.

Заключение

Передача массива в задачу с использованием OmniThreadLibrary в Delphi XE8 требует правильного объявления типа массива и использования метода TOmniValue.FromArray<T> с указанием типа элементов массива. Следование этим рекомендациям позволит избежать ошибок и обеспечит корректную работу с массивами в многопоточных приложениях.

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

Проблема связана с неправильной передачей массива в задачу при использовании библиотеки OmniThreadLibrary в Delphi XE8, требующей корректировки типа массива и метода его передачи.

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

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

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