12164

ДИНАМИЧЕСКИЕ БИБЛИОТЕКИ

Лабораторная работа

Информатика, кибернетика и программирование

ДИНАМИЧЕСКИЕ БИБЛИОТЕКИ Динамические библиотеки DLL Dynamic Link Library играют важную роль в функционировании ОС Windows и прикладных программ. Они представляют собой файлы с откомпилированным исполняемым кодом который используется приложениями и другими DLL. Реализация многи

Русский

2013-04-24

58.5 KB

5 чел.

ДИНАМИЧЕСКИЕ БИБЛИОТЕКИ

Динамические библиотеки (DLL, Dynamic Link Library) играют важную роль в функционировании ОС Windows и прикладных программ. Они представляют собой файлы с откомпилированным исполняемым кодом, который используется приложениями и другими DLL. Реализация многих функций ОС вынесена в динамические библиотеки, которые используются по мере необходимости, обеспечивая тем самым экономию адресного пространства. DLL загружается в память только тогда, когда к ней обращается какой-либо процесс.

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

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

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

Создание DLL

Для создания динамической библиотеки в Delphi имеется специальный шаблон. Его значок DLL Wizard расположен на странице File -> New -> Other страница New. В отличие от проекта обычного приложения, проект DLL состоит всего из одного исходного файла. Впоследствии к нему можно добавлять отдельные модули и формы.

library Projectl;

uses

SysUtils, Classes;

{$R *.res}

begin 

end.

Для определения типа проекта используется ключевое слово library (вместо program в обычном проекте). При компиляции такого проекта динамической библиотеки создается файл с расширением dll.

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

Для создания перечня экспортируемых из динамической библиотеки процедур и функций используется ключевое слово exports(exports имена экспортируемых функций через запятую). При этом можно указывать как функции, описанные в главном файле DLL, так и функции из присоединенных модулей.

В качестве примера рассмотрим исходный код динамической библиотеки DataCheck, простейшие функции которой проверяют введенную строку перед конвертацией на соответствие одному из типов данных.

library DataCheck; 

uses

 Windows, SysUtils, Classes, Messages, Forms, Dialogs, StdCtrls, ComCtrls;

function ValidDate(AText: String): Integer; 

begin

 try

   Result := 0; StrToDate(AText); 

 except

   on E:EConvertError do Result := -1; 

 end; 

end;

function ValidTime(AText: String): Integer;

begin 

 try

   Result := 0; StrToTime(AText);

  except

   on E:EConvertError do Result := -1; 

 end; 

end;

function Validlnt(AText: String): Integer;

begin 

 try

   Result := 0; StrToInt(AText);

  except

   on E:EConvertError do Result := -1;

   end;

end;

exports Validlnt, ValidDate index 1, ValidTime index 2 name 'IsValidTime';

begin

 if Length(DateToStr(Date)) < 10 then

   ShowMessage('Год представлен двумя цифрами');

end.

Три функции этой библиотеки обеспечивают проверку строки перед преобразованием ее в целое число, дату или время. Для обеспечения экспорта этих функций их необходимо объявить в секции exports.

Имена процедур и функций в секции экспорта разделяются запятыми. Внимательный взгляд на пример экспорта в листинге 28.2 обнаруживает три различных варианта объявления.

В первом варианте компилятор самостоятельно определяет положение функции в таблице экспорта.

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

Ключевое слово name позволяет экспортировать функцию под другим именем.

При загрузке динамической библиотеки выполняется код инициализации, который расположен в блоке begin..end. Обычно здесь выполняются операции по заданию начальных значений используемых в функциях библиотеки переменных, проверка условий функционирования DLL, создание необходимых структур и объектов и т. д.

Теперь рассмотрим, как из динамических библиотек вызываются функции. Функции динамических библиотек могут вызываться двумя способами — явным и неявным.

Неявный вызов

Механизм неявного вызова наиболее прост, так как выполняется автоматически и основан на имеющейся в приложении информации о вызываемых функциях и динамических библиотеках. Однако разработчик не имеет возможности влиять на ход загрузки DLL. Если операционная система не смогла загрузить библиотеку, просто выдается сообщение об ошибке.

