{Project file name: c:\example\exdouble\exdouble.dpr}library ExDouble;
// my simple dllfunction calc_double(r: real): real; stdcall;
begin
result := r * 2;
end;
exports
calc_double index 1;
end;
Теперь посмотрим, как её можно загружать:
Статическая загрузка DLL
При таком способе загрузки достаточно поместить файл DLL в директорию приложения или в директорию Windows, или в Windows\System, Windows\Command. Однако, если система не найдёт этого файла в этих директория, то высветится сообщение об ошибке (DLL не найдена, или что-то в этом духе).
unit untMain;
interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private{ Private declarations }public{ Public declarations }end;
var
Form1: TForm1;
implementationfunction calc_double(r: real): real; stdcall; external 'ExDouble.dll';
{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin// в окошке сообщения будет цифра 21
ShowMessage(FloatToStr(calc_double(10.5)));
end;
end.
Динамическая загрузка DLL
При динамической загрузке требуется написать немного больше кода.
А вот как это выглядит:
unit untMain;
interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tcalc_double = function ( r: real ): real;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private{ Private declarations }public{ Public declarations }end;
var
Form1: TForm1;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
hndDLLHandle: THandle;
calc_double: Tcalc_double;
begintry// загружаем dll динамически
hndDLLHandle := loadLibrary ( 'ExDouble.dll' );
if hndDLLHandle <> 0 thenbegin// получаем адрес функции
@calc_double := getProcAddress ( hndDLLHandle, 'calc_double' );
// если адрес функции найденif addr ( calc_double ) <> nilthenbegin// показываем результат ( 21...)
showMessage ( floatToStr ( calc_double ( 10.5 ) ) );
endelse// DLL не найдена ("handleable")
showMessage ( 'Function not exists...' );
endelse// DLL не найдена ("handleable")
showMessage ( 'DLL not found...' );
finally// liberar
freeLibrary ( hndDLLHandle );
end;
end;
end.
Статья Динамическая и статическая загрузка DLL раздела Файловая система DLL и PlugIns может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.