Загрузить DLL из ресурса непосредственно из памяти

В статье о том, как хранить DLL в исполняемом файле программы Delphi в качестве ресурса, объясняется, как доставить DLL вместе с исполняемым файлом приложения Delphi в качестве ресурса.

Библиотеки динамических ссылок содержат разделяемый код или ресурсы, они дают возможность нескольким приложениям совместно использовать одну копию подпрограммы (или ресурса), которую они имеют совместно.

С помощью файлы ресурсов (.RES)Вы можете вставлять (и использовать) звуковые файлы, видеоклипы, анимацию и, в более общем смысле, любые двоичные файлы в исполняемый файл Delphi.

Согласно статье Загрузка DLL из памяти Иоахим Баух, это возможно.

Вот как Иоахим смотрит на проблему: Функции Windows API по умолчанию для загрузки внешних библиотек в программу (LoadLibrary, LoadLibraryEx) работают только с файлами в файловой системе. Поэтому невозможно загрузить DLL из памяти. Но иногда вам нужна именно эта функциональность (например, вы не хотите распространять много файлов или хотите усложнить разборку). Обычные обходные пути для этой проблемы - сначала записать DLL во временный файл и импортировать его оттуда. Когда программа завершается, временный файл удаляется.

Код в упомянутой статье - C ++, следующим шагом было преобразование его в Delphi. К счастью, это уже сделал Мартин Оффенвангер (автор DSPlayer).

Модуль памяти Martin Offenwanger - расширенная Delphi (а также Lazarus) совместимая версия C ++ Иоахима Бауха Модуль памяти 0.0.1. В zip-пакет входит полный исходный код Delmo для MemoyModule. (BTMemoryModule.pas). Кроме того, есть Delphi и пример, включенный, чтобы продемонстрировать, как его использовать.

Если демонстрационная DLL хранится как ресурс с использованием файла RC:

DemoDLL RCDATA DemoDLL.dll

вар
ms: TMemoryStream;
rs: TResourceStream;
начать
если 0 <> FindResource (hInstance, 'DemoDLL', RT_RCDATA) тогда
начать
rs: = TResourceStream. Создать (hInstance, 'DemoDLL', RT_RCDATA);
ms: = TMemoryStream. Создайте;
пытаться
Миз. LoadFromStream (rs);
Миз. Положение: = 0;
m_DllDataSize: = мс. Размер;
mp_DllData: = GetMemory (m_DllDataSize);
Миз. Читать (mp_DllData ^, m_DllDataSize);
наконец
Миз. Свободно;
RS. Свободно;
конец;
конец;
конец;

вар
btMM: PBTMemoryModule;
начать
btMM: = BTMemoryLoadLibary (mp_DllData, m_DllDataSize);
пытаться
если btMM = нольтогда Прервать;
@m_TestCallstd: = BTMemoryGetProcAddress (btMM, 'TestCallstd');
если @m_TestCallstd = nil, то Abort;
m_TestCallstd («Это вызов памяти Dll!»);
Кроме
Showmessage ('Ошибка при загрузке DLL:' + BTMemoryGetLastError);
конец;
если Назначено (бтММ) тогда BTMemoryFreeLibrary (btMM);
конец;

1. Иметь / Создать DLL
2. Сохраните DLL в файле RES
3. Есть Реализация BTMemoryModule.
4. Возьмите DLL из ресурса и загрузите ее прямо в память.
5. Используйте методы BTMemoryModule для выполнения процедуры из DLL в памяти.