В отличие от неявной загрузки модуля DLL, когда имена функций импор-
тируемых функций и процедур, а также библиотека должны быть определе-
ны на этапе формирования исходного текста приложения и его компиля-
ции, использование явной загрузки позволяет задавать имя динамической
библиотеки и имя функции непосредственно перед ее выполнением. Для
явной загрузки модулей DLL необходимо загрузить модуль DLL в адресное
пространство процесса, получить точку входа для нужной функции, выпол-
нить внешнюю функцию и освободить память процесса от модуля. Для это-
го используются следующие процедуры и функции API Win32: LoadLibrary и
LoadLibraryEx, GetProcAddress и FreeLibrary.
Для сравнения явной загрузки модуля с неявной загрузкой рассмотрим уже
знакомый пример заполнения почтового конверта. Для использования им-
портируемых функций зададим их типы и на их основании определим
переменные, которые будут использованы как точки входа в процессе
выполнения приложения
Задание типов функций, импортируемых из модуля
type
TCreateWord = function:boolean;
TVisibleWord = function(kod_:boolean):boolean;
TAddDoc = function(filename_:string):variant;
TFindAllAndPasteTextDoc = function(document:variant;findtext_,
pastetext_:string):boolean;
TOpenDoc = function(file_:string):variant;
TCopyTextDocToClipboard = function (document-.variant) : boolean;
TImportTextFromDoc = function(document:variant):string;
TCloseDocEx = function(document:variant;saved_:boolean):boolean;
TCloseWord = function: boolean;
Задав типы импортируемых из модуля D L L функций, переходим к опреде-
лению переменных, которые будут служить точками входа. Необходимо
также определить переменную, которую будем использовать для обращения
к модулю.
Задание переменных для точек входа в импортируемые функции
var hdll:thandle;
CreateWord_DLL2:TCreateWord;
VisibleWord_DLL2:TVisibleWord;
AddDoc_DLL2:TAddDoc;
FindAllAndPasteTextDoc_DLL2:TFindAllAndPasteTextDoc;
OpenDoc_DLL2:TOpenDoc;
CopyTextDocToClipboard_DLL2:TCopyTextDocToClipboard;
ImportTextFromDoc_DLL2:TImportTextFromDoc;
CloseDocEx_DLL2:TCloseDocEx;
CloseWord_DLL2:TCloseWord;
Зафужаем модуль с помощью функции LoadLibrary, которая в случае успеха
возвращает указатель на загруженный модуль.
Загрузка модуля
procedure TForml.Buttonl9Click(Sender: TObject);
begin
hdll:=LoadLibrary('Dserver.dll');
end;
Переходим непосредственно к выполнению функций модуля, которые соз-
дадут и заполнят конверт на основе заготовленного шаблона.
Сначала определим точки входа для используемых процедур с помощью
функции GetProcAddress, аргументами которой являются указатель на за-
груженный модуль и строка с именем функции, импортируемой из модуля.
После инициализации функций выполняем их (исходный текст в этой части
программы не отличается от исходного текста при использовании неявной
загрузки модуля).
Создание документа на основе шаблона (явная загрузка модуля)
procedure TForml.Buttonl4Click(Sender: TObject);
begin
// Определяем точки входа функций
AddDoc_DLL2:=GetProcAddress(hdll,'AddDoc');
FindAllAndPasteTextDoc_DLL2:=
GetProcAddress(hdll,'FindAllAndPasteTextDoc');
// Создаем новый документ по шаблону
document:=AddDoc_DLL2(ExtractFileDir(Application.ExeName)+
'Шаблон конверта.dot');
messagebox(handle,'Шаблон почтового конверта создан!','Внимание!',О);
// Подставляем адрес
FindAllAndPasteTextDoc_DLL2(document,•###индекс&','350049');
FindAllAndPasteTextDoc_DLL2(document,'###адрес&',
'Краснодар, ул. Севастопольская, д. 3, кв. 123');
FindAllAndPasteTextDoc_DLL2(document,'###получатель&',
'Иванов Иван Иванович');
// Обратный адрес
FindAllAndPasteTextDoc_DLL2(document,'###обратный индекс&','198005');
FindAllAndPasteTextDoc_DLL2(document,'###обратный адрес&',
'Санкт-Петербург, Измайловский пр., д. 29, кв. 111');
FindAllAndPasteTextDoc_DLL2(document,'##Отправитель&',
'Петрова Светлана Ивановна');
end;
Результат выполнения процедуры представлен на рис. 17.7. Этот результат
ничем не отличался бы от результата использования неявной загрузки мо-
дуля или использования обычной библиотеки, подключаемой к создаваемо-
му проекту.
Рис. 17.7. Сформированный документ
После выполнения функций можно освободить память процесса и выгру-
зить динамический модуль, если в нем больше нет необходимости.
Освобождение памяти
procedure TForml.Button20Click(Sender: TObject);
begin
FreeLibrary(hdll) ;
end;
В этой главе мы рассмотрели создание и использование динамически за-
гружаемых модулей для работы с документами MS Word в приложениях
Delphi. Справедливости ради стоит отметить, что и сами приложения MS
Office могут работать с внешними динамическими модулями. Эта возмож-
ность очень заманчива и может дать большой положительный эффект при
создании и использовании приложений на любом языке, позволяющем соз-
давать динамические библиотеки. Следующая глава будет посвящена этому. |
Главная
Каталог файлов
