Основы DLL для начинающих

@STRATEG · Регистрация: 04.03.2010

Студворк — интернет-сервис помощи студентам

Понимая как начинающему не просто самому понять как создавать динамические библиотеки (Dynamic Link Library),я решил написать эту статью, в которой постараюсь раскрыть основные принципы работы с Dll в Delphi.

Для начала нужно знать почему в некоторых случаях лучше сделать Dll,а не просто Модуль. Возможно в нескольких ваших приложениях окажется одинаковый блок кода, не совсем малых размеров, вы можете сделать Модуль и подключить к каждому проекту, но размер EXE файла будет больше, нежели когда вы создадите одну Dll, и будете её использовать во многих программах. Когда вы работаете с динамической библиотекой, вы значительно экономите память, так как в нее загружается всего один экземпляр Dll для всех программ.
Что же могут Динамические библиотеки:
-Хранить в них звуки,картинки,иконки,курсоры и многое другое
-Использоваться в качестве плагинов (для того чтобы не редактировать сам файл программы)
-Помещать туда диалоговые,простые окна;меню и всевозможные другие ресурсы
-Давать возможность другим программистам использовать вашу библиотеку на других языках

Перейдем от теории к практики.

Напишем Dll, которая будет содержать в себе две математические функции:
1)Вычисление Факториала числа.
2)Нахождение суммы двух чисел.

Для начала нужно создать Dll в дельфи, для этого делаем следующее:
File->New->Other->Dll Wizard
Появится проект вашей новой Dll.

Теперь напишем наши две функции:

Delphi
1
2
3
4
5
6
7
8
9
10
11
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
Вот так выглядит в нашей программе экспортирование

Delphi
1
exports Fucktorial,Symma;

Теперь когда Dll готова, сохраним её под именем Math(Имя конечно может быть любое)
File->Save Project As

Неявная(статическая) загрузка

Осталось создать приложение, которое будет использовать функции нашей Dll
File->New->Application

Для примера я поместил на форму: два TEdit, два TButton, один TLabel

После ключегого слова implementation объявим наши функции таким образом

Delphi
1
2
function Symma(a,b:integer):Integer;stdcall;external 'Math.dll';
function Fucktorial(N:integer):integer;stdcall;external 'Math.dll';

Как можно заметить здесь присутствует незнакомое слово external.Так мы определяем где находится наша функция,и откуда её вызывать.В нашем проекте мы вызываем функции из только что созданной Dll.

Напишем код в наши Button

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//суммирование двух чисел
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,далее мы рассмотрим как этого избежать с помощью явной(динамической) загрузкой.

Явная(Динамическая) загрузка

Сейчас мы рассмотрим Динамическую или как еще говорят Явную загрузку библиотек. Она по объему кода конечно больше чем Неявная(статическая) но зато более гибкая.

Возьмем наш прошлый проект,и переделаем под явную(динамическую) загрузку.
Теперь вызов выглядит вот так

Сумма двух чисел:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.btn1Click(Sender: TObject);
var
a,b,c:integer;                          //переменные для чисел
dHandle: THandle;                   //Хендл загруженной Dll
Symma: function (a,b:integer):Integer;stdcall;  //описываем нашу функцию
begin
//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;

Факториал числа:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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;

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

Так как форум не резиновый,я не смог поместить сюда всю информацию.В моей небольшой справке я поместил данную статью и статью по работе с формами в Dll.Найти её можно в конце статьи.

Описание незнакомых функций:

Delphi
1
LoadLibrary (lpLibFileName: PChar): HMODULE;

Назначение:
Загружает Dll в память.
Параметры:
lpLibFileName-Путь к Dll.
Возвращаемое значение :
Ссылка на модуль библиотеки при успешной загрузке, иначе 0 .

Delphi
1
GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC ;

Назначение :
Ищет в библиотеке модуль.
Параметры :
lpProcName-Имя функции
hModule-ссылка на модуль которую возвратила нам функция LoadLibrary
Возвращаемое значение:
Указатель на функцию если он найден в Dll, иначе nil.

Delphi
1
FreeLibrary (hLibModule: HMODULE): BOOL;

Назначение :
Выгружает Dll из памяти.
Параметры:
hLibModule- ссылка на модуль которую возвратила нам функция LoadLibrary
Возвращаемое значение:
True если успешно выгрузили, иначе False

Файлы к статье:
Dll.rar
Неявная(статическая) загрузка.rar
Явная(динамическая) загрузка.rar
Книга с исходниками.rar

Новые файлы:
Обмен текстом.rar
Обмен изображениями.rar
Обмен изображениями + текстом.rar

Vovan-VE · 07.05.2010, 16:13

Думаю, немного суховато написано. Расчитано на копи-паст и даже поверхностно не раскрывает сути DLL.

<Mawrat: Всё сразу не напишешь.

Тема остаётся открытой - т. е. желающие могут добавлять свои посты с материалами.>

@Yami_Yami · 30.10.2010, 10:08

Вопрос можно?
В DLL можно объявлять классы?
если да, то как осуществить

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
  SysUtils,
  Classes;
 
{$R *.res}
 
type
  TClass = class(TObject)
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
begin
end.

<STRATEG: Никакой разницы объявления классов в Dll и в приложении Win нету. Это грубо говоря вообще одно и тоже. По таким вопросам пишите в личку.>

@NewbieNoob · 26.11.2010, 21:45

Хотелось бы подробного рассмотрения Хуков, и вообще, добавьте пожалуйста список задач, в которых без ДЛЛ ну никак не обойтись и те задачи, где ДЛЛ использовать предпочтительнее...

<STRATEG:Хорошо. Материал будет добавлен. К сожалению, только в [незнаю каком] году. Если что-то срочное обращайтесь в личку. >

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

Vovan-VE 13210 / 6599 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
	07.05.2010, 16:13
	Думаю, немного суховато написано. Расчитано на копи-паст и даже поверхностно не раскрывает сути DLL. <Mawrat: Всё сразу не напишешь. Тема остаётся открытой - т. е. желающие могут добавлять свои посты с материалами.> 4

@NewbieNoob 8 / 8 / 0 Регистрация: 02.08.2010 Сообщений: 63
	26.11.2010, 21:45
	Хотелось бы подробного рассмотрения Хуков, и вообще, добавьте пожалуйста список задач, в которых без ДЛЛ ну никак не обойтись и те задачи, где ДЛЛ использовать предпочтительнее... <STRATEG:Хорошо. Материал будет добавлен. К сожалению, только в [незнаю каком] году. Если что-то срочное обращайтесь в личку. > 3