В качестве примера неявного вызова рассмотрим простое приложение DemoDLL, использующее функции библиотеки DataCheck (см. выше). Для этого в нем имеются три компонента TEdit, в которых осуществляется проверка введенной строки на соответствие формату одного из типов данных.

unit DemoUnit;

        interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, comctrls, Buttons;

type

 TMainForm = class(TForm)

   IntEdit: TEdit;

   DateEdit: TEdit;

   TimeEdit: TEdit;

   IntLabel: TLabel;

   DateLabel: TLabel;

   TimeLabel: TLabel;

   procedure IntEditExit(Sender: TObject);

   procedure DateEditExit(Sender: TObject);

   procedure TimeEditExit(Sender: TObject);

 end;

var

 MainForm: TMainForm;

 function Validlnt(AText: String): Boolean; external 'DataCheck.dll'; 

 function ValidDate(AText: String): Boolean; external 'DataCheck.dll';

  function IsValidTime(AText: String): Boolean; external 'DataCheck.dll';

implementation

{$R *.DFM}

procedure TMainForm.EditlExit(Sender: TObject);

 begin

  if not IsValidlnt(IntEdit.Text) then

    IntEdit.Clear;

 end;

procedure TMainForm.Edit2Exit(Sender: TObject);

begin

 if not IsValidDate(DateEdit.Text) then

  DateEdit.Clear;

        end;

procedure TMainForm.Edit3Exit(Sender: TObject); 

begin

 if not ValidTime(TimeEdit.Text) then

   TimeEdit.Clear;

end;

end.

Для организации неявного вызова достаточно объявить нужную функцию с директивой external и указать имя содержащей ее динамической библиотеки. Обратите внимание, что третья функция объявлена под псевдонимом isValidTime, который объявлен для этой функции при помощи ключевого слова name в исходном коде динамической библиотеки.

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

Явный вызов

Явный вызов динамической библиотеки подразумевает создание программистом соответствующего исходного кода. Ему необходимо предусмотреть загрузку DLL, получение адресов переменных процедурного типа для используемых функций и процедур, выгрузку DLL.

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

Листинг 28.6. Модуль главной формы проекта DemoDll2

unit DemoUnit;

interface

uses

 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

 StandardProc = function(AText: String): Boolean;

 

 TMainForm = class(TForm)

   IntEdit: TEdit;

   DateEdit: TEdit;

   TimeEdit: TEdit;

   IntLabel: TLabel;

   DateLabel: TLabel;

   TimeLabel: TLabel;

   procedure FormShow(Sender: TObject);

   procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure IntEditExit(Sender: TObject);

   procedure DateEditExit(Sender: TObject);

   procedure TimeEditExit(Sender: TObject);

 

private

 DLLHandle: THandle;

 LoadError: Word;

 IsValidlnt: StandardProc;

 IsValidDate: StandardProc;

 ValidTime: StandardProc;  

        end;

var

 MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FormShow(Sender: TObject);

begin

 DLLHandle := LoadLibrary('DataCheck');

  if DLLHandle = 0 then

 begin

   if GetLastError = ERROR_DLL_NOT_FOUND then

     ShowMessage('Ошибка загрузки DLL'); 

   Close;

  end;

 IsValidInt := GetProcAddress(DLLHandle, 'IsValidlnt');

  SIsValidDate := GetProcAddress(DLLHandle, 'IsValidDate');

 SValidTime := GetProcAddress(DLLHandle, 'ValidTime');

  end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 if DLLHandle <> 0 then

   FreeLibrary(DLLHandle);

end;

procedure TMainForm.IntEditExit(Sender: TObject); 

begin

 if not IsValidlnt(IntEdit.Text) then

   IntEdit.Clear; 

end;

procedure TMainForm.DateEditExit(Sender: TObject);

begin

  if not IsValidDate(DateEdit.Text) then

    DateEdit.Clear; 

end;

procedure TMainForm.TimeEditExit(Sender: TObject);

 begin 

  if not ValidTime(EditTime.Text) then

    TimeEdit.Clear;

 end;

         end.

