Работа с аннотированными методами в Delphi XE: передача функций из DLL в дочерние классы

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

Вопрос, поднятый в данной теме, касается использования механизма Rtti для установки методов в базовый класс, который позволит дочерним классам использовать функции из динамически подключаемых библиотек (DLL). Разработчик столкнулся с проблемой приведения типов при попытке установить методы, полученные из DLL, в поля дочерних классов. В контексте данного вопроса уже имеется решение, которое заключается в правильном использовании типа TValue и обработке некоторых особенностей реализации Rtti в Delphi XE.

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

Разработчик использует Delphi XE для создания базового класса TWrapperBase, который должен позволять дочерним классам использовать методы из DLL, обозначенные с помощью аннотаций. При попытке установить методы, полученные из DLL, в поля дочерних классов, возникает ошибка приведения типов. Это происходит в методе MapMethods базового класса, где методы DLL должны быть связаны с полями дочерних классов.

Пример базового класса:

TWrapperBase = class
public
  FLibHandle: THandle;
  procedure MapMethods;
end;

procedure TWrapperBase.MapMethods;
var
  MyField: TRttiField;
  MyAttribute: TCustomAttribute;
  pMethod: pointer;
begin
  // Инициализация и связывание методов
end;

И дочернего класса:

TDecendant = class(TWrapperBase)
private type
  TSomeDLLMethod = procedure(aParam: TSomeType); cdecl;
private
  [TMyMapperAttribute('MyDllMethodName')]
  FSomeDLLMethod: TSomeDLLMethod;
public
  property SomeDLLMethod: TSomeDLLMethod read FSomeDLLMethod;
end;

Разработчик также упоминает, что ранее существовавшие способы установки значений полей с помощью Rtti позволяли это делать только для опубликованных свойств и без проверки типов.

Подтвержденное решение

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

if Assigned(pMethod) then
begin
  TValue.Make(@pMethod, MyField.FieldType.Handle, Value);
  MyField.SetValue(Self, Value);
end;

Также, в Delphi XE присутствует ошибка, связанная с обработкой типов процедур, которая была исправлена в более поздних версиях. Для решения этой проблемы можно использовать патч для Rtti, доступный в коде с сайта Bitbucket. Однако следует учесть, что QualityCentral больше не доступен, и для доступа к старым данным можно использовать QCScraper.

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

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

Заключение

Для успешной работы с аннотированными методами в Delphi XE и передачи функций из DLL в дочерние классы, необходимо обращать внимание на корректное использование TValue для приведения типов и, при необходимости, использовать патчи для исправления известных ошибок в реализации Rtti.

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

Разработчик в Delphi XE столкнулся с проблемой приведения типов при попытке установить методы из DLL в дочерние классы и нашел решение, используя тип `TValue` и учитывая особенности реализации `Rtti`.

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

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

:: Главная :: RTTI ::