Решение проблемы импорта функций kernel32.dll в проекты на FreePascal

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

Вопрос пользователя заключается в том, как правильно импортировать функции из библиотеки kernel32.dll в проекты, написанные на FreePascal, которые вызывают ассемблерные функции, использующие эти самые функции из kernel32.dll. Пользователь столкнулся с ошибкой при компиляции проекта в FreePascal, указывающей на отсутствие функций GetStdHandle и WriteConsoleA, которые объявлены во внешнем ассемблерном файле. При этом, если функции из kernel32.dll не вызываются, проблем с линковкой не возникает.

Подробное решение проблемы:

БениБела предложил следующий подход:

1. В программе на FreePascal объявить функцию WindowsGetStdHandle, которая будет ссылаться на функцию GetStdHandle из kernel32.dll:

program dlltest;
function WindowsGetStdHandle(n: LongInt): LongInt; stdcall;
  external 'kernel32.dll' name 'GetStdHandle';

1. Использовать директиву $asmmode intel для создания ассемблерного процедуры WrapperGetStdHandle, которая будет служить оберткой для вызова WindowsGetStdHandle:

{$asmmode intel}
procedure WrapperGetStdHandle; assembler; public name 'AliasGetStdHandle';
asm
  jmp WindowsGetStdHandle
end;

1. В том же файле на FreePascal объявить функцию AsmGetStdHandle, которая будет ссылаться на ассемблерную функцию gethandle из внешнего объекта:

{$link myget.obj}
function AsmGetStdHandle(n: LongInt): LongInt; stdcall;
  external name 'gethandle';

1. В ассемблерном файле myget.asm определить функцию gethandle, которая будет использовать обертку AliasGetStdHandle:

section .text
extern AliasGetStdHandle
global gethandle
gethandle:
  mov   eax, [esp+4]
  push  eax
  call  AliasGetStdHandle
  ret   4

Таким образом, ассемблерная функция gethandle через обертку AliasGetStdHandle сможет вызвать функцию GetStdHandle из kernel32.dll.

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

Если в программе на FreePascal использовать директиву $linklib kernel32, то символы из kernel32.dll станут доступны в объектных файлах, линкованных в программе на FreePascal. В ассемблерном коде можно будет напрямую ссылаться на функции из kernel32.dll. Однако, использование внешнего линкера (например, gnu ld) с параметром -Xe может быть необходимым для успешной линковки.

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

Пользователь нашел решение в использовании оберток для функций, экспортируемых из исходного кода на FreePascal. Например:

{$ASMMODE INTEL}
procedure WrapperGetStdHandle; assembler; public; alias: '_GetStdHandle@4';
asm  jmp GetStdHandle end;
procedure WrapperWriteConsoleA; assembler; public; alias: '_WriteConsoleA@20';
asm  jmp WriteConsoleA end;

Это позволило успешно импортировать функции из kernel32.dll в ассемблерные функции, используемые в проектах на FreePascal.

Заключение:

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

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

Решение проблемы импорта функций из библиотеки kernel32.dll в проекты на FreePascal заключается в использовании оберток для доступа к этим функциям из ассемблерного кода.

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

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

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