Обходное решение: передача интерфейса по GUID в автоматизированные методы Delphi

Delphi , Технологии , COM и DCOM

Передача интерфейсов по GUID в автоматизированные методы Delphi

При работе с компонентами COM в Delphi, разработчики часто сталкиваются с необходимостью передачи интерфейсов по их идентификаторам GUID. Это позволяет, например, создавать объекты или возвращать их на основе определенных интерфейсов, поддерживаемых этими объектами. Вопрос, который часто возникает: можно ли передавать ссылки на интерфейсы в автоматизированные серверы COM так же, как и ссылки на классы?

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

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

Например, можно определить метод, принимающий параметр GUID, используя редактор типов библиотек:

function ChildNodesOfType(NodeType: TGUID): IMBNode; safecall;

В этой функции вы хотели бы возвращать автоматизированные типы, поддерживающие интерфейс, указанный параметром NodeType, например:

if Supports(SomeNode, NodeType) then
    result := SomeNode;

Однако вызов функции Supports постоянно возвращает ошибку. Вы пытались передать GUID, определенные в типовой библиотеке, но ни один из различных типов (Ixxx, Class_xxxx, IID_Ixxx) не работал.

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

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

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

Объект SysUtils имеет как минимум пять перегрузок функции Supports, и все они принимают параметр TGUID для своего второго аргумента.

Вы действительно можете передавать типы интерфейсов в качестве параметров, но на самом деле это просто GUID. То есть, когда функция ожидает аргумент TGUID, вы можете передать ей идентификатор типа интерфейса, например, IMBNode или IUnknown. Для этого интерфейсный тип должен включать GUID в своем объявлении, например:

type
  IMBNode = interface
    ['{GUID-здесь}']
    // методы и свойства
  end;

Когда первым параметром к Supports передается ссылка на интерфейс, функция вызывает его метод QueryInterface. Если он возвращает S_OK, то Supports возвращает true, в противном случае — false. Когда первым параметром является ссылка на объект, то сначала вызывается метод объекта GetInterface для получения его интерфейса IUnknown, и затем Supports вызывается для этого, как и раньше. Если это не работает, то функция пытается получить запрашиваемый интерфейс напрямую из GetInterface. Если вы правильно реализовали QueryInterface для вашего объекта или использовали стандартную реализацию из TInterfacedObject, то все должно работать корректно.

Если Supports никогда не возвращает true, стоит пересмотреть некоторые предположения. Убедитесь, что ваш узел действительно поддерживает запрошенный интерфейс. Проверьте, что объявление класса включает этот интерфейс. Убедитесь, что QueryInterface реализован правильно. И убедитесь, что SomeNode действительно ссылается на узел, который вы ожидаете.

Комментарии

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

Обходное решение: передача интерфейса по GUID в автоматизированные методы Delphi

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

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

Контекст описания связан с использованием GUID для передачи интерфейсов в автоматизированные методы Delphi и возможностями функции `Supports` из модуля `SysUtils` для проверки поддержки определенного интерфейса объектом.

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

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

:: Главная :: COM и DCOM ::