Работа с `TVirtualInterface` в Delphi XE3: динамическое создание интерфейсов через RTTI

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

Работа с TVirtualInterface в Delphi XE3: динамическое создание интерфейсов через RTTI

Вопрос, поднятый в вашем запросе, связан с использованием компонента TVirtualInterface в Delphi XE3 для динамического создания интерфейсов с помощью технологии RTTI (Runtime Type Information). В частности, вы столкнулись с необходимостью динамического приведения объекта TVirtualInterface к соответствующему интерфейсу, используя TypeInfo или RTTI.

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

Вы разрабатываете программу, в которой используете TVirtualInterface для создания динамических интерфейсов. У вас есть интерфейсы ITestData и IMoreData с чтением и записью свойств, а также класс TDataHolder, который содержит ссылки на эти интерфейсы. Вы создали класс TVirtualData, наследующий TVirtualInterface, следуя примерам Nick Hodges. При прямом использовании TVirtualData все работает корректно, но вам необходимо создать интерфейсы более косвенным способом, как показано в методе InstantiateData.

При попытке установить значения свойств с помощью SetValue в методе InstantiateData возникает исключение EInvalidCast. Вы пытались обойти это, приведя данные к соответствующему интерфейсу, но при попытке доступа к свойствам интерфейса возникает исключение EAccessViolation.

Подход к решению

Для решения проблемы необходимо правильно привести объект TVirtualInterface к нужному интерфейсу и сохранить его в TValue с указанием правильного типа, а не IInterface. В вашем случае, комментированная строка, добавленная для обхода второго исключения, была неэффективной, так как объект на самом деле содержал ссылку на IInterface, а не на ITestData или IMoreData.

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

Вот исправленный вариант метода InstantiateData, который решает проблему:

procedure InstantiateData(obj: TObject);
var
  rttiContext: TRttiContext;
  rttiType: TRttiType;
  rttiProperty: TRttiProperty;
  propertyType: PTypeInfo;
  data: IInterface;
  value: TValue;
begin
  rttiType := rttiContext.GetType(obj.ClassType);
  for rttiProperty in rttiType.GetProperties do
  begin
    propertyType := rttiProperty.PropertyType.Handle;
    if Supports(TVirtualData.Create(propertyType), TRttiInterfaceType(rttiProperty.PropertyType).GUID, data) then
    begin
      TValue.Make(@data, rttiProperty.PropertyType.Handle, value);
      rttiProperty.SetValue(obj, value);
    end;
  end;
end;

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

Пример кода

Для наглядности приведем пример использования TVirtualData и InstantiateData:

procedure Test_UsingIndirectInstantiation;
var
  dataHolder: TDataHolder;
begin
  dataHolder := TDataHolder.Create;
  try
    InstantiateData(dataHolder);

    dataHolder.TestData.Comment := 'Hello World!';
    dataHolder.MoreData.Success := False;

    Writeln('Comment:  ', dataHolder.TestData.Comment);
    Writeln('Success:  ', dataHolder.MoreData.Success);
  finally
    dataHolder.Free;
  end;
end;

Теперь метод InstantiateData должен работать корректно, и вы сможете использовать интерфейсы ITestData и IMoreData через объект TDataHolder без возникновения исключений.

Заключение

Использование TVirtualInterface в сочетании с RTTI позволяет создавать мощные и гибкие системы, но требует внимательного подхода к типизации и приведению типов. Следуя рекомендациям, описанным выше, вы сможете избежать распространенных ошибок и успешно интегрировать TVirtualInterface в свои проекты на Delphi.

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

Проблема заключается в динамическом приведении объекта `TVirtualInterface` к интерфейсу `ITestData` или `IMoreData` для работы с свойствами через RTTI в Delphi XE3.

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

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

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