Скопировать ссылку
Перейти к посту
Модератор форума
Автор: STRATEG
Понимая как начинающему непросто самому понять, как создавать динамические библиотеки (Dynamic Link Library), я решил написать эту статью, в которой постараюсь раскрыть основные принципы работы с Dll в Delphi.
Для начала нужно знать почему в некоторых случаях лучше сделать Dll, а не просто Модуль. Возможно, в нескольких ваших приложениях окажется одинаковый блок кода, не совсем малых размеров, вы можете сделать Модуль и подключить его к каждому проекту, но размер EXE файла будет больше, нежели когда вы создадите одну Dll, и будете её использовать во многих программах. Когда вы работаете с динамической библиотекой, вы значительно экономите память, так как в нее загружается всего один экземпляр Dll для всех программ.
Что же могут Динамические библиотеки:
- Хранить в них звуки, картинки, иконки, курсоры и многое другое
- Использоваться в качестве плагинов (для того чтобы не редактировать сам файл программы)
- Помещать туда диалоговые, простые окна; меню и всевозможные другие ресурсы
- Давать возможность другим программистам использовать вашу библиотеку на других языках
Перейдем от теории к практики.
Напишем Dll, которая будет содержать в себе две математические функции:
1) Вычисление Факториала числа.
2) Нахождение суммы двух чисел.
Для начала нужно создать Dll в Delphi, для этого делаем следующее: "File -> New -> Other -> Dll Wizard". Появится проект вашей новой Dll. Теперь напишем наши две функции:
- function Fucktorial(N: integer): integer; stdcall;
- var p: integer;
- begin
- for p := 1 to N do N := N*P;
- Result := N;
- end;
- function Symma(a,b: integer): Integer; stdcall;
- begin
- Result := a+b;
- end;
После каждой функции вы можете заметить что стоит stdcall,эта деректива предписывает использование стандартных соглашений о вызове функций, конечно это не обязательно.
Далее мы должны сделать чтобы эти функции были доступны извне. Для этого существует ключевое слово Exports. Вот так выглядит в нашей программе экспортирование:
- exports Fucktorial,Symma;
Теперь когда Dll готова, сохраним её под именем Math (имя, конечно, может быть любое): "File -> Save Project As"
Неявная(статическая) загрузка
Осталось создать приложение, которое будет использовать функции нашей Dll. "File->New->Application".
Для примера я поместил на форму: два TEdit, два TButton, один TLabel
После ключегого слова implementation объявим наши функции таким образом:
- function Symma(a,b:integer):Integer; stdcall; external 'Math.dll';
- function Fucktorial(N:integer):integer; stdcall; external 'Math.dll';
Как можно заметить здесь присутствует незнакомое слово external. Так мы определяем где находится наша функция, и откуда её вызывать. В нашем проекте мы вызываем функции из только что созданной Dll.
Напишем код в наши Button:
- //суммирование двух чисел
- procedure TForm1.btn1Click (Sender: TObject);
- var a, b, c:integer; //переменные для чисел
- begin
- a:=StrToInt(edt1.text);
- b:=StrToInt(edt2.text);
- C:=Symma(a,b);
- lblResult.Caption := 'Результат:' + IntToStr(C);
- end;
- //расчет факториала
- procedure TForm1.btn2Click(Sender: TObject);
- var N:Integer;
- begin
- N:=StrToInt(edt1.text);
- lblResult.Caption := 'Результат:' + IntToStr(Fucktorial(N));
- end;
Осталось лишь скомпилировать приложение и можно проверять его работу.
Теперь нужно сказать пару слов о проблемах,которые могут возникнуть. Ваша Dll должна находиться в следующих местах: рядом с программой, System. Если библиотека не найдена программой в этих местах-то появляется неприятное сообщение об ошибке, и ваша программа сразу завершит свою работу, это недостаток неявной (статической) загрузки Dll, далее мы рассмотрим как этого избежать с помощью явной (динамической) загрузки.
Явная (Динамическая) загрузка
Сейчас мы рассмотрим Динамическую или как еще говорят Явную загрузку библиотек. Она по объему кода конечно больше чем Неявная(статическая) но зато более гибкая. Возьмем наш прошлый проект и переделаем под явную (динамическую) загрузку.
Теперь вызов выглядит вот так:
- //Symma теперь не на какой участок памити не указывает
- @Symma:=nil;
- //Пытаемся загрузить Dll
- dHandle:=LoadLibrary('Math.dll');
- //Если загрузили то
- if dHandle<>0 then
- begin
- //Найдем адрес нужной функции и присвоим его переменной Symma
- @Symma:=GetProcAddress(dHandle,'Symma');
- //если мы нашли функции в Dll и получили её адрес то
- if @Symma<>nil then
- begin
- a:=StrToInt(edt1.text);
- b:=StrToInt(edt2.text);
- C:=Symma(a,b);
- lblResult.Caption := 'Результат:' + IntToStr(C);
- end
- else //если мы не нашли функцию в Dll
- begin
- lblResult.Caption := 'Результат:Функция не найдена в Dll';
- Exit;
- end;
- //выгружаем Dll из памяти
- FreeLibrary(dHandle);
- end
- else
- begin
- //если Dll не может быть загружена или не найдена
- lblResult.Caption := 'Результат:Библеотека не найдена';
- Exit;
- end;
- end;
Факториал числа:
- procedure TForm1.btn2Click(Sender: TObject);
- var N:Integer;
- dHandle: THandle;
- Fucktorial: function (N:integer):integer;stdcall;
- begin
- @Fucktorial:=nil;
- dHandle:=LoadLibrary('Math.dll'); //Грузим Dll
- if dHandle<>0 then begin
- @Fucktorial:=GetProcAddress(dHandle,'Fucktorial');
- if @Fucktorial<>nil then
- begin
- N:=StrToInt(edt1.text);
- lblResult.Caption := 'Результат:' + IntToStr(Fucktorial(N));
- end
- else
- begin
- lblResult.Caption := 'Результат:Функция не найдена в Dll';
- Exit;
- end;
- FreeLibrary(dHandle);
- end
- else
- begin
- lblResult.Caption := 'Результат:Библеотека не найдена';
- Exit;
- end;
- end;
_____
- LoadLibrary (lpLibFileName: PChar): HMODULE;
Загружает Dll в память.
Параметры:
lpLibFileName - Путь к Dll.
Возвращаемое значение:
Ссылка на модуль библиотеки при успешной загрузке, иначе 0.
- GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC;
Ищет в библиотеке модуль.
Параметры:
lpProcName - Имя функции
hModule - ссылка на модуль которую возвратила нам функция LoadLibrary
Возвращаемое значение:
Указатель на функцию если он найден в Dll, иначе nil.
- FreeLibrary (hLibModule: HMODULE): BOOL;
Выгружает Dll из памяти.
Параметры:
hLibModule- ссылка на модуль которую возвратила нам функция LoadLibrary
Возвращаемое значение:
True если успешно выгрузили, иначе False
Неявная(статическая) загрузка (204.46 кб.)
Явная(динамическая)_загрузка (204.7 кб.)
Книга с исходниками (1237.9 кб.)
Обмен текстом (498.73 кб.)
Обмен изображенями (599.21 кб.)
Обмен изображениями и текстом (519.75 Кб)
DLL (42.31 кб.)
Да, детка, я - Король Ящериц!!!
