Finally

Else

End

Else

End

Try

Begin

Var

Type

TAddFunction = function(K:Integer): Integer: stdcall;

procedure Tform1.Button2Click(Sender:TObject);

Addl: TAddFunction;

HLib: THandle;

N: Integer;

HLib:= 0;

HLib:= LoadLibrary(‘FIrstLib.dll’);

if HLib <> 0 then begin

Add1:= GetProcAddress(HLib, 'CalculateSum');

if Assigned(Add1) then begin

N:= StrToInt(Editl.Text);

N:= Addl(N):

Edit1.Text:= IntToStr(N);

ShowMessage(' CalculateSum was not found');

ShowMessage('Can not load library FirstLib.dll’);

if HLib<> 0 then FreeLibrary(HLib);

end;

end;

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

Далее в коде приложения вызывается функция LoadLibrary, которая в качестве параметра использует имя библиотеки. После успешной отработки этой функции и загрузки библиотеки в память дескриптор загруженной библиотеки помещается в переменную HLib. Если же не удается найти (или загрузить) библиотеку, то в эту же переменную помещается код ошибки. Для определения факта загрузки библиотеки переменную HLib следует сравнить с нулем. Если библиотека была успешно загружена, то делается попытка найти адрес функции в памяти компьютера путем вызова функции Windows API GetProcAddress, возвращающей адрес функции, имя которой указано во втором параметре GetProcAddress. Если же функция не найдена, возвращается значение nil.

Соответственно, вызов функции Add1 осуществляется, только если она была успешно найдена. Далее, поскольку при загрузке библиотеки были заняты системные ресурсы, их необходимо вновь вернуть системе, выгрузив библиотеку из памяти. Для этого вызывается функция FreeLibrary. При загрузке DLL производится подсчет ссылок — а именно, при каждом успешном обращении к функции LoadLibrary в DLL счетчик ссылок увеличивается на единицу. При каждом вызове функции FreeLibrary счетчик ссылок уменьшается на единицу. Как только счетчик ссылок станет равным нулю, библиотека может быть выгружена из памяти компьютера. Поэтому каждому успешному вызову LoadLibrary должно соответствовать обращение к FreeLibrary — иначе DLL не выгрузится из памяти компьютера до окончания работы приложения. Поэтому перечисленные функции помещены в защищенный блок try...finally...end — это гарантирует вызов функции FreeLibrary, если происходит исключение.

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

Библиотеки СОМ DLL загружаются только динамически, при обращении клиента к интерфейсу, который находится в данной библиотеке. Для того чтобы библиотека СОМ загружалась сразу же после старта приложения и выгружалась после его окончания (аналог статической загрузки), требуется написание кода, в частности кода вызова функции LockServer для фабрики классов или использования функции CoLoadLibrary.

Дата добавления: 2014-01-05