Implementation end

Type

Interface

Complex=record

Re,im:Real;

end;

Library MyDLL; {Программа DLL.)

uses SysUtils, Classes, DeclComplex; function AddC(X,Y:complex):complex; begin

with result do begin Re:=x.Re+Y.Re;

end; end;

Exports AddC; begin end.

Импортирование подпрограмм другими программными единицами воз­можно в статическом (неявном) или динамическом (явном) режимах. Если используется статическое импортирование подпрограммы, то задается заго­ловок такой подпрограммы с командой External. Если DLL является Win­dows-библиотекой или, например, написанной на C++, то необходимо ука­зать соглашения о вызовах. Например, Procedure Procl (var x: Vari­ant); Cdecl; External 'CDLL.dll';. В этом примере из библиотеки cdll. dll, написанной на C++, указано соглашение этого языка о передаче данных Cdecl.

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

При динамическом импортировании библиотека грузится непосредст­венно внутри той программной единицы, которой она необходима. После того как надобность в библиотеке исчезнет, ее нужно выгрузить. Для загруз­ки используется стандартная функция LoadLibrary (API-функция) с единст­венным параметром типа PChar, задающим имя библиотеки, например var Handle:HModule;... Handle: =LoadLibrary ('MyDll.dll');. Для вы­грузки DLL используется подпрограмма FreeLibrary (Handle);.

Для работы с библиотекой необходимо получить адрес требуемой функ­ции (или процедуры). При этом используется API-функция GetProcAd-ress(Handle: HModule, lpProcName: LPCSTR): FARPROC, которая ищет подпрограмму, указанную именем lpProcName. В качестве результата возвращается указатель на функцию (или процедуру) или nil. Полученный указатель должен быть далее приведен к нужному типу. Например, возмо­жен такой вариант:

Onit uCallDll; Interface

type TAddC =Function(X,Y:Complex):Complex; TForm1=class(TForm)

…………………

Private {Добавим в описание формы}

DLLHandle: HModule;
ExternalMyFunctionPointer:TFarProc;
ExternalMyFunction:TAddC;

……………………………………………

Implementation

……………………………………

ProcedureTForm1.Button1Click(Sender:TObject);

………………………………

DLLHandle:=LoadLibrary('MyDll.dll'); ExternalMyFunctionPointer:= GetProcAdress(DLLHandle,

PChar('AddC'));

ExternalMyFunction:=TAddC(ExternalMyFunctionPointer)

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

ТЕХНОЛОГИИ ПРОГРАММИРОВАНИЯ

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

Дата добавления: 2014-12-29