Ошибка передачи параметров в динамически подключаемой библиотеке при реализации глобального хука мыши в Delphi

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

Ошибка передачи параметров в динамически подключаемую библиотеку при реализации глобального хука мыши в Delphi

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

Проблема

Разработчик столкнулся с проблемой при передаче параметров в функцию StartHookProc, расположенную в DLL, из хост-приложения. Проблема заключалась в том, что при передаче значения 0 в качестве параметра, на стороне DLL этот параметр отображался как символ 'ě' с кодом 236. Это указывало на проблему с корректной передачей параметров.

Контекст

В контексте вопроса представлены две функции: одна в хост-приложении и одна в DLL. Функция StartHook в хост-приложении предназначена для запуска хука, а StartHookProc в DLL - для установки хука мыши. Обе функции используют параметр LockDirection, который должен передаваться между ними.

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

Проблема заключалась в неправильном объявлении типа TStartHook в хост-приложении. Не было указано соглашение о вызовах (calling convention). Правильное объявление должно включать stdcall, что соответствует соглашению вызовов, используемому в Windows API. Вот как должно выглядеть объявление:

type
  TStartHook = function(AppHandle: HWND; LockDir: byte): Byte; stdcall;

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

В альтернативном ответе разработчик предполагает, что использование stdcall является специфичным для Delphi, и задается вопрос о том, будет ли работа кода корректной без указания соглашения вызовов. Однако, в Delphi по умолчанию используется соглашение register, если соглашение не указано явно. На 64-битных системах Windows существует только одно соглашение вызовов, поэтому указание соглашения вызова stdcall не повлияет на совместимость с другими компиляторами.

Пример кода

Ниже представлен исправленный пример кода для хост-приложения:

function TMainForm.StartHook(LockDirection: byte): boolean;
type
  TStartHook = function(AppHandle: HWND; LockDir: byte): Byte; stdcall;
var
  StartHookProc: TStartHook;
  SHresult: Byte;
  i: integer;
  LibPath: string;
begin
  LibPath := ExtractFilePath(Application.ExeName) + 'hooklib.dll';
  HookInfo.LibHandle := LoadLibrary(PChar(LibPath));
  // ...
  SHresult := StartHookProc(Handle, LockDirection);
  // ...
end;

И для DLL-стороны:

function StartHookProc(AppHandle: HWND; LockDir: byte): Byte; stdcall;
begin
  // ...
end;

Заключение

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

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

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

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

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

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