Различия в передаче параметров при вызове функций из динамических и статических библиотек в Delphi XE3 Update 2: анализ и решение проблемы

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

Различия в передаче параметров при вызове функций из динамических и статических библиотек в Delphi XE3 Update 2

Вопрос, поднятый в данной теме, связан с различиями в поведении вызовов функций из динамически и статически подключаемых библиотек в среде разработки Delphi XE3 Update 2. Пользователь столкнулся с проблемой, что при вызове функции из C DLL, скомпилированной в динамическую библиотеку, результаты работы отличаются в зависимости от способа подключения. В статическом случае (когда функция объявлена как external в коде программы) и динамическом (когда адрес функции получается через GetProcAddress) наблюдаются различия в инициализации параметров.

Анализ проблемы

При вызове функций из динамических библиотек в Delphi используется соглашение о вызовах stdcall. В отличие от этого, при статическом подключении библиотек может использоваться другое соглашение о вызовах, например, register. В данном случае, параметр keylist в статическом вызове передаётся через регистр EAX, который затем перезаписывается внутри динамической библиотеки, что приводит к некорректной работе функции.

Пример кода

program testProject;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils, System.classes, Windows;

function keylist_open(keylist: PPointer): Integer; external 'libLib'; // Статическое объявление
var
  Handle: HINST;
  DLLName: PChar = 'libLib.dll';

type
  Tkeylist_open = function(keylist: PPointer): Integer; stdcall; // Соглашение о вызовах stdcall
const
  keylist_openDynamic: Tkeylist_open = nil;
var
  keylist: Pointer;

begin
  Handle := LoadLibrary(DLLName);
  if Handle = 0 then
    Exit;
  @keylist_openDynamic := GetProcAddress(Handle, 'keylist_open'); // Получение адреса функции из DLL

  keylist_open(@keylist); // Статический вызов
  if (keylist = nil) then
    Writeln('static: keylist is nil');

  keylist_openDynamic(@keylist); // Динамический вызов
  if (keylist = nil) then
    Writeln('dynamic: keylist is nil');
end.

Решение проблемы

Чтобы устранить разницу в поведении, необходимо убедиться, что соглашения о вызовах для статических и динамических функций совпадают. В данном случае, следует изменить соглашение о вызовах для статической функции keylist_open на stdcall, чтобы оно соответствовало соглашению, используемому при динамическом вызове.

Пример исправленного кода

function keylist_open(keylist: PPointer): Integer; stdcall; external 'libLib'; // Исправленное статическое объявление

После внесения этого изменения поведение функции keylist_open должно стать одинаковым независимо от способа вызова.

Заключение

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

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

Вопрос касается различий в поведении вызовов функций из динамических и статических библиотек в Delphi XE3 Update 2, связанных с соглашениями о вызовах функций и передачей параметров.

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

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

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