Студопедия — ИСПОЛЬЗОВАНИЕ
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ИСПОЛЬЗОВАНИЕ






13.4.1. Статическая загрузка

В следующей программе используется библиотека Сmpix, описанная на предыдущей странице.

Type

TComplex = record Re, Im: Real;

End;

function ADDC(x, y: TComplex): TComplex; stdcall; External 'Cmplx';

function SubC(x, y: TComplex): TComplex; stdcall; External 'Cmplx';

function MulC(x, y: TComplex): TComplex; stdcall; External 'Cmplx';

function DivC(x, y: TComplex): TComplex; stdcall;External 'Cmplx';

procedure TfmExample.bbRunClick(Sender: TObject);

Var

x,y,z: TComplex;

..... // Далее смотри текст обработчика bbRunClick в п.12.6 end; end.

Обратите внимание: библиотечная функция cmpixAdd имеет внешнее имя addc. Именно так (заглавными буквами) описана эта функция в приведенном выше примере. Если бы мы использовали function AddC(x, у: TComplex): TComplex; stdcall; External

'Cmplx';

компоновщик не смог бы ее идентифицировать.

13.4.2. Динамическая загрузка

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

Стандартных функций:LoadLibrary, GetProcAddress И FreeLibrary.

Следующий пример иллюстрирует технику такой загрузки DLL Cmplx:

Type

TComplex = record Re, Im: Real;

End;

TComplexFunc = function (x, y: TComplex): TComplex;

Stdcall;

procedure TfmExample.bbRunClick(Sender: TObject);

Var

x,y,z:TComplex;

AddC,SubC,MulC,DivC: TComplexFunc;

Handle: LongWord;

procedure Output(Operation: Char);

....//Тело процедуры Output остается без изменений

end;//Output

begin //bbRunClick

// Загружаем библиотеку CMPLX.DLL Handle:= LoadLibrary('Cmplx.dll');

if Handle = 0 then

Begin

ShowMessage('He найдена библиотека CMPLX.DLL');

Halt end;

{Определяем адреса функций. Три первые вызываем по индексу, четвертую - по имени. При вызове по индексу младшее слово PChar должно содержать индекс, поэтому делаем приведение типов:} @AddC:= GetProcAddress(Handle,PChar(Longint (1)));

PSubC:= GetProcAddress(Handle,PChar(Longint(2)));

@MulC:= GetProcAddress(Handle,PChar(Longint(3)));

@DivC:= GetProcAddress(Handle,'DivC');

x.re:= Random;

x.im:= Random;

y.re:= Random;

y.im := Random; Output('+');

Output('-');

Output ('*');

Output ('/');

mmOutput.Lines.Add('');

// Освобождаем библиотеку FreeLibrary(Handle)

End;

13.4.3. Интерфейсный модуль

При вызове DLL-подпрограмм в большинстве случаев бывает необходимо передавать структурированные параметры типа записей, как тип TComplex в предыдущем примере. Поскольку DLL не могут экспортировать типы, приходится объявлять эти типы в вызывающей программе. Если вы часто обращаетесь в своих программах к той или иной DLL, удобно создать интерфейсный модуль, содержащий объявления как подпрограмм, так и связанных с ними типов. Например:

Unit Complx;

Interface

Type

TComplex = record Re, Im: Real;

End;

function AddC(x, y: TComplex): TComplex; stdcall;

External 'Cmplx' index 1;

function SubC(x, y: TComplex): TComplex; stdcall;

External 'Cmplx' index 2;

function MulC(x, y: TComplex): TComplex; stdcall;

External 'Cmplx' index 3;

function DivC(x, y: TComplex): TComplex; stdcall;

External 'Cmplx' index 4;

Implementation end.

Такой интерфейсный модуль существенно упрощает разработку основной программы: в нашем примере он обеспечивает такой же интерфейс к библиотеке cmpix, как описанный выше модуль cmpix к своим объектам.

При обращении к подпрограммам DLL, написанным на других языках программирования, может оказаться, что внешнее имя подпрограммы содержит символы, которые не могут содержаться в правильном идентификаторе Delphi. Например, язык C++ разрешает использовать в идентификаторах символ “@”. В этом случае (а также если вы хотите переименовать экспортируемую из DLL подпрограмму) именуйте подпрограмму любым правильным с точки зрения Delphi идентификатором и укажите истинное имя подпрограммы после слова name. Например:

function MyFunction: WordBool; stdcall;

external 'MyDLL' name '_MyFunction@12'







Дата добавления: 2015-10-18; просмотров: 403. Нарушение авторских прав; Мы поможем в написании вашей работы!



Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

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

Характерные черты немецкой классической философии 1. Особое понимание роли философии в истории человечества, в развитии мировой культуры. Классические немецкие философы полагали, что философия призвана быть критической совестью культуры, «душой» культуры. 2. Исследовались не только человеческая...

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит...

Кран машиниста усл. № 394 – назначение и устройство Кран машиниста условный номер 394 предназначен для управления тормозами поезда...

Психолого-педагогическая характеристика студенческой группы   Характеристика группы составляется по 407 группе очного отделения зооинженерного факультета, бакалавриата по направлению «Биология» РГАУ-МСХА имени К...

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

Устройство рабочих органов мясорубки Независимо от марки мясорубки и её технических характеристик, все они имеют принципиально одинаковые устройства...

Studopedia.info - Студопедия - 2014-2024 год . (0.013 сек.) русская версия | украинская версия