Динамические подключаемые библиотеки dll в Delphi


Работа с DLL в Delphi

Рассмотреть как все это происходит, я предлагаю на сквозном примере, сложения двух чисел, где собственно процедура самого сложения будет находиться в файле dll.

Итак приступим:

  • Запускаем Delphi и создаем новый проект;
  • Размещаем на форме 3 компонента Edit, 2 компонента Label, 1 компонент Button, и настраиваем примерно как представлено, затем компилируем и сохраняем;

dll-delphi-дельфи-1.jpg Динамические подключаемые библиотеки dll в Delphi

  • Далее заходим в пункт меню File -> New -> Other -> Dynamic-linc Library, жмем Ок и сохраняем все в папке с нашим проектом, только изменяем имя сохраняемого на Project2.
  • В открывшемся листинге, текст между разделами library Project2 и uses, можно удалить, после значения {$R *.res}, создаем нашу функцию сложения и описываем ее:

  • После того как мы описали нашу функцию, под оператором end; пишем:

 

Код нашей DLL:

dll-delphi-дельфи-2.jpg Динамические подключаемые библиотеки dll в Delphi

  • Компилируем нашу библиотеку, соглашаемся с сообщением, что компилируем ее без параметров, закрываем наш Project2 и открываем Project1.dproj, а на вопрос о сохранении изменений в Project2.dproj, жмем Ok

Еще маленький нюанс…

  • Заходим в папку с нашим проектом, у нас такой путь:

  • C:\Users\User\Documents\RAD Studio\Projects\.dll в Delphi\Win32\Debug\Win32\Debug

  • и копируем от туда скомпилированную библиотеку — Project2.dll  в общую папку с проектом, у нас такой путь: 

  • C:\Users\User\Documents\RAD Studio\Projects\.dll в Delphi  …чтобы наша программа смогла ее найти!!!

  • Далее прописываем в наш открывшийся проект созданную нами функцию, для этого после значения {$R *.res} раздела implementation , пишем:

  • Создаем обработчик событий OnClick на нашей кнопке, где прописываем следующее:

  • Запускаем проект, вводим значения в первые два эдита, жмем — «Посчитать» и если вы все выполняли внимательно, то в Edit3, отобразится сумма введенных нами чисел.