Загрузка динамической библиотеки DataCheck осуществляется в методе-обработчике FormShow при помощи функции LoadLibrary. Имя динамической библиотеки может не содержать маршрута, если файл DLL расположен в одном каталоге с программой. Если в этом каталоге файл DLL не найден, поиск последовательно проводится в текущем каталоге, \SYSTEM и каталогах из перечня Path.

Если библиотека успешно загружена, в три процедурные переменные типа standardProc передаются адреса соответствующих функций DLL. Процедурный тип standardProc объявлен перед классом формы. Для этого используется системная функция GetProcAddress.

При закрытии приложения необходимо выгрузить все используемые динамические библиотеки При помощи системной функции FreeLibrary.


 

А также другие работы, которые могут Вас заинтересовать

38110. Взаємовідносини у військовому колективі і їх формування на основі вимог статутів 155.5 KB
  З Заняття № 13: “Взаємовідносини у військовому колективі і їх формування на основі вимог статутівâ€.Ознайомити курсантів студентів з особливостями взаємовідносин військових. 1 2 ВСТУПНА ЧАСТИНА ОСНОВНА ЧАСТИНА Особливості взаємовідносин військових. Особливості взаємовідносин військових 35 хв.
38111. Психологія спілкування у військовому колективі 162.5 KB
  Військовий підрозділ як мала соціальна група Заняття №14: Психологія спілкування у військовому колективі â€. Ознайомити курсантів студентів із сутністю психології спілкування у військовому середовищі. Надати курсантам знання щодо функцій та структури спілкування. 1 2 ВСТУПНА ЧАСТИНА ОСНОВНА ЧАСТИНА Поняття “спілкування†його різновиди та функції Стилі спілкування у військовому...
38112. Розвиток і виховання особистості 110.5 KB
  Заняття № 1: “Розвиток і виховання особистості â€.Ознайомити курсантів студентів із загальною характеристикою особистості. Розглянути структуру особистості. 1 2 3 ВСТУПНА ЧАСТИНА ОСНОВНА ЧАСТИНА Загальна характеристика особистості та її структура Основні зарубіжні концепції теорії навчання і виховання.
38113. Психологічні особливості адаптації 126 KB
  “Загальні психологопедагогічні особливості процесу адаптаціїâ€. Заняття № 1: “Психологічні особливості адаптації â€. Розглянути питання щодо адаптації у військовому колективі. 1 2 ВСТУПНА ЧАСТИНА ОСНОВНА ЧАСТИНА Сутність адаптації.
38114. Составление программ разветвляющейся структуры 91.5 KB
  Решить задание в соответствии с вариантом задания. Исходные данные должны вводиться в режиме диалога и сопровождаться комментариями. Результат вывести на экран, сопровождая вывод комментариями. Изучить правила записи операторов ветвления. Разработать алгоритм решения задачи. Составить программу решения задачи.
38116. ЭКОНОМИКО-СТАТИСТИЧЕСКИЙ АНАЛИЗ ОСНОВНЫХ ПОКАЗАЗАТЕЛЕЙ ДЕЯТЕЛЬНОСТИ ВОДОХОЗЯЙСТВЕННОЙ СТРОИТЕЛЬНОЙ ОРГАНИЗАЦИИ 569 KB
  Целью экономической статистики является получение информации для принятия решений органами государственного управления в вопросах регулирования экономики и разработки экономической политики.
38117. ФИРМА В РАЗЛИЧНЫХ МОДЕЛЯХ РЫНКА 231.5 KB
  Издержки производства, их структура. Экономическая и бухгалтерская прибыль. Закон убывающей предельной производительности (отдачи). Совершенноконкурентный производитель: определение цены и объема производства. Фирма в условиях несовершенной конкуренции: определение цены и объема производства.
38118. Соціально-психологічні риси військового колективу 80 KB
  Військовий підрозділ як мала соціальна група Заняття №4: Соціальнопсихологічні риси військового колективу Час: 2 год. Мета заняття: Зясувати загальна характеристика військового навчання. Усвідомити закономірності та принципи військового навчання.