Использование обратного вызова из класса в Delphi: решение проблемы с ошибкой доступа

Delphi , Файловая система , DLL и PlugIns

Вопрос пользователя связан с использованием функции из динамически подключаемой библиотеки (DLL) в программе на Delphi. Проблема заключается в том, что при попытке использовать процедуру, определенную внутри класса, для обратного вызова в DLL, возникает ошибка доступа. Пользователь изменил тип процедуры, добавив модификатор of object, что привело к ошибке.

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

При работе с функциями, импортированными из DLL, важно понимать, что тип обратного вызова, который ожидает DLL, должен точно соответствовать типу, определенному в ее коде. Когда вы используете процедуры, объявленные внутри класса, и добавляете модификатор of object, вы фактически создаете метод, а не обычную функцию. Это изменяет способ вызова и может привести к ошибкам, если DLL не ожидает методы.

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

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

Метод-pointer (то, что вы получаете, добавив of object к объявлению) на самом деле является замыканием, состоящим из указателя на метод и ссылки на объект, метод которого вызывается. Компилятор Delphi знает, как вызывать метод-pointer, беря указанный объект и вызывая метод на нем.

Ваша DLL не знает, как вызывать метод-pointer, если только она не написана на Delphi или C++ Builder. Но даже если она знает, вы все равно окажетесь в затруднительном положении, так как DLL предполагает, что вы передаете ей обычный указатель на функцию, поскольку именно так был написан код DLL.

Возможные решения

1. Если определение обратного вызова в DLL позволяет, вы можете передать дополнительный параметр, который затем будет передан обратно. Вы можете использовать этот параметр для хранения ссылки на ваш объект, и затем в функции обратного вызова использовать этот объект. Это не выглядит так, что конкретная DLL поддерживает эту возможность.
2. Вы можете поместить ссылку на ваш объект в глобальную переменную, на которую вы можете затем ссылаться в вашей отдельной функции обратного вызова. Этот метод не является элегантным, и техника терпит крах, если у вас может быть несколько вызовов DLL одновременно (через многопоточность или рекурсию).
3. Вы можете выделить собственный сегмент памяти для функции и затем поместить ссылку на объект в код, который вы генерируете на лету для этого метода. Эффективнее всего, что каждая инстанция вашего класса, которая может вызывать функции DLL, будет иметь свой собственный приватный обратный вызов.

Альтернативный ответ с использованием интерфейсов

Рассмотрите следующий код:

type
  IPortNotification = interface
    ['{7BECA1D9-A6E8-4406-9910-5B36A6B0D564}']
    procedure StatusChanged(ACardNo, APortNo: integer; ANewPortStatus: byte);
    procedure DataReceived(ACardNo, APortNo: integer; ADataPtr: PByte; ADataLength: integer);
  end;

function RegisterPortNotification(ANotification: IPortNotification): BOOL; stdcall; external PortDLL;
function UnregisterPortNotification(ANotification: IPortNotification): BOOL; stdcall; external PortDLL;

DLL просто экспортирует две функции для регистрации и отмены регистрации указателей на интерфейсы, а интерфейс реализует обработчики событий напрямую в вашем коде. Это делает DLL довольно универсальной, вы можете переписать ее в любое время на другом языке, и вы можете использовать ее из других сред разработки.

Заключение

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

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

Пользователь столкнулся с проблемой использования обратного вызова из класса в программе на Delphi для взаимодействия с динамически подключаемой библиотекой (DLL), где изменение типа процедуры на метод класса привело к ошибке доступа.

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

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

:: Главная :: DLL и PlugIns ::