Ошибка при вызове функции из DLL в Delphi: как правильно указать имя экспортируемой функции

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

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

Шаг 1: Проверка имени функции

Имя функции, которое вы пытаетесь получить через GetProcAddress, должно точно соответствовать имени, под которым функция экспортируется из DLL. В случае, если функция написана на C++, имя может быть декорировано (то есть, изменено компилятором для обеспечения соглашений вызова функций).

Шаг 2: Использование Dependency Walker

Для проверки имен функций, экспортируемых из DLL, можно использовать утилиту Dependency Walker. Это позволит вам увидеть все функции, которые доступны для импорта, и их декорированные имена.

Шаг 3: Исправление кода Delphi

В вашем коде Delphi, если вы обнаружили, что имя функции декорировано, вам нужно будет использовать это декорированное имя при вызове GetProcAddress. Например, если функция называется MXIO_GetDllVersion, но в DLL она экспортируется как _MXIO_GetDllVersion@0, то ваш код должен выглядеть следующим образом:

@mCall := GetProcAddress(Handle, '_MXIO_GetDllVersion@0');

Шаг 4: Обработка ошибок

Если GetProcAddress все равно возвращает nil, проверьте код возврата GetLastError, который может дать вам дополнительную информацию о причине ошибки.

Пример кода на Object Pascal

type
  TMyCall = function: Integer; stdcall;

const
  MYDLL = 'путь\к\MXIO_NET.dll';

procedure TForm2.btnFncClick(Sender: TObject);
var
   Handle: HMODULE;
   mCall: TMyCall;
begin
   // Загрузка библиотеки
   Handle := LoadLibrary(MYDLL);
   if Handle <> 0 then
   begin
      // Получение адреса функции
      @mCall := GetProcAddress(Handle, '_MXIO_GetDllVersion@0');
      if @mCall <> nil then
      begin
         // Вызов функции
         Label3.Caption := 'Версия DLL: ' + IntToStr(mCall);
      end
      else
      begin
         // Обработка ошибки
         Label3.Caption := 'Функция не найдена. Ошибка: ' + IntToStr(GetLastError);
      end;
      // Освобождение библиотеки
      FreeLibrary(Handle);
   end
   else
      Label3.Caption := 'Ошибка загрузки библиотеки';
end;

Следуя этим шагам, вы сможете правильно указать имя экспортируемой функции и успешно вызвать её из вашего приложения на Delphi.

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

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

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

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

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