Создание универсального компонента на Delphi для работы с калбэками и обратными вызовами

Delphi , Синтаксис , Память и Указатели

Вопрос, поднятый в запросе, связан с разработкой невизуального компонента на Delphi, который позволяет пользователю определять неограниченное количество калбэков (обратных вызовов) в среде IDE. Эти калбэки должны быть определены в виде коллекции TCollection как TCollectionItem. Существующий подход, хоть и работает, имеет недостатки, в частности, использование техники "thunk", которая может вызвать проблемы на системах с включенным Data Execution Prevention (DEP) и на 64-битных архитектурах.

Основной компонент

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

TMainComp = class(TComponent)
private
   CallbacksArray: array of pointer;
   procedure BuildCallbacksArray;
public
   procedure Start;
published
   property CommandsTable: TCommandCollection read FCommandsTable write SetCommandsTable;
end;

TCommandCollectionItem = class(TCollectionItem)
public
   function InternalCommandFunction(ASomeNotUsefullPointer: pointer; ASomeInteger: integer): Word; stdcall;
published
   property OnEventCommand: TComandFunc read FOnEventCommand write FOnEventCommand;
end;

TComandFunc = function(AParam1: integer; AParam2: integer): Word of Object;

При запуске компонента вызывается процедура Start, которая заполняет массив CallbacksArray указателями на калбэки и передает его в функцию AddThread из внешней DLL.

Проблема с получением указателя на функцию

Основная проблема заключается в том, что для получения указателя на функцию InternalCommandFunction необходимо использовать функцию MethodToProcedure, которая применяет технику "thunk". Это может быть нежелательно, так как приводит к ограничениям, описанным выше.

Альтернативное решение

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

type
  TCallback = function(AUserData: Pointer; AParam1, AParam2: Integer): Word; stdcall;
  TCallbackRec = packed record
    Callback: TCallback;
    UserData: Pointer;
  end;
  // Остальная часть кода...

Если изменение DLL невозможно, то использование "thunks" остается единственным решением. В этом случае необходимо использовать функции VirtualAlloc и VirtualProtect для разрешений на выполнение выделенной памяти, как это делается во встроенных thunks VCL.

Заключение

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

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

Вопрос связан с разработкой компонента на Delphi для работы с калбэками, где необходимо решить проблему использования 'thunk' для получения указателей на функции, что может вызывать ограничения на системах с DEP и в 64-битных архитектурах.

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

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

:: Главная :: Память и Указатели ::