Создаём систему плагинов, часть 3

Прежде чем переходить к реализации нашей функции _Init, пощупаем сначала эти "пакеты в виде DLL".

Откройте Delphi, закройте все свои проекты и выберите File/New/Delphi projects/Package.

Delphi создаст обычный пустой пакет. Откройте менеджер проекта (View/Project Manager) или исходник (Project/View Source) - вы увидите, что этот пакет зависит от стандартного пакета Delphi rtlXXX.bpl (вы увидите слова "requires" и "rtl"), где XXX - это номер версии Delphi (например 120 для версии 12.0, т.е. Delphi 2009).

Это пакет в стиле Delphi. Если вы скомпилируете его, то увидите маленький bpl-файл размером около 10 Кб. Фактически этот файл представляет собой обычную DLL. Вы можете открыть его в любой утилите просмотра структуре PE-файлов.

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

Сам пакет практически не содержит кода - поэтому он такой небольшой, а весь рабочий код расположен в стандартном пакете Delphi rtl120.bpl (или какие там цифирьки у вашей версии Delphi). Собственно и зависит он только от двух модулей: kernel32.dll и rtl120.bpl.

Пакеты такого рода используется в Delphi повсеместно. Вы получаете удобство (общий менеджер памяти, повторное использование кода и т.п.), но платите за это привязкой к конкретной версии компилятора.

Уберём зависимость от компилятора Delphi. Для этого удалите пакет rtl из списка requires (например, удалив его из менеджера проектов или вручную отредактировав исходник). Перекомпилируем проект.

Теперь наш bpl-файл занимает около 100 Кб. Если вы посмотрите на его секцию экспорта, то станет ясно, почему он подрос: в него вошёл стандартный код, ранее располагавшийся в rtl120.bpl (а именно - модуль System). Теперь секция экспорта просто пестрит функциями, связанными с модулем System. Разумеется, Initialize и Finalize остались как были. Кроме того, в секции импорта исчезла зависимость от модуля rtl120.bpl, зато появились зависимости от advapi32.dll, user32.dll и oleaut32.dll.

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

Поэтому, функцию _Init (а заодно и потребующуюся нам в скором времени функцию _Done) можно реализовать очень просто вот так:

function GetProcAddress(hModule: HMODULE; lpProcName: PAnsiChar): Pointer; stdcall; external 'kernel32.dll' name 'GetProcAddress';

procedure _Init;
type
  TPackageLoad = procedure;
var
  PackageLoad: TPackageLoad;
begin
  @PackageLoad := GetProcAddress(HInstance, 'Initialize'); //Do not localize
  PackageLoad;
end;

procedure _Done;
type
  TPackageUnload = procedure;
var
  PackageUnload: TPackageUnload;
begin
  @PackageUnload := GetProcAddress(HInstance, 'Finalize'); //Do not localize
  PackageUnload;
end;

Как нужно загружать такие пакеты - это в следующий раз.