Работа с DLL библиотеками
DLL - Dynamic Link Library иначе динамически подключаемая библиотека, которая позволяет многократно применять одни и те же функции в разных программах. На самом деле довольно удобное средство, тем более что однажды написанная библиотека может использоваться во многих программах. В сегодняшнем уроке мы научимся работать с dll и конечно же создавать их!
Ну что ж начнём!
Для начала создадим нашу первую Dynamic Link Library! Отправляемся в Delphi и сразу же лезем в меню File -> New ->Other.
Выбираем в списке Dynamic-Link Library (в версиях младше 2009 Delphi пункт называется DLL Wizard).
В результате у нас появляется лишь окно с кодом, заметьте никакой формы у нас здесь нет !
Теперь начинается самое интересное. Напишем наши первые процедуры в библиотеке.
library Project2;
//Вы, наверное уже заметили, что вместо program
//при создании dll используется слово library.
//Означающее библиотека.
uses
SysUtils, dialogs,
Classes; // Внимание ! Не забудьте указать эти модули,
// иначе код работать не будет
{$R *.res}
{В ЭТУ ЧАСТЬ ПОМЕЩАЕТСЯ КОД DLL}
Procedure FirstCall; stdcall; export;
//Stdcall – При этом операторе параметры помещаются в стек
//справа налево, и выравниваются на стандартное значение
//Экспорт в принципе можно опустить, используется для уточнения
//экспорта процедуры или функции.
Begin
ShowMessage('Моя первая процедура в dll');
//Вызываем сообщение на экран
End;
Procedure DoubleCall; stdcall; export;
Begin
ShowMessage('Моя вторая процедура');
//Вызываем сообщение на экран
End;
Exports FirstCall, DoubleCall;
//В Exports содержится список экспортируемых элементов.
//Которые в дальнейшем будут импортироваться какой-нибудь программой.
begin
End. На этом мы пока остановимся т.к. для простого примера этого будет вполне достаточно. Сейчас сохраняем наш проект, лично я сохранил его под именем Project2.dll и нажимаем комбинацию клавиш CTRL+F9 для компиляции библиотеки. В папке, куда вы сохранили dpr файл обязан появится файл с расширением dll, эта и есть наша только что созданная библиотека. У меня она называется Project2.dll
Займёмся теперь вызовом процедур из данной библиотеки. Создаём по стандартной схеме новое приложение. Перед нами ничего необычного просто форма. Сохраняем новое приложение в какую-нибудь папку. И в эту же папку копируем только что созданную dll библиотеку. Т.е. в данном примере Project2.dll
Теперь вам предстоит выбирать, каким способом вызывать функции из библиотеки. Всего существует два метода вызова.
Способ № 1
Пожалуй, это самый простой метод вызова процедур находящихся в библиотеке.
Идеально подходит для работы только с одной библиотекой.
Ну что поехали...
После ключевого слова implementation прописываем следующий код:
Procedure FirstCall; stdcall; external 'Project2.dll'; // Вместо Project2.dll может быть любое имя библиотеки Procedure DoubleCall; stdcall; external 'Project2.dll';
Здесь, как вы уже наверное догадались, мы сообщаем программе названия наших процедур и говорим, что они находятся в dll библиотеке, в моем случае с именем Project2.dll
Теперь для того, что бы вызвать данные процедуры нам необходимо лишь вставить их названия в любое место кода, что мы сейчас и сделаем. Кидаем на форму 2 компонента Button с закладки Standart и создаем на каждой обработчик событий OnClick
OnClick первой кнопки:
Procedure TForm1.Button1Click(Sender: TObject); Begin FirstCall; // Имя процедуры, которая находится в dll End;
OnClick второй кнопки:
Procedure TForm1.Button2Click(Sender: TObject); Begin DoubleCall; // Имя процедуры, которая находится в dll End;
Вот и все !
Способ № 2:
Сложнее чем первый, но у него есть свои плюсы, а самое главное, что он идеально подходит для плагинов.
Для применения данного метода, первым делом объявляем несколько глобальных переменных:
Var LibHandle: HModule; //Ссылка на модуль библиотеки FirstCall: procedure; stdcall; //Имена наших процедур лежащих в библиотеке. DoubleCall: procedure; stdcall;
Затем после ключевого слова implementation напишем процедуру которая будет загружать нашу библиотеку:
Procedure LoadMyLibrary(FileName: String); Begin LibHandle:= LoadLibrary(PWideChar(FileName)); //Загружаем библиотеку! // Внимание ! PChar для версий ниже 2009 Delphi If LibHandle = 0 then begin MessageBox(0,'Невозможно загрузить библиотеку',0,0); Exit; End; FirstCall:= GetProcAddress(LibHandle,'FirstCall'); //Получаем указатель на объект //1-ий параметр ссылка на модуль библиотеки //2-ой параметр имя объекта в dll DoubleCall:= GetProcAddress(LibHandle,'DoubleCall'); If @FirstCall = nil then begin //Проверяем на наличие этой функции в библиотеке. MessageBox(0,'Невозможно загрузить библиотеку',0,0); Exit; End; If @DoubleCall = nil then begin //Проверяем на наличие этой функции в библиотеке. MessageBox(0,'Невозможно загрузить библиотеку',0,0); Exit; End; End;
После чего на форме создаем, обработчик событий OnCreate, в котором с помощью только что созданной процедуры мы загрузим нашу библиотеку
Procedure TForm1.FormCreate(Sender: TObject);
Begin
LoadMyLibrary('Project2.dll');
End; Теперь опять же, для того, что бы вызвать необходимые процедуры из нашей библиотеки нам необходимо лишь вставить их названия в любое место кода. Для этого кидаем на форму 2 компонента Button с закладки Standart и создаем на каждой обработчик событий OnClick
OnClick первой кнопки:
Procedure TForm1.Button1Click(Sender: TObject); Begin FirstCall; // Имя процедуры, которая находится в dll End;
OnClick второй кнопки:
Procedure TForm1.Button2Click(Sender: TObject); Begin DoubleCall; // Имя процедуры, которая находится в dll End;
Ну и напоследок создаем обработчик событий OnDestroy на форме, в котором выгружаем dll библиотеку из памяти
Procedure TForm1.FormDestroy(Sender: TObject); Begin FreeLibrary(LibHandle); //Выгружаем библиотеку из памяти. End;
Вот и все ! Второй способ получился довольно громоздкий, но его плюс в уточнении хранящегося объекта в библиотеке.
Добавлено: 07 Августа 2018 21:12:59 Добавил: Андрей Ковальчук