Как исправить ошибку доступа в памяти при вызове функции из C++ DLL в Delphi

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

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

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

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

Пример кода

Код функции ScraperGetWinList в файле Scraper.cpp выглядит следующим образом:

SCRAPER_API bool ScraperGetWinList(SWin winList[100])
{
    iCurrWin=0;
    memset(winList,0,100 * sizeof(SWin));
    return EnumWindows(EnumProcTopLevelWindowList, (LPARAM) winList);
}

И соответствующее объявление в Scraper.h:

#ifdef SCRAPER_EXPORTS
#define SCRAPER_API __declspec(dllexport)
#else
#define SCRAPER_API __declspec(dllimport)
#endif

struct SWin
{
    char title[512];
    HWND hwnd;
};

extern "C" {
    SCRAPER_API bool ScraperGetWinList(SWin winList[100]);
}

В приложении на Delphi функция объявляется так:

type
  tWin = record
    Title: Array [0..511] of Char;
    hWnd: HWND;
  end;
  tWinList = Array [0..99] of tWin;

function ScraperGetWinList(var WinList: tWinList): Boolean; stdcall; external 'Scraper.dll';

Подтвержденное решение

Проблема заключалась в несоответствии соглашений о вызовах между C++ и Delphi. Для исправления ошибки необходимо добавить спецификатор __stdcall после типа возвращаемого значения в C++ функции и в объявлении функции в Delphi. Полное объявление функции в C++ должно выглядеть так:

extern "C"
{
    __declspec(dllexport)
    bool __stdcall ScraperGetWinList(SWin winList[100]);
}

Также необходимо создать файл .def, который будет содержать список функций, экспортируемых из DLL:

EXPORTS
ScraperGetWinList

И в Delphi следует также указать stdcall в объявлении функции:

function ScraperGetWinList(var WinList: tWinList): Boolean; stdcall; external 'Scraper.dll';

Альтернативные решения и комментарии

Пользователь также упоминал, что при добавлении __stdcall в C++ код, Delphi приложение не запускалось из-за ошибки "entry point not found". Это указывает на то, что имя функции в DLL не соответствует ожидаемому Delphi. Важно убедиться, что __stdcall остается в объявлении функции в C++ и что в Delphi также используется stdcall.

Кроме того, было предложено использовать packed array[1..512] of AnsiChar вместо Array [0..511] of Char для типа tWin, что может упростить работу с строками в Delphi.

Также было рекомендовано проверить, не выходит ли индекс за пределы массива и не пытается ли программа обратиться к неинициализированным элементам массива.

Заключение

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

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

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

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

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

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