Решение проблемы вызова функций из DLL Visual C++ в Delphi

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

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

typedef int (WINAPI* PFI_HD_ST_N)(HDC, LPCSTR, int);
HINSTANCE m_hiDLLCTRL; // Дескриптор модуля DLL
PFI_HD_ST_N pfStart;   // Указатель на функцию запуска внешней программы

// Инициализация
m_hiDLLCTRL = NULL;
pfStart = NULL;

// Подключение DLL
m_hiDLLCTRL = LoadLibrary("ExtProgCTRL.dll");

// Получение адреса функции
if (m_hiDLLCTRL)
    pfStart = (PFI_HD_ST_N)GetProcAddress(m_hiDLLCTRL, "ExtProgStart");

// Вызов функции
if (pfStart)
    pfStart->Call(GetDC(hWnd), "C:\\Programs\\ExtProg", 1);

Аналогичный код на Delphi доходит до этапа загрузки функции, но не может корректно выполнить вызов:

private
    DLLHandle: THandle;
    XInt: function: Integer; cdecl;
...
DLLHandle := LoadLibrary('ExtProgCTRL.dll');
if DLLHandle <> 0 then
begin
    @XInt := GetProcAddress(DLLHandle, 'ExtProgStart');
    if @XInt <> nil then
    begin
        // Вызов функции не удаётся
        retval := XInt(GetDC(hWnd), 'C:\Programs\ExtProg', 1);
    end;
end;

Ошибка, возникающая при попытке вызова функции, указывает на некорректность синтаксиса. Чтобы решить эту проблему, необходимо правильно описать прототип функции в Delphi, соответствующий прототипу функции из DLL. В C++ код определяет функцию с тремя параметрами: дескриптором устройства (HDC), строкой (LPCSTR) и целым числом (int), а также использует соглашение о вызовах WINAPI, которое соответствует Delphi'евскому stdcall.

Исправленный код на Delphi будет выглядеть следующим образом:

private
    DLLHandle: THandle;
    XInt: function(DC: HDC; Text: PAnsiChar; SomeInt: Integer): Integer; stdcall;
...
DLLHandle := LoadLibrary('ExtProgCTRL.dll');
if DLLHandle <> 0 then
begin
    @XInt := GetProcAddress(DLLHandle, 'ExtProgStart');
    if @XInt <> nil then
    begin
        retval := XInt(GetDC(hWnd), PAnsiChar('C:\Programs\ExtProg'), 1);
    end;
end;

Важно убедиться, что функция GetDC(hWnd) возвращает корректное значение дескриптора устройства, и что hWnd является действительным дескриптором окна. Также стоит проверить, что все пути к файлам и параметры, передаваемые функции, соответствуют ожиданиям DLL.

Заключение

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

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

Проблема заключается в некорректном вызове функции из DLL, написанной на Visual C++, в программе на Delphi из-за различия в соглашениях о вызовах функций.

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

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

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