Решение проблемы определения интерфейсов между плагинами в Delphi: IMyInterface и границы DLL

Delphi , Программа и Интерфейс , Интерфейс

Вопрос, поднятый в данном запросе, касается работы с интерфейсами в рамках системы плагинов, реализованных в виде динамически подключаемых библиотек (DLL). Проблема заключается в том, что плагин A не может обнаружить поддержку интерфейса IMyInterface плагином B, хотя последний его реализует. Проблема возникает на границе между DLL, что указывает на возможные ограничения при работе с объектами через границы этих библиотек.

Контекст проблемы:

Имеем два плагина (A и B), реализованных в виде DLL, которые используют интерфейс с заданным GUID, объявленный в приложении, загружающем эти DLL. Плагин B реализует данный интерфейс. Плагин A пытается определить, поддерживает ли плагин B интерфейс IMyInterface, используя метод GetInterface. Внутри плагина B код корректно определяет поддержку интерфейса, но при вызове того же кода из плагина A, поддержка интерфейса не обнаруживается.

Описание интерфейса IMyInterface:

IMyInterface = interface
    ['{277A3122-A3F2-4A14-AE56-C99230F31CE9}']
    function getModel: AnsiString;
    function getDescription: AnsiString;
end;

Реализация интерфейса в плагине B:

TModelAPI = class(TInterfacedObject, IMyInterface)
    function getModel: AnsiString;
    function getDescription: AnsiString;
end;

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

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

Рекомендации:

Для решения проблемы следует использовать только интерфейсы. Функция getPluginObjReference должна возвращать самый низкий общий интерфейс, поддерживаемый всеми плагинами, а затем использовать функцию Supports() для проверки, какие интерфейсы поддерживает конкретный плагин.

Пример кода:

var
  IObj: IMyInterface;
begin
  if Supports(getPluginObjReference, IMyInterface) then
    IObj := getPluginObjReference as IMyInterface;
  if Assigned(IObj) then
    ShowMessage('Interface Supported');
end;

Заключение:

Соблюдение принципа "100% интерфейсного API" позволяет плагинам работать с Delphi без необходимости компиляции обоих модулей для работы с runtime пакетами, а также обеспечивает совместимость между различными версиями Delphi и даже между DLL, написанными на Delphi, и приложениями, написанными на других языках. Интерфейсы существуют для создания спецификации (Application Binary Interface), которая не изменится при переизданиях компилятора или между языками.

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

Проблема заключается в некорректной идентификации интерфейса `IMyInterface` плагином A в рамках системы плагинов на Delphi, несмотря на его корректную реализацию в плагине B, из-за ограничений при работе с объектами через границы DLL.

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

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

:: Главная :: Интерфейс ::