Разбираемся с импортом функций из DLL в Delphi XE7: ошибки вызова по `stdcall` и корректная работа с `PAnsiChar` и `AnsiString`

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

Разбираемся с импортом функций из DLL в Delphi XE7: ошибки вызова по stdcall и корректная работа с PAnsiChar и AnsiString

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

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

Разработчик столкнулся с проблемой, при которой при вызове функции Decrypt из DLL, использующей соглашение вызовов stdcall, параметры aText и aKey получают "мусорные" значения. При этом, если изменить определение экспорта функции на export, проблема исчезает, и значения передаются корректно. Вопрос стоит в том, в чем заключается ошибка в коде, связанная с stdcall, и что изменяется, когда используется ключевое слово export.

Контекст

Функция Decrypt в DLL определена следующим образом:

Decrypt(aText, aKey: PAnsiChar): PAnsiChar; stdcall;

И экспортируется как:

exports
  Decrypt;

При вызове из клиентского приложения:

lH := LoadLibrary('EncDec.dll');
FEncDyc := GetProcAddress(lH, PChar('Decrypt'));

lResult := FEncDyc(PAnsiChar(AnsiString(EditPwd.Text)),
                   PAnsiChar(AnsiString(EditKey.Text)));

где FEncDyc является указателем на функцию типа:

TDecrypt = function(aText: PAnsiChar; aKey: PAnsiChar): PAnsiChar;

Параметры aText и aKey получают "мусорные" значения, но если изменить определение экспорта на export, то проблема исчезает.

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

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

TDecrypt = function(aText: PAnsiChar; aKey: PAnsiChar): PAnsiChar; stdcall;

Важно также учитывать, что возвращаемое значение функции должно быть выделено динамически с помощью GetMem или аналогичной функции, и необходимо экспортировать деаллокатор из DLL.

Альтернативный ответ

Вопрос о том, является ли правильным способом передачи значения типа PAnsiChar преобразование в AnsiString, а затем в PAnsiChar, остается актуальным. Согласно предоставленной информации, такой способ передачи данных является корректным.

Практические рекомендации

1. Убедитесь, что при импорте функции указано правильное соглашение вызовов.
2. Выделение памяти для возвращаемого значения функции должно производиться динамически.
3. Экспортируйте деаллокатор для очистки выделенной памяти после использования.
4. При передаче строк в функцию, убедитесь, что они корректно выделены и что после использования функция, отвечающая за их освобождение, будет вызвана.

Пример кода

type
  TDecrypt = function(aText: PAnsiChar; aKey: PAnsiChar): PAnsiChar; stdcall;

procedure UseDecryptFunction;
var
  lH: HMODULE;
  FDecrypt: TDecrypt;
  lResult: PAnsiChar;
begin
  lH := LoadLibrary('EncDec.dll');
  if lH <> 0 then
  begin
    FDecrypt := GetProcAddress(lH, 'Decrypt');
    if Assigned(FDecrypt) then
    begin
      // Выделение памяти для передачи параметров
      GetMem(lResult, SizeOf(AnsiChar) * (Length(EditPwd.Text) + 1));
      CopyStr(lResult, EditPwd.Text);

      // Вызов функции с корректными параметрами
      lResult := FDecrypt(lResult, PAnsiChar(AnsiString(EditKey.Text)));

      // Использование результата
      // ...

      // Освобождение памяти
      GetMem(lResult, 0);
    end;
    FreeLibrary(lH);
  end;
end;

Следуя этим рекомендациям, вы сможете избежать типичных ошибок при работе с DLL в Delphi XE7, связанных с использованием PAnsiChar и соглашением вызовов stdcall.

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

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

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

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

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