Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 81 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

-81-
а после использования — уничтожить при помощи деструктора:
fLogin.Free;
Лучше всего это сделать, поместив все эти вызовы в одну функцию, и
сделав ее доступной внешним приложениям, т. е. экспортировать. Назовем
эту функцию. Добавьте в файл проекта раздел exports:
library login;
uses
SysUtils,
Classes,
uLogin in 'uLogin.pas' {fLogin};
{$R *.RES}
exports
ShowLoginDialog name 'SHOWLOGINDIALOG';
begin
end.
Саму функцию ShowLoginDialog определим в модуле uLogin, только что
подключенном нами к проекту.
5. Проект login.dll должен компилироваться раньше, чем основной проект,
поэтому в группе проектов переместите его на самый верх.
3.3.2. СОЗДАНИЕ ПРОГРАММНОГО КЛАССА
При описании общей схемы диалога в разделе 3.3.5 был описан процесс
передачи данных из DLL в основное приложение с помощью специальной
структуры, содержащей переменные для хранения передаваемых данных.
Реализуем эту структуру в виде класса в отдельном модуле.
1. Добавьте в проект login.dll новы й модуль, выбрав пункт меню
FIе\New\Unit. Delphi добавит к проекту новый модуль, создав его с именем
по умолчанию Unitl. Сохраните его под именем uLoginData в новом каталоге
COURSE\common.
2. Добавьте в модуль раздел type и наберите следующее определение
класса:
type
TLoginData = class
modalResult : TModalResult;
user id, password : shortstring;
constructor create;
end;
С помощью конструктора свойствам класса присваиваются начальные
зна-
чения. Чтобы закончить создание конструктора, поставьте курсор на любую
строку определения класса и нажмите SHIFT+CT RL+C. Delphi автоматически
создаст заготовки всех методов, входящих в класс; в данном случае - это заго
товка конструктора Create.

Страницы