Устранение ошибок при вызовах функций из DLL в Delphi: особенности работы с строковыми параметрами и спецификацией `stdcall`

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

Устранение ошибок при вызовах функций из DLL в Delphi: особенности работы с строковыми параметрами и спецификацией stdcall

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

Описание проблемы

Разработчик столкнулся с проблемой при динамическом вызове функции из DLL, написанной на C++. Функция принимает строковый параметр типа char*. В коде на Delphi, при использовании RTL для объявления функции, все работает корректно:

function MyDllCall(aParam: PAnsiChar): Longint; stdcall; external 'MyDllName.dll' name 'MyFunction';

Вызов функции из кода на Delphi:

MyDllCall(PAnsiChar('some text'));

Однако при использовании LoadLibrary, GetProcAddress и FreeLibrary для динамического вызова функции, программа крашится:

procedure DllCall;
type
  TMyDllCall = function(aParam: PAnsiChar): Longint;
var
  aMyDllCall: TMyDllCall;
  libHandle: Integer;
  res: Integer;
begin
  libHandle := LoadLibrary('MyDLL.dll');
  if libHandle <> 0 then
  begin
    @aMyDllCall := GetProcAddress(libHandle, 'MyDllFunction');
    if @aMyDllCall <> nil then
    begin
      res := aMyDllCall(PAnsiChar('some text')); // Это место вызывает аварийное завершение
      FreeLibrary(libHandle);
    end;
  end;
end;

Проблема, по всей видимости, связана с передачей строкового параметра.

Анализ кода DLL

В редакторе C++ код DLL включает в себя экспортируемую функцию:

MYDLLLIBRARY_API DWORD WINAPI MyDllFunction(char * dirName){
    return someFunction(dirName);
}

Внутри функции MyDllFunction используется строка char* workingDir для дальнейшей обработки. При изменении исходного кода DLL для вывода параметров, разработчик увидел, что передаваемая строка имеет неожиданный формат.

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

Ключевым моментом в решении данной проблемы является отсутствие спецификации stdcall при динамическом вызове функции. Это отличие от статического вызова, где stdcall присутствует и все работает корректно:

function MyDllCall(aParam: PAnsiChar): Longint; stdcall; external 'MyDllName.dll' name 'MyFunction';

Исправленный динамический вызов должен включать спецификацию stdcall:

type
  TMyDllCall = function(aParam: PAnsiChar): Longint; stdcall;

Также стоит отметить, что не требуется преобразование литерала в PAnsiChar, если вы передаете строку напрямую, и рекомендуется загружать DLL один раз, а не каждый раз при вызове функции.

Заключение

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

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

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

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

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

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