Разрешение проблем с динамическими библиотеками в Delphi 7: понимание передачи параметров между DLL и основной программой

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

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

Проблема с неправильным приемом целых значений DLL

Разработчик столкнулся с проблемой, когда при передаче целого числа в функцию DLL, значение параметра на стороне DLL оказывалось другим. Это может быть связано с различными факторами, включая неправильное определение соглашения о вызове (calling convention).

Ошибка доступа после выполнения функции

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

Пример кода DLL

Вот пример кода DLL, который демонстрирует проблему:

library apmDLL;
uses
  Classes, Messages, Windows, Dialogs, sysutils ;
const
  WM_MY_MESSAGE = WM_USER + 1;
procedure sendtoACRPM(functionKey : integer); stdcall;
begin
  ShowMessage('You sent - '+IntToStr(functionKey));
  ShowMessage('Finished Now');
end;
exports sendtoACRPM;
end.

Пример кода основного приложения

Основное приложение, вызывающее функцию DLL, выглядит следующим образом:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, shlobj, shellapi;
const
  WM_MY_MESSAGE = WM_USER + 1;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
  procedure sendtoACRPM(functionKey : integer); external 'apmDLL.dll' stdcall;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
  myInt: integer;
begin
  myInt := StrToInt(Edit1.Text);
  ShowMessage('Sending - '+IntToStr(myInt));
  sendtoACRPM(myInt);
end;
end.

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

Основная проблема заключается в том, что соглашение о вызове (calling convention) определено только в коде DLL, но не в вызывающем приложении. Соглашение stdcall должно быть указано в обоих местах.

procedure sendtoACRPM(functionKey : integer); external 'apmDLL.dll' stdcall;

Также рекомендуется использовать стандартную функцию Windows MessageBox вместо ShowMessage, чтобы обеспечить совместимость с не-Delphi приложениями.

Заключение

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

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

Разработчик столкнулся с проблемами при работе с динамическими библиотеками в Delphi 7, включая несоответствие значений параметров и ошибки доступа, и ищет решения, связанные с пониманием передачи параметров между DLL и основной прогр

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

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

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