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

UptoLike

ВУЗ: 

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

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

Рубрика: 

7) скомпилировать проект командой Project|Build All.
При необходимости пункты 2-4 повторить требуемое число раз. В
результате появится файл библиотеки с расширением .dll.
16.5. Создание форм в DLL
Примером многомодульной библиотеки является DLL, содержащая форму.
Особенность такой библиотеки заключается в том, что необходимо
предусмотреть команды для создания, отображения и уничтожения формы.
Воспользуемся приведённым в предыдущем разделе сценарием для
создания DLL с формой. В библиотеку поместим процедуру, которая будет
генерировать форму и строить на ней диаграмму по полученным данным. Затем
создадим приложение, вызывающее разработанную процедуру.
Этап 1. Создание библиотеки
С помощью команды File|New сформируем заготовку проекта библиотеки.
Добавим в проект форму.
Сохраним заготовку проекта библиотеки под именем MyLib.dpr, а модуль
формы – под именем fmGraph.pas. В разделе
uses библиотеки MyLib появится
ссылка на модуль формы:
fmGraph in 'fmGraph.pas' {Form1};
Поместим на форму нужные компоненты, в частности, Chart и зададим
значения свойств.
Объявим в секции
interface экспортируемую процедуру drawchart с
директивой
export:
procedure drawchart(Handle:tHandle; a,b,c,d:integer); export;
В разделе implementation сформируем текст процедуры drawchart:
сгенерируем форму командами
Application.Handle:=Handle;
Form1:=TForm1.Create(Application);
построим диаграмму;
выведем на экран форму в модальном режиме командой
Form1.ShowModal;
разрушим форму после её закрытия командой
Form1.Free;
161
    7) скомпилировать проект командой Project|Build All.
    При необходимости пункты 2-4 повторить требуемое число раз. В
результате появится файл библиотеки с расширением .dll.

                      16.5. Создание форм в DLL
    Примером многомодульной библиотеки является DLL, содержащая форму.
Особенность   такой   библиотеки   заключается   в   том,    что    необходимо
предусмотреть команды для создания, отображения и уничтожения формы.
    Воспользуемся приведённым в предыдущем разделе сценарием для
создания DLL с формой. В библиотеку поместим процедуру, которая будет
генерировать форму и строить на ней диаграмму по полученным данным. Затем
создадим приложение, вызывающее разработанную процедуру.
    Этап 1. Создание библиотеки
    С помощью команды File|New сформируем заготовку проекта библиотеки.
    Добавим в проект форму.
    Сохраним заготовку проекта библиотеки под именем MyLib.dpr, а модуль
формы – под именем fmGraph.pas. В разделе uses библиотеки MyLib появится
ссылка на модуль формы: fmGraph in 'fmGraph.pas' {Form1};
    Поместим на форму нужные компоненты, в частности, Chart и зададим
значения свойств.
    Объявим в секции interface экспортируемую процедуру drawchart с
директивой export:
    procedure drawchart(Handle:tHandle; a,b,c,d:integer); export;

    В разделе implementation сформируем текст процедуры drawchart:
  ƒ сгенерируем форму командами
     Application.Handle:=Handle;
     Form1:=TForm1.Create(Application);
  ƒ построим диаграмму;
  ƒ выведем     на    экран   форму     в   модальном      режиме    командой
     Form1.ShowModal;
  ƒ разрушим форму после её закрытия командой Form1.Free;

                                      161

Страницы