Разработка приложений в системе Delphi. Шейкер Т.Д. - 162 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

В файле библиотеки MyLib.dpr сформируем раздел exports и зададим
способ экспорта
drawchart. Например, exports drawchart index 1;
Сохраним доработанные файлы MyLib.dpr и fmGraph.pas.
Откомпилируем библиотеку командой Project|Build All.
Для проверки работоспособности библиотеки надо создать
демонстрационную программу, которая будет использовать функцию
drawchart.
Этап 2. Создание приложения
Начнём создание нового приложения.
Разместим на форме нужные элементы (например четыре однострочных
редактора для ввода данных и кнопку) и зададим их свойства.
Сохраним проект под именем Demo.dpr, а модуль формы – под именем
fmDemo.pas.
Впишем в секцию
implementation сведения о нужной процедуре и
правила её вызова:
procedure drawchart(Handle:tHandle; a,b,c,d:integer); external
'mylib' index 1;
Запишем обработчик для кнопки. Предусмотрим в нём вызов процедуры из
DLL:
drawchart(Handle,a,b,c,d);
Сохраним изменённые файлы.
Командой Run запустим проект на компиляцию и выполнение.
Полные тексты библиотеки и приложения приведены в примере 5.
16.6. Примеры создания и использования DLL
Пример 1. Библиотека MathLib. Статический импорт
Библиотека
library MathLib;
uses SysUtils, Classes;
function Min(x,y:integer):integer;
begin
if x<y then Min:=x else Min:=y;
end;
function Max(x,y:integer):integer; stdcall;
begin
162
    В файле библиотеки MyLib.dpr сформируем раздел exports и зададим
способ экспорта drawchart. Например, exports drawchart index 1;
    Сохраним доработанные файлы MyLib.dpr и fmGraph.pas.
    Откомпилируем библиотеку командой Project|Build All.
    Для    проверки     работоспособности     библиотеки      надо    создать
демонстрационную      программу,   которая   будет   использовать    функцию
drawchart.
    Этап 2. Создание приложения
    Начнём создание нового приложения.
    Разместим на форме нужные элементы (например четыре однострочных
редактора для ввода данных и кнопку) и зададим их свойства.
    Сохраним проект под именем Demo.dpr, а модуль формы – под именем
fmDemo.pas.
    Впишем в секцию implementation сведения о нужной процедуре и
правила её вызова:
procedure drawchart(Handle:tHandle; a,b,c,d:integer); external
'mylib' index 1;

    Запишем обработчик для кнопки. Предусмотрим в нём вызов процедуры из
DLL: drawchart(Handle,a,b,c,d);
    Сохраним изменённые файлы.
    Командой Run запустим проект на компиляцию и выполнение.
    Полные тексты библиотеки и приложения приведены в примере 5.

             16.6. Примеры создания и использования DLL

Пример 1. Библиотека MathLib. Статический импорт
    Библиотека
library MathLib;
uses SysUtils, Classes;
function Min(x,y:integer):integer;
 begin
   if x

Страницы