|
Этот курс посвящен среде разработки
Delphi фирмы Borland (известной также как Inprise), которая на протяжении
многих лет успешно выдерживает (и выигрывает!) жесткую конкуренцию с другими
средами программирования.
Концепция Delphi1 была реализована в
конце 1994 года, когда вышла первая версия среды разработки. В основу этого
программного продукта легли концепции объектно-ориентированного
программирования (ООП) на базе языка Object Pascal и визуального подхода к
построению приложений.
После выхода Delphi 1 все компьютерные
издания писали об этой среде, как об “убийце Visual Basic”. Появление Delphi
2 (32-разрядной) ознаменовало новую эпоху, - появился доступ к возможностям
программных интерфейсов Windows NT и Windows 95, протоколам OLE. Delphi 2
стала средством разработки полноценных приложений клиент/сервер. Вскоре
Delphi 3 предоставила разработчикам средства создания распределенных
многоуровневых приложений и полноценный инструментарий проектирования
приложений для Internet и intranet. Появилась полноценная поддержка COM -
модели объектов, ставшей краеугольным камнем современного программирования.
Четвертая версия Delphi позволяет полностью интегрировать ваши разработки с
объектами COM. Поддержка архитектуры CORBA (Common Object Request Broker
Architecture) открывает перед приложениями, созданными в Delphi для платформы
Wintel (Windows + Intel), мир других операционных систем (UNIX, OS/2, WMS).
Общаться с крупными корпоративными СУБД стало также просто, как и со старым
добрым Paradox. Вы можете использовать в своей работе любые уровни
межзадачного взаимодействия: от простейшего на уровне сокетов, до связи с
такими перспективными инструментами, как Microsoft Transaction Server.
Delphi представляет следующие новые
свойства и усовершенствования:
- Новые расширения языка. В
Delphi в язык Object Pascal включены динамические массивы, методы
обработки переполнения, установка значения параметров по умолчанию, и
многое другое.
- Менеджер Проекта Новый
менеджер проекта позволяет Вам объединять проекты которые работают вместе
в одину проектную группу. Это позволяет Вам организовать как работу
взаимозависимых проектов, таких как однозадачные и многозадачные
приложения или DLL, так и совместную работу исполняемых программ.
- Новый проводник Новый
проводник содержит выполняемые классы, навигацию по модулям, и браузер
кода. Проводник кода делает создание классов проще, автоматизирую многие
из шагов. Введите прототип метода в разделе интерфейса и свойство
выполняемого класса сгенерирует скелетный код в разделе реализации.
Также проводник позволяет быстро перемещаться через файлы модуля, а так
же между интерфейсом и реализацией. Использование символа Tooltip,
позволяет просматривать информацию об объявлении любого идентификатора,
затем используя борузер код, можно перейти к его объявлению.
- Закрепляемые окна
инструментов. IDE (Интегрированная Среда азработки) содержит более
перенастраеваемую конфигурацию окон инструментов, которые можно
закреплять с редактором кода. Просто перетащите и отпустите окно
инструмента к тому месту, к которому хотите. Проводник кода и менеджер
проекта можно как закреплять, так и незакреплять.
- Улучшенная отладка.
Интегрированный отладчик имеет много новых свойств, включая удаленную и
многопроцессорную отладку, просмотр кода центрального процессора,
инспекторов, усовершенствованные точки прерывания, отладчик
специфических подменю и закрепленных окон.
- Поддержка MTS. Явная
поддержка для использования MTS интегрирована в поддержку многоуровневых
баз данных. Кроме того, новый мастер облегчит Вам создание объектов
сервера MTS.
- Усовершенствования ActiveX.
- Delphi обеспечивает
расширенную поддержку ActiveX.
- Усовершенствования VCL.
Иерархия объектов Delphi быда расширена, чтобы включить новый компонент
для NT Service приложений. Кроме того, новый компонент выполняемого
списка (на Стандартной странице палитры), позволяет Вам централизовать
управление меню и команд от кнопок. Управление VCL расширено, чтобы
поддерживають drag-and-drop перетаскивания, обеспечивать дополнительный
контроль над размещением окна, и многое другое.
- Поддержка RTL для 2000-го
года.
- Глобальная переменная
TwoDigitYearCenturWwindow используется функциями StrtToDate и
StrToTateTime, чтобы управлять интерпретацией лет с двумя цифрами при
преобразовании дат.
- Поддержка CORBA. Версии
Клинт/Сервер и предприятие включают поддержку для CORBA клиент и сервер
приложений. Мастера помогут Вам легко создать сервер CORBA и
Динамический Интерфейс Вызова (DII), позволяя Вам записывать клиентов
для существующих серверов CORBA. CORBA имеет возможность поддержки в много-уровневых
баз данных. Вы можете даже создать сервер, который обрабатывает COM
клиентов и CORBA клиентов одновременно.
Delphi - это комбинация нескольких
важнейших технологий:
- Высокопроизводительный
компилятор в машинный код
- Объектно-ориентированная
модель компонент
- Визуальное (а,
следовательно, и скоростное) построение приложений из программных
прототипов
- Масштабируемые средства для
построения баз данных
Компилятор, встроенный в Delphi,
обеспечивает высокую производительность, необходимую для построения
приложений в архитектуре “клиент-сервер”. Он предлагает легкость разработки и
быстрое время проверки готового программного блока, характерного для языков
четвертого поколения (4GL) и в то же время обеспечивает качество кода,
характерного для компилятора 3GL. Кроме того, Delphi обеспечивает быструю
разработку без необходимости писать вставки на Си или ручного написания кода
(хотя это возможно).
В процессе построения приложения
разработчик выбирает из палитры компонент готовые компоненты как художник,
делающий крупные мазки кистью. Еще до компиляции он видит результаты своей
работы - после подключения к источнику данных их можно видеть отображенными
на форме, можно перемещаться по данным, представлять их в том или ином виде.
В этом смысле проектирование в Delphi мало чем отличается от проектирования в
интерпретирующей среде, однако после выполнения компиляции мы получаем код,
который исполняется в 10-20 раз быстрее, чем то же самое, сделанное при
помощи интерпретатора. Кроме того, компилятор компилятору рознь, в Delphi
компиляция производится непосредственно в родной машинный код, в то время как
существуют компиляторы, превращающие программу в так называемый p-код,
который затем интерпретируется виртуальной p-машиной. Это не может не
сказаться на фактическом быстродействии готового приложения.
Объектно-ориентированная модель
программных компонент. Основной упор этой модели в Delphi делается на
максимальном реиспользовании кода. Это позволяет разработчикам строить
приложения весьма быстро из заранее подготовленных объектов, а также дает им
возможность создавать свои собственные объекты для среды Delphi. Никаких
ограничений по типам объектов, которые могут создавать разработчики, не
существует. Действительно, все в Delphi написано на нем же, поэтому разработчики
имеют доступ к тем же объектам и инструментам, которые использовались для
создания среды разработки. В результате нет никакой разницы между объектами,
поставляемыми Borland или третьими фирмами, и объектами, которые вы можете
создать.
В стандартную поставку Delphi входят
основные объекты, которые образуют удачно подобранную иерархию базовых
классов. Но если возникнет необходимость в решении какой-то специфической
проблемы на Delphi, советуем, прежде чем попытаться начинать решать проблему
“с нуля”, просмотреть список свободно распространяемых или коммерческих
компонент, разработанных третьими фирмами, количество этих компонент в
настоящее время составляет несколько тысяч. Событийная модель в Windows
всегда была сложна для понимания и отладки. Но именно разработка интерфейса в
Delphi является самой простой задачей для программиста.
Объекты БД в Delphi основаны на SQL и
включают в себя полную мощь Borland Database Engine. В состав Delphi также
включен Borland SQL Link, поэтому доступ к СУБД Oracle, Sybase, Informix и
InterBase происходит с высокой эффективностью. Кроме того, Delphi включает в
себя локальный сервер Interbase для того, чтобы можно было разработать
расширяемые на любые внешние SQL-сервера приложения в офлайновом режиме.
азработчик в среде Delphi, проектирующий информационную систему для локальной
машины (к примеру, небольшую систему учета медицинских карточек для одного
компьютера), может использовать для хранения информации файлы формата .dbf
(как в dBase или Clipper) или .db (Paradox). Если же он будет использовать
локальный InterBase for Windows (это локальный SQL-сервер, входящий в
поставку), то его приложение безо всяких изменений будет работать и в составе
большой системы с архитектурой клиент-сервер. Вот она - масштабируемость на практике
- одно и то же приложение можно использовать как для локального, так и для
более серьезного клиент-серверного вариантов.
1. Основы
объектно-ориентированного программирования
Понятие класса.
Классом в Delphi называется особый
тип, который может иметь в своем составе поля, методы и свойства. Такой тип
также называют объектным типом.
type
tMyClass=class(tObject)
fMyFiled: integer;
function MyMethod: integer;
end;
Поля класса аналогичны полям записи.
Это - данные, уникальные в программе для каждого созданного в программе
экземпляра класса. Описанный выше класс tMyClass имеет одно поле - fMyFiled.
В отличие от полей, методы у двух экземпляров одного класса общие. Методы -
это процедуры и функции, описанные внутри класса, и предназначенные для операций
над его полями. В состав класса входит указатель на специальную таблицу -
таблицу виртуальных методов (VMT), в которой содержится вся информация,
необходимая для вызова методов. От обычных процедур и функций методы
отличаются тем, что при вызове в них передается указатель на экземпляр
класса, который их вызвал. Поэтому обрабатываться будут поля именно того
объекта, который вызвал метод. Внутри методов указатель на вызвавший их
объект доступен через зарезервированное слово Self. Свойством класса называется
совокупность поля и методов чтения/записи, обеспечивающих доступ к этому
полю. При этом само поле декларируется как private (доступно только внутри
данного класса), и доступ к нему возможен только посредством соответствующих
методов. Подробнее свойства будут обсуждаться ниже.
Понятие объекта
Чтобы использовать новый тип в
программе, нужно, как минимум, определить переменную этого типа. Переменная
объектного типа называется экземпляром типа или объектом:
var aMyObject: tMyClass;
До введения понятия “класс” в языке
Pascal существовала двусмысленность определения “объект”, который мог
обозначать и тип, и переменную этого типа. Теперь существует четкая граница:
класс - это описание, объект - то, что создано в соответствии с этим
описанием.
Создание и уничтожение
объектов
В отличие от С++ и Turbo Pascal в
Delphi объекты могут быть только динамическими!!!. Это означает, что в
приведенном выше примере переменная aMyObject на самом деле является
указателем, содержащем адрес объекта.
Объект создается конструктором и
уничтожается деструктором.
aMyObject := tMyClass.Create;
//
// действия с созданным объектом
//
aMyObject.Destroy;
Следует обратить внимание на то, что
для создания объекта aMyObject вызывается метод класса tMyClass.Create.
Конструктор класса (и ряд других методов) успешно работает и до создания
объекта. Однако большинство обычных методов (в частности все виртуальные и
динамические методы). Вызывать до инициализации объекта не следует.
В Delphi конструкторов у класса может
быть несколько. Общепринято называть конструктор Create, в отличие от Turbo
Pascal, где конструкторы назывались Init, и С++, в котором имя конструктора
совпадает с именем класса. Типичное название деструктора - Destroy.
type
tMyClass=class(tObject)
fMyFiled: integer;
Constructor Create;
Destructor Destroy;
function MyMethod: integer;
end;
Для уничтожения объекта в Delphi
рекомендуется использовать не деструктор, а метод Free, который первоначально
проверяет указатель, и только затем вызывает деструктор Destroy:
procedure tObject.Free;
До передачи управления телу
конструктора происходит собственно создание объекта: под него отводится
память, значения всех полей обнуляются. Далее выполняется код конструктора,
написанный программистом для инициализации объектов данного класса. Таким
образом, несмотря на то, что синтаксис конструктора схож с вызовом процедуры
(отсутствует возвращаемое значение), на самом деле конструктор - это функция,
возвращающая созданный и проинициализированный объект.
Примечание. Конструктор создает новый
объект только в том случае, если перед его именем указано имя класса. Если
указать имя уже существующего объекта, он поведет себя по-другому: не создаст
новый объект, а только выполнит код, содержащийся в теле конструктора.
Чтобы правильно проинициализировать в
создаваемом объекте поля, относящиеся к классу - предку, нужно сразу же при
входе в конструктор вызвать конструктор предка при помощи зарезервированного
слова inherited:
constructor tMyClass.Create;
Begin
inherited Create;
// Код инициализации tMyClass
End;
Как правило, в коде программ,
написанных на Delphi, практически н встречается вызовов конструкторов и
деструкторов. Дело в том, что любой компонент, попавший при визуальном
проектировании в приложение из палитры компонентов, включается в определенную
иерархию. Эта иерархия замыкается на форме (класс tForm): для всех ее
составных частей конструкторы и деструкторы вызываются автоматически, незримо
для программиста. Кто создает и уничтожает формы? Это делает приложение
(объект с именем Application). В файле проекта (с расширением DPR) вы можете
увидеть вызовы метода Application.CreateForm, предназначенного для этой цели.
Что касается объектов, создаваемых
динамически (во время выполнения программы), то здесь нужен явный вызов конструктора
и метода Free.
Свойства
Как известно, существует три основных
принципа, составляющих суть объектно-ориентированного программирования:
инкапсуляция, наследование и полиморфизм. Классическое правило
объектно-ориентированного программирования утверждает, что для обеспечения
надежности нежелателен прямой доступ к полям объекта: чтение и изменение их
содержимого должно осуществляться посредством вызова соответствующих методов.
Это правило называется инкапсуляцией (сокрытие данных). В старых реализациях
ООП (например в Turbo Pascal) эта мысль внедрялась только посредством
призывов и примеров в документации; в Delphi есть соответствующая
конструкция. Пользователь объекта в Delphi может быть полностью отгорожен от
полей объекта при помощи свойств.
Обычно свойство определяется тремя
элементами: полем и двумя методами осуществляющими его чтение/запись:
type
tMyClass=class(tObject)
function GetaProperty: tSomeType;
procedure SetaProperty(Value: tSomeType);
property aProperty: tSomeType read GetaProperty
write SetaProperty;
end;
В данном примере доступ к значению
свойства aProperty осуществляется через вызовы методов GetaProperty и
SetaProperty, однако в обращении к этим методам в явном виде нет
необходимости: достаточно написать
aMyObject.aProperty:=aValue;
aVarable:= aMyObject.aProperty;
и Delphi откомпилирует эти операторы в
вызовы соответствующих методов. То есть внешне свойство выглядит в точности
как обычное поле, но за всяким обращением к нему могут стоять вызовы
необходимых программисту методов. Например, если есть объект, представляющий
собой квадрат на экране, и его свойству “цвет” присваивается значение
“белый”, то произойдет немедленная прорисовка, приводящая реальный цвет на
экране в соответствие значению свойства.
В методах, устанавливающих значения
свойства, может производиться проверка значения на попадание в заданный
диапазон значений и вызов других процедур зависящих от вносимых изменений.
Если же потребности в специальных процедурах чтения/записи нет, можно вместо
имен методов применять имена полей.
tPropClass=class
fValue: tSomeType;
procedure SetValue(aValue: tSomeType);
property Value:tSomeType read fValue write SetValue;
End;
В этом примере поле fValue
модифицируется при помощи метода SetValue, а читается напрямую.
Если свойство должно только читаться
или только записываться, в его описании может присутствовать только
соответствующий метод:
tReadOnlyClass=class
property NotChanged:tSomeType read GetNotChanged;
End;
В этом примере свойство доступно
только для чтения. Попытка присвоить значение свойству NotChanged вызовет
ошибку компиляции.
Свойствам можно присваивать значения
по умолчанию. Для этого служит ключевое слово default:
Property Visible:boolean read fVisible write SetVisible default TRUE;
Это означает, что при запуске
программы свойство будет установлено компилятором в TRUE.
Свойство может быть и векторным. В
этом случае оно выглядит как массив:
Property Points[index:integer]:tPoint read GetPoint write SetPoint;
Для векторного свойства необходимо
описать не только тип элементов массива, но также и тип индекса. После
ключевых слов read и write должны идти имена соответствующих методов.
Использование здесь полей массивов недопустимо. Метод, читающий значение
векторного свойства, должен быть описан как функция, возвращающая значение
того же типа, что и элементы свойства, и имеющая единственный параметр того
же типа и с тем же именем, что и индекс свойства:
function GetPoint(index:integer):tPoint;
Аналогично, метод, помещающий значения
в такое свойство, должен первым параметром иметь индекс, а вторым -
переменную нужного типа.
procedure SetPoint(index:integer; Value:tPoint);
У векторных свойств есть еще одна
важная особенность: некоторые классы в Delphi (списки tList, наборы строк
tStrings и т.д.) “построены” вокруг одного основного векторного свойства.
Основной метод такого класса дает доступ к элементам некоторого массива, а
все основные методы являются как бы вспомогательными. Для упрощения работы с
объектами подобного класса можно описать подобное свойство с ключевым словом
default:
type tMyList=class
property list[Index:integer]:string read Getlist write Setlist; default;
end;
Если у объекта есть такое свойство,
его можно не упоминать, а ставить индекс в квадратных скобках сразу после
имени объекта:
var MyList:tMyList
Begin
MyList.list[1]:=’First’; {Первый способ}
MyList.[2]:=’Second’; {Первый способ}
End;
Употребляя ключевое слово default
необходимо соблюдать осторожность, т.к. для обычных и векторных свойств оно
употребляется в разных значениях.
О роли свойств в Delphi красноречиво
говорит тот факт, что у всех имеющихся в распоряжении программиста
стандартных классов 100% полей недоступны и заменены базирующимися на них
свойствами. Того же правила следует придерживаться и при разработке собственных
классов.
Наследование
Вторым “столпом” ООП является
наследование. Этот простой принцип означает, что если необходимо создать
новый класс, лишь немного отличающийся от уже имеющегося, нет необходимости в
переписывании заново уже существующего кода. Вы объявляете, что новый класс
tNewClass=class(tOldClass);
является потомком или дочерним классом
класса tOldClass, называемого предком или родительским классом, и добавляете
к нему новые поля методы и свойства.
В Delphi все классы являются потомками
класса tObject. Поэтому, если вы строите дочерний класс прямо от tObject, то
в определении его можно не упоминать. Следующие два описания одинаково верны:
tMyClass=class(tObject);
tMyClass=class;
Более подробно класс tObject будет
рассмотрен ниже.
Унаследованные от класса-предка поля и
методы доступны в дочернем классе; если имеет место совпадение имен методов,
говорят, что они перекрываются.
Рассмотрим поведение методов при
наследовании. По тому, какие действия происходят при вызове, методы делятся
на три группы. В первую группу отнесем статические методы, во вторую -
виртуальные (virtual) и динамические (dynamic) и, наконец, в третью -
появившиеся только в Delphi 4 перегружаемые (overload) методы.
Статические методы, а также любые поля
в классах-потомках ведут себя одинаково: можно без ограничений перекрывать
старые имена и при этом менять тип методов. Код нового статического метода
полностью перекрывает (заменяет собой) код старого метода:
type
tFirstClass=class
fData:Extended;
procedure SetData(aValue:Extended);
end;
tSecondClass=class(tFirstClass)
fData:Integer;
procedure SetData(aValue:Integer);
end;
procedure tFirstClass.SetData(aValue:Extended);
Begin
fData:=1.0;
End;
procedure tFirstClass.SetData(aValue:Extended);
Begin
fData:=1;
inherited SetData(0.99);
End;
В этом примере разные методы с именем
SetData присваивают значение разным полям с именем fData. Перекрытое
(одноименное) поле предка недоступно в потомке. Поэтому два одноименных поля
с именем fData приведены только для примера.
В отличие от поля, внутри других
методов перекрытый метод доступен при указании ключевого слова inherited. По
умолчанию методы объектов классов статические - их адрес определяется еще на
этапе компиляции проекта, поэтому они вызываются быстрее всего.
Принципиально отличаются от
статических виртуальные и динамические методы. Они должны быть объявлены
путем добавления соответствующей директивы dynamic или virtual. С точки
зрения наследования методы этих двух категорий одинаковы: они могут быть
перекрыты в дочернем классе только одноименными методоми, имеющими тот же
тип.
Полиморфизм.
Виртуальные и динамические методы
Рассмотрим следующий пример. Пусть
имеется некое обобщенное поле для хранения данных - класс tFiled и три его
потомка - для хранения строк, целых и вещественных чисел:
type
tFiled = class
function GetData:string; virtual; abctract;
end;
tStringFiled = class(tFiled)
fData:string;
function GetData: string; override;
end;
tIntegerFiled = class(tFiled)
fData:Integer;
function GetData: string; override;
end;
tExtendedFiled = class(tFiled)
fData:Extended;
function GetData: string; override;
end;
function tStringFiled.GetData: string;
Begin
Result:=fData;
End;
function tIntegerFiled.GetData: string;
Begin
Result:=IntToStr(fData);
End;
function tExtendedFiled.GetData: string;
Begin
Result:=FloatToStr(fData,ffFixed, 7, 2);
End;
function ShowData(aFiled:tFiled): string;
Begin
Form1.Label1.Caption:=aFiled.GetData;
End;
В этом примере классы содержат
разнотипные поля данных fData, а также имеют унаследованный от tFiled
виртуальный метод GetData, возвращающий данные в виде строки. Внешняя по
отношению к ним процедура ShowData получает объект в виде параметра и
показывает эту строку.
Согласно правилам контроля
соответствия типов (typecasting) ObjectPascal, объекту, как указателю на
экземпляр класса, может быть присвоен адрес экземпляра любого из дочерних
типов. Это означает, что в предыдущем примере в процедуру ShowData можно
передавать объекты классов tStringFiled, tIntegerFiled, tExtendedFiled и
любого другого потомка tFiled.
Но какой (точнее, чей) метод GetData
будет при этом вызван? Тот, который соответствует классу фактически
переданного объекта. Этот принцип называется полиморфизмом.
Возвращаясь к рассмотренному выше
примеру, отметим, что у компилятора нет возможности определить класс объекта,
фактически переданного в процедуру ShowData на этапе компиляции. Механизм,
позволяющий определить этот класс прямо во время выполнения называется
поздним связыванием. Естественно, такой механизм должен быть связан с
передаваемым объектом. Для этого служит таблица виртуальных методов (Virtual
Method Table, VMT) и таблица динамических методов (Dynamic Method Table,
DMT).
Различие между виртуальными и
динамическими методами заключается в особенности поиска адреса. Когда
компилятор встречает обращение к виртуальному методу, он подставляет вместо
прямого вызова по конкретному адресу код, который обращается к VMT и
извлекает оттуда нужный адрес. Такая таблица есть для каждого класса. В ней
хранятся адреса всех виртуальных методов класса, независимо от того,
унаследованы ли они от предка или перекрыты в данном классе. Отсюда и
достоинства и недостатки виртуальных методов: они вызываются сравнительно
быстро, однако для хранения указателей на них в таблице VMT требуется большое
количество памяти.
Динамические методы вызываются
медленнее, но позволяют более экономно расходовать память. Каждому
динамическому методу системой присваивается уникальный индекс. В таблице
динамических методов класса хранятся индексы только тех методов только тех
динамических методов, которые описаны в данном классе. При вызове
динамического метода происходит поиск в этой таблице. В случае неудачи
просматриваются DMT всех классов-предков в порядке их иерархии и, наконец,
tObject, где имеется стандартный обработчик вызова динамических методов.
Экономия памяти очевидна.
Для перекрытия и виртуальных и
динамических методов служит директива override, с помощью которой (и только с
ней!) можно переопределять оба этих типа методов.
type
tParentClass=class
fFirstFiled:Integer;
fSecondFiled:longInt;
procedure StaticMethod;
procedure VirtualMethod1; virtual;
procedure VirtualMethod2; virtual;
procedure DynamicMethod1; dynamic;
procedure DynamicMethod2; dynamic;
end;
tChildClass=class(tParentClass)
procedure StaticMethod;
procedure VirtualMethod1; override;
procedure DynamicMethod1; override;
end;
Первый метод класса tChildClass
создается заново, два остальных перекрываются. Создадим объекты этих классов:
var Obj1: tParentClass;
Obj2: tChildClass;
Внутренняя структура этих объектов
показана ниже.
Первое поле каждого экземпляра каждого
объекта содержит указатель на его класс. Класс, как структура состоит из двух
частей. Начиная с адреса, на который ссылается указатель на класс,
располагается таблица виртуальных методов. Она содержит адреса всех
виртуальных методов класса, включая и унаследованные от предков. Перед
таблицей виртуальных методов расположена специальная структура, содержащая
дополнительную информацию. В ней содержатся данные, полностью характеризующие
класс: имя, размер экземпляров, указатели на класс-предок и т.д. Одно из
полей структуры содержит адрес таблицы динамических методов класса (DMT).
Таблица имеет следующий формат: в начале - слово, содержащее количество
элементов таблицы. Затем - слова, соответствующие индексам методов. Нумерация
индексов начинается с –1 и идет по убывающей. После индексов идут собственно
адреса динамических методов. Следует обратить внимание на то, что DMT объекта
Obj1 состоит из двух элементов, Obj2 - из одного, соответствующего
перекрытому методу DynamicMethod1. В случае вызова Obj2.DynamicMethod2 индекс
не будет найден в DMT Obj2, и произойдет обращение к DMT Obj1. Именно так
экономится память при использовании динамических методов.
Как указывалось выше, указатель на
класс указывает на первый виртуальный метод. Служебные данные размещаются
перед таблицей виртуальных методов, то есть с отрицательным смещением. Эти
смещения описаны в модуле SYSTEM.PAS:
vmtSelfPtr = -76
vmtIntfTable = -72
vmtAutoTable = -68
vmtInitTable = -64
vmtTypeInfo = -60
vmtFiledTable = -56
vmtMethodTable = -52
vmtDynamicTable = -48
vmtClassName = -44
vmtInstanceSize = -40
vmtParent = -36
vmtSafeCallException = -32
vmtAfterConstruction = -28
vmtBeforeDestruction = -24
vmtDispatch = -20
vmtDefaultHandler = -16
vmtNewInstance = -12
vmtFreeInstance = -8
vmtDestroy = -4
Принимает значение True только если
объект AnObject совместим по присвоению с классом tObjectType, то есть
является объектом этого класса или его потомком.
Оператор as введен в язык специально
для приведения объектных типов. С его помощью можно рассматривать экземпляр
объекта как принадлежащий к другому совместимому типу:
with AObjectOfSomeType as tAnotherType do . . .
От стандартного способа приведения
типов использование оператора as отличается наличием проверки на
совместимость типов во время выполнения: попытка приведения к несовместимому
типу приводит к возникновению исключительной ситуации eInvalidCast. После
выполнения оператора as сам объект остается неизменным, но выполняются те его
методы, которые соответствуют присваиваемому классу.
Вся информация, описывающая класс,
создается и размещается в памяти на этапе компиляции. Доступ к информации вне
методов этого класса можно получить, описав соответствующий указатель,
называющийся указателем на класс или указателем на объектный тип (class
reference). Он описывается при помощи зарезервированных слов class of.
Например, указатель на класс tObject описан в модуле SYSTEM.PAS и называется
tClass. Аналогичные указатели определены и для других важнейших классов:
tComponentClass, tControlClass и т.д.
С указателем на класс тесно связано
понятие методов класса. Такие методы можно вызывать и без создания экземпляра
объекта - с указанием имени класса в котором они описаны. Перед описанием
метода класса нужно поставить ключевое слово class.
Разумеется, методы класса не могут
использовать значения, содержащиеся в полях класса: ведь экземпляра класса не
существует!!! Методы класса служат для извлечения внутренней информации
класса. Ниже перечислены методы класса tObject:
Метод и Описание
сlass function ClassName:ShortString
Возвращает имя класса
сlass function ClassNameIs(const Name:ShortString):Boolean
Принимает значение True, если имя класса равно заданному
сlass function ClassParent:tClass
Возвращает указатель на родительский класс
сlass function ClassInfo:pointer
Возвращает указатель на структуру с дополнительными данными об опубликованных
методах и свойствах.
сlass function InstanceSize:Longint
Возвращает размер экземпляра класса
сlass function InheritsFrom (aClass: tClass):Boolean
Возвращает True, если данный класс наследует от заданного
сlass function MethodAddress(const Name:ShortString):Pointer
Возвращает адрес метода по его имени (только для опубликованных методов)
сlass function MethodName (Addres: pointer):ShortString
Возвращает имя метода по его адресу (только для опубликованных методов)
В Delphi 4 в класс tObject добавлены
еще два виртуальных метода - AfterConstruction и BeforeDestruction. Как
следует из названия, они вызываются сразу после создания экземпляра объекта и
непосредственно перед уничтожением.
Перегрузка
методов
В Delphi 4 появилась новая
разновидность методов - перегружаемые. Перегрузка нужна для того, чтобы
произвести одинаковые или похожие действия над разнотипными данными.
Перегружаемые методы описываются с ключевым словом overload.
Type
tFirstClass=class
E:extended;
procedure SetData(aValue: Extended); overload;
end;
tSecondClass=class(tFirstClass)
I:integer;
procedure SetData(aValue: Integer); overload;
end;
Объявив метод SetData перегружаемым, в
программе можно использовать обе его реализации одновременно. Это возможно потому,
что компилятор определяет тип передаваемого параметра (целый или
вещественный) и в зависимости от этого подставит вызов соответствующего
метода.
Для перегрузки виртуального метода
используется зарезервированное слово reintroduce:
procedure SetData(aValue:string); reintrouce;overload;
На перегрузку методов накладывается
ограничение: нельзя перегружать методы, находящиеся в области видимости
published.
Абстрактные методы
Абстрактными называются методы,
которые определены в классе, но не содержат никаких действий, никогда не
вызываются и обязательно должны быть переопределены в классах-потомках.
Абстрактными могут быть только виртуальные и динамические методы. Для
описания абстрактного метода используется директива abstract:
Procedure NeverCallMe; virtual; abstract;
Никакого кода абстрактный метод не
содержит. Его вызов приведет к созданию исключительной ситуации
eAbstractError.
События
Операционная система Windows® основана
на сообщениях. Сообщения эти возникают в результате действий пользователя,
аппаратуры компьютера или других программ. Таких сообщений в Windows сотни, и
по большому счету, написать программу для Windows - значит определить реакцию
на некоторые из них.
Работать с таким количеством
сообщений, даже имея под рукой справочник, нелегко. Поэтому одним из главных
преимуществ Delphi является то, что программист полностью избавлен от
необходимости работать с сообщениями Windows (хотя такая возможность у него
имеется). Типовых событий в Delphi - не более двух десятков, и все они имеют простую
интерпретацию, не требующую глубоких знаний среды.
С точки зрения языка, событие - это
поле процедурного типа, предназначенное для создания пользовательской реакции
на те или иные входные воздействия:
Property OnMyEvent: tMyEvent read FMyEvent write FMyEvent;
Здесь OnMyEvent - поле объекта,
содержащее адрес некоторого метода. Присвоить такому свойству значение -
значит указать программе адрес метода, который будет вызываться в момент
наступления события. Такие методы называются обработчиками событий.
Внутри библиотеки времени выполнения
Delphi вызовы обработчиков событий находятся внутри методов, обрабатывающих
сообщения Windows. Выполнив необходимые действия, этот метод проверяет,
известен ли адрес обработчика, и, если это так, вызывает его.
События имеют разное количество и тип
параметров, в зависимости от происхождения и назначения. Общим для всех
события является параметр Sender - он указывает на объект, вызвавший событие.
Самое простое событие - tNotifyEvent - не имеет других параметров.
tNotifyEvent = procedure(Sender:tObject) of object;
Тип метода, предназначенный для
извещения о нажатии клавиши, предусматривает передачу в процедуру кода этой
клавиши, о передвижении мыши - ее текущих координат и т.д.
Имя события в Delphi начинается с префикса
On: OnClick, OnCreate, OnMouseDown и т.д. Имена методов - обработчиков
событий состоят из имени объекта, генерирующего событие, и корня имени
события: OkButtonClick. Дважды щелкнув мышью в инспекторе объектов на
странице Events в поле напротив любого события, вы получите скелетный код
(заготовку) этого события.
Поскольку события - это свойства
объекта, их значения можно менять в любой момент во время выполнения
программы. Эта возможность называется делегированием. Можно в любой момент
взять способы реакции на события у одного объекта и присвоить (делегировать)
их другому.
Принцип делегирования позволяет
избежать трудоемкого процесса порождения новых классов для каждого
специфического случая, заменяя нго простой подстановкой процедур.
Один и тот же обработчик может
обрабатывать события от разных объектов. Типичный пример - в современных
программах одно и то же действие можно вызвать несколькими способами - через
главное меню, контекстное меню и т. д. Этого легко добиться, назначив один и
тот же обработчик всем необходимым объектам в инспекторе объектов. азумеется,
события должны быть одного и того же типа.
Более сложный случай - когда внутри
обработчика необходимо определить, какой именно объект вызвал событие. Если
объекты, которые потенциально могут это сделать, имеют разный тип, то именно
их тип можно применить в качестве критерия:
If Sender is tMenuItem then ...
Если же все объекты, разделяющее между
собой один обработчик события, относятся к одному классу, можно использовать
свойство tObject.Tag.
Ниже приведены названия некоторых,
наиболее употребительных событий Delphi:
Событие - Тип обработчика - Когда
возникает
OnClick - TNotifyEvent - При нажатии
левой клавиши мыши
OnActivate - TnotifyEvent - После
передачи объекту фокуса
OnCreate - TnotifyEvent - После
создание объекта
OnDestroy - TnotifyEvent - Перед
уничтожением объекта
OnDeactivate - TnotifyEvent - Перед
уходом фокуса из объекта
OnKeyPress - TkeyPressEvent - При
нажатии клавиши
OnMouseDown - TmouseEvent - При
нажатии клавиши мыши
OnMouseMove - TmouseMoveEvent - При
движении мыши над объектом
OnMouseUp - TmouseEvent - При
отпускании клавиши мыши
а также их типы:
Тип
Описание
TnotifyEvent
type TnotifyEvent = procedure (Sender: TObject) of object;
TkeyPressEvent
type TkeyPressEvent = procedure (Sender: TObject; var Key: Char) of object;
TmouseEvent
TmouseEvent = procedure (Sender: TObject; Button: TmouseButton; Shift:
TShiftState; X, Y: Integer) of object;
TmouseMoveEvent
TmouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X, Y:
Integer) of object;
Стандартные события описаны в модуле
Classes.
Динамические массивы
В Delphi существуют динамические
массивы, то есть массивы, длину которых можно изменять во время выполнения
программы. аньше проблема динамических массивов стояла довольно остро.
Стандартных средств для работы с ними не было, и программистам приходилось
вручную создавать подобные структуры (как правило, на основе динамических
переменных). Теперь компилятор Delphi сам выполняет всю “грязную” работу.
Параллельно с динамическими, в Delphi сохранились и обычные, статические
массивы.
Длина динамических массивов
определяется уже во время выполнения программы. Описав переменную как
var A1:array of real,
мы будем иметь указатель,
соответствующий массиву вещественных чисел. Память под него выделяется
процедурой SetLength:
procedure SetLength(var A; NewLength: Integer);
Здесь A - указатель на динамический
массив, NewLength - длина массива.
В динамических массивах нумерация
индексов начинается только с нуля.
То обстоятельство, что динамические
массивы фактически являются указателями, приводит к определенным нюансам в их
использовании. Первый из них касается присвоения массивов. Запись
Var A1,A2:array[0..4] of real;
A1:=A2;
В случае со статическими массивами,
означает, что всем элементам массива A1 присваиваются значения
соответствующих элементов массива A2, но при этом, переменные A1и A2 - разные
переменные, хранящиеся в разных областях памяти.
В случае с динамическими массивами
присвоение их друг другу - не более чем присвоение указателей. ассмотрим
пример:
Var A1,A2:array of real;
. . .
SetLength(A1,5);
A1[0]:=0.0;
A2:=A1;
A2[0]:=2.0;
Значение A2[0] также изменится и
станет равно 2. Это произошло потому, что после присвоения указатели
ссылаются на один и тот же адрес в памяти и изменения в одном массиве
приведут к синхронным изменениям в другом.
Для того, чтобы действительно
скопировать элементы в A2, необходимо использовать функцию Copy:
function Copy(A; Index, Count: Integer): string;
Здесь А - указатель на копируемый
массив,
Index - индекс первого копируемого
элемента,
Count - число копируемых элементов.
A2:=Copy(A1,0,Length(A1));
Освободить выделенную под массив
память можно при помощи процедуры finalize:
procedure Finalize( var A [; Count:
Integer] );
здесь V - указатель на динамический
массив, Count - количество массивов (в случае, когда несколько динамически
создаваемых структур размещаются подряд в одном непрерывном блоке памяти, их
можно освободить одним вызовом Finalize); или просто присвоив указателю на
массив значение nil. В этом случае память не будет потеряна (как могло бы
показаться на первый взгляд), а будет вызвана соответствующая процедура,
корректно освобождающая память. Причем, память освободиться только тогда,
когда на нее не уже не ссылается ни одна динамически созданная структура.
Значения граничных индексов (как
статических так и динамических) можно получить при помощи функций Low(A) -
нижний граничный индекс и Hight(A) - верхний граничный индекс. Число элементов
массива - функцией Length:
function Length(A): Integer;
Дальнейшим развитием идеи динамических
массивов являются многомерные динамические массивы.
Var AA: array of arrray of real;
SetLength(AA,10,5);
AA[9,4]:=1;
AA[9][4]:=1;
Можно пойти еще дальше, и создать
динамические массивы с переменной длиной по разным индексам. Для создания
такого массива сначала нужно задать его размерность по первому индексу:
SetLength(AA,10);
Это означает, что массив будет
состоять из десяти строк. Теперь длина каждой строки задается отдельно:
SetLength(AA[0],5);
SetLength(AA[1],6);
SetLength(AA[2],3);
SetLength(AA[3],8);
. . .
В использовании многомерных
динамических массивов есть одно ограничение: передавать их в процедуры как
параметры нельзя.
Перегружаемые функции
Перегрузка функций ничем не отличается
от перегрузки методов. Основная идея перегрузки функций и методов заключается
в том, что в программе можно иметь две или болеефункции с одинаковыми именами
и разными наборами параметров. Перегружаемые функции, также как и методы
описываются с ключевым словом overload. Например:
function OverloadDemo(val : Byte) : string; overload;
function OverloadDemo(val : Char) : string; overload;
Такой подход делает ваш код более
простым, его легче сопровождать и расширять. Перегрузка нужна для того, чтобы
произвести одинаковые или похожие действия над разнотипными данными.
Параметры функций по
умолчанию
Параметры функций по умолчанию пришли
в Delphi из С++. Часто при вызове процедур и функций в них надо передать
параметры, обычно имеющие одно и то же значение. Это имеет место в частности
в научных расчетах. Теперь эта проблема упрощается путем введения параметров
по умолчанию. Это означает, что прямо в объявлении функции можно указать, что
те или иные параметры должны принимать определенные значения, если они не
заданы явно. Нарпример, можно описать функцию
function Test(x:extended; Rz:extended = 6371):extended;
При ее вызове второй параметр можно
указать явно:
Test(100,6372);
А можно и не указывать:
Test(100);
В первом случае параметр Rz будет
иметь значение 6372, а во втором - по умолчанию - 6371.
Параметры по умолчанию должны быть
сосредоточены в конце списка параметров. Допускается умалчивать последний,
последний и предпоследний, и т.д. параметры В этом состоит отличие от С++ -
там можно опускать любые из параметров по умолчанию.
При применении параметров по умолчанию
следует соблюдать осторожность. ассмотрим следующий пример:
Procedure Confused(I:integer); overload;
Procedure Confused(I:integer; J:integer = 0); overload;
. . .
Confused(x);
Компилятор не сможет определить, какую
именно реализацию Confused следует вызвать, и выдаст сообщение об ошибке.
2. Приемы работы в
среде разработки
Репозиторий
Репозиторий (Repository) представляет
собой хранилище разнородных объектов, объединенных общим предназначением.
Основная цель создания репозитория - предоставление разработчику возможности
повторного использования уже готовых и отлаженных частей программы. Здесь
можно найти готовое стандартное приложение, динамическую библиотеку, форму,
модуль, мастера диалогов и приложений, а также различные вспомогательные
программы.
Репозиторий в Delphi представляет
собой текстовый файл, в котором данны обо всех объектах храняться в
специальном формате.
Открыть репозиторий можно при помощи
команды New меню File главного окна Delphi.
Рассмотрим некоторые объекты, входящие
в репозиторий. Основу любой разработки в Delphi составляет проект,
объединяющий самые разные структурные элементы в единое приложение. В него
чаще всего входят модули и формы различных видов. Типы приложений
представлены исполняемыми программами, динамическими библиотеками и
приложениями для запуска служб. Особое место занимают приложения для работы с
базами данных (БД), поэтому значительная часть объектов репозитория
предназначена для конструирования таких программ. Для обеспечения удаленного
доступа к данным предназначены стандартные заготовки для приложений,
использующие различные механизмы взаимодействия, в том числе технологии CORBA
и Microsoft Transaction Server (MTS).
Состав объектов репозитория можно
обновлять, также можно создавать, переименовывать страницы и изменять состав
объектов для них. едактирование репозитория осуществляется в диалоговом окне
Object Repository которое появляется при выборе команды Repository меню Tools
главного окна Delphi, или при выборе команды Properties всплывающего меню
репозитория. Добавить новую форму в репозиторий можно командой Add to
repository всплывающего меню формы или перетаскиванием формы в панель
репозитория.
Проект и группа
проектов
Любая работа в Delphi начинается с
создания нового проекта. Как правило, из одного проекта получается одно
приложение. Таким образом, проект представляет собой фундамент или каркас, на
который “крепятся” все нужные детали. Самый маленький проект представляет
собой только один файл с расширением DPR, он называется главным файлом
проекта. Серьезный большой проект содержит десятки разнообразный форм, файлов
и модулей.
В главном файле содержится описание
всех модулей и форм, входящих в проект. Кроме того, в секции begin … end
может располагаться любой код, который должен выполняться перед началом
работы приложения или в процессе его закрытия.
Модулем называется текстовый файл с
расширением PAS, в котором содержится некоторый исходный код на языке Object
Pascal. С модулем может быть связана форма, представляющая собой отдельно
взятое окно программы с расположенными на нем интерфейсными элементами.
Служебная информация о формах хранится в файлах с расширением DFM. В общем
случае, в состав проекта могут входить модули, не имеющие связанных с ними
форм.
В репозитории содержится несколько
заготовок для форм (страница Forms), а также некоторые стандартные диалоги,
которые с точки зрения пользовательского интерфейса являются модальными
формами (страница Dialogs). В проекте Delphi помимо модулей и форм могут
присутствовать различные служебные файлы. Среди них важное место занимают
ресурсы (расширение RES), которые хранят значки, курсоры, строки сообщений
информацию о версии программы и т.д.
Репозиторий предлагает на выбор
несколько типов проектов: например проекты с многодокументным (MDI) и
однодокументным (SDI) интерфейсом. При необходимости создания динамической
библиотеки также можно воспользоваться соответствующей заготовкой из
репозитория.
Помимо проекта в Delphi пристствует и
более важная структурная единица - группа проектов, которая , как видно из
названия, объединяет для совместной разработки несколько проектов. Файл
группы проектов имет расширение BPG и представляет собой текстовый файл с
системной информацией и описанием проектов, входящих в группу.
Работа с группой проектов практически
ничем не отличается от работы с отдельным проектом, необходимо только следить
за принадлежностью отдельных форм и модулей и овремя переключаться на нужный
проект в Диспетчере проектов. При компиляции в группе также необходимо
выбрать нужный проект из списка на панели инструментов Delphi или Диспетчера
проектов.
Диспетчер проекта предназначен для
управления составными частями проекта или группы проектов. В группе можно
добавить или удалить отдельный проект, в проекте - добавить или удалить
отдельный модуль.
Управление проектом осуществляется
кнопками на панели инструментов диспетчера проекта или командами всплывающего
меню.
Вызывается диспетчер командой Project
Manager меню View главного окна Delphi. Создание новой группы проектов
осуществляется также при помощи диспетчера проекта. Возможность объединения
групп или включения групп в другие группы отсутствует.
В целом, параметры проекта доступны в
диалоговом окне, которое открывается при выборе команды Project Options меню
Project главного окна Delphi.
Палитра компонентов
Основная палитра компонентов Delphi
имеет двенадцать страниц.
Standard. Большинство компонентов на
этой странице являются аналогами экранных элементов самой Windows. Меню,
кнопки, полосы прокрутки — здесь есть все. Но компоненты Delphi обладают
также некоторыми удобными дополнительными встроенными возможностям.
Additional. Эта страница содержит
более развитые компоненты. Например, компонент Outline удобен для отображения
информации с иерархической структуройДанная страница также содержит
компоненты, главное назначение которых — отображение графической информации.
Компонент Image загружает и отображает растровые изображения, а компонент
Shape позволяет рисовать графические примитивы - окружности, квадраты и т.д.
System. Страница System содержит
неотображаемые системные компоненты: Timer, MediaPlayer, компоненты,
реализующие механизм DDE. Страница System также содержит компоненты,
обрабатывающие обмен высокого уровня между программами посредством OLE
(Object Linking and Embedding).
Win32. Эта страница содержит
компоненты, позволяющие созданным с помощью Delphi программам использовать
такие нововведения в пользовательском интерфейсе 32-разрядной Windows, как просмотр
древовидных структур, просмотр списков, панель состояния, расширенный
текстовый редактор и др.
Dialogs. Windows 3.1 ввела в
употребление стандартные диалоговые окна для операций над файлами, выбора
шрифтов, цветов и т.д. Однако для использования их в обычной программе
Windows может потребоваться написать немало вспомогательного кода. Страница
Dialogs предоставляет программам Delphi простой доступ к этим стандартным
диалоговым окнам.
Data Access и Data Controls. Delphi
использует механизм баз данных компании Borland (Borland Database Engine,
BDE) для организации доступа к файлам баз данных различных форматов.
Компоненты этих двух страниц облегчают программам Delphi использование
сервиса баз данных, предоставляемого BDE, например многопользовательского
считывания, записи, индексации и выдачи запросов для таблиц dBASE и Paradox.
С использованием этих компонентов
создание программы просмотра и редактирования базы данных почти не требует
программирования.
Win 3.1. На этой странице находятся
компоненты Delphi 1.0, возможности которых перекрываются аналогичными
компонентами Windows 95.
Internet. Эта страница предоставляет
компоненты для разработки приложений, позволяющих создавать HTML-файлы
непосредственно из файлов баз данных и других типов, взаимодействующих с
другими приложениями для Internet. Delphi 4 дает вам возможность создавать
приложения для Web-сервера в виде DLL-файлов : (Dynamic Link Library —
Динамически компонуемая библиотека), способных содержать невизуальные
компоненты. С помощью компонентов страницы Internet довольно просто создавать
обработчики событий для обращения к определенному URL (Uniform Resource
Locator — Унифицированный локатор ресурса), представлению документов в
HTML-формате и пересылки их клиент-программе.
Samples. Эта страница содержит
компоненты, которые не встроены в Delphi, но демонстрируют мощь системы
компонентов. Для этих компонентов нет встроенной интерактивной справки. Все
же они не менее полезны, чем компоненты с других страниц.
ActiveX. Эта страница содержит компоненты
ActiveX, разработанные независимыми производителями программного обеспечения:
сетка, диаграмма, средство проверки правописания.
QReport. Эта страница предоставляет
компоненты баз данных. Здесь содержатся особые версии надписей, полей,
примечаний и других элементов управления.
Midas и Decision Cube. Здесь собраны
компоненты для доступа к удаленным серверам и осуществления SQL – запросов.
Размещение
компонентов
Размещать компоненты на форме очень
просто. Требуется только щелкнуть на нужной вкладке палитры компонентов,
затем на кнопке с пиктограммой соответствующего компонента и после этого
щелкнуть в окне формы. Если щелкнуть на компоненте, а затем нарисовать
прямоугольник с помощью мыши на форме — компонент появится внутри этого
прямоугольника. Если размеры компонента поддаются изменению, при появлении на
форме он заполнит собой прямоугольник.
Если вы забыли, на какой странице
расположен конкретный компонент, выберите пункт Component List из меню View ,
и на экране появится список компонентов в алфавитном порядке. Если щелкнуть
на компоненте в палитре компонентов, его кнопка окажется нажатой. Если
щелкнуть на другом компоненте, первая кнопка вернется в исходное состояние:
только один компонент может быть выбран в каждый момент времени. Для того чтобы
все кнопки оказались в исходном состоянии, и было восстановлено нормальное
использование мыши, следует щелкнуть на кнопке со стрелкой выбора, которая
появляется с левой стороны каждой страницы палитры. Для размещения нескольких
копий компонента при выборе компонента необходимо нажать и удерживать клавишу
Shift. Если дважды щелкнуть на пиктограмме компонента, то компонент
автоматически появится в центре активной формы проекта.
При перемещении и изменении размера
компоненты выравниваются по точкам координатной сетки формы. Как правило, это
хорошо — такая возможность помогает поддерживать порядок в формах. Для отмены
этой возможности или изменения плотности точек координатной сетки необходимо
выберать пункт Options меню Tools. Первая страница параметров предназначена
для настройки пользователем параметров среды. На этой странице имеется группа
Form designer, флажки опций Display grid и Snap to grid которой определяют,
видна ли координатная сетка и активна ли она. Можно также изменить значения
параметров Grid Size X (Шаг по оси X) и Grid Size Y (Шаг по оси Y), что
приведет к изменению шага координатной сетки по горизонтали и вертикали,
соответственно.
Не каждый компонент виден на форме во
время запуска программы. Например, размещение на форме компонента MainMenu
приводит к появлению в разрабатываемом приложении меню, но соответствующая
пиктограмма во время запуска программы не отображается. Компоненты,
представляющие диалоговые окна общего назначения, вообще никак не
визуализируются во время работы программы. азмеры невидимого компонента в
процессе разработки не изменяются: он всегда отображается в виде пиктограммы.
Инспектор объектов
Инспектор объектов предназначен для
установки доступных на этапе проектирования свойств компонентов (то есть
свойств, объявленных как published). Окно инспектора состоит из трех основных
частей:
- Селектора компонентов
- Страницы свойств
(Properties)
- Страницы событий (Events)
Селектор компонентов представляет
собой выпадающий комбинированный список и предназначен для выбора компонент
для просмотра и редактирования. Обычно, в использовании селектора нет
необходимости, так как выделенный компонент появляется в инспекторе объектов
автоматически. Селектор компонентов отображает имя компонента и класс, от
которого данный компонент происходит. Например, кнопка с именем OkButton
будет представлена как «OkButton: TButton».
Страница Properties инспектора
объектов отображает все свойства выбранного компонента, доступные на стадии
проектирования. Страница разделена на два столбца. Столбец Property слева
показывает имя свойства, столбец Value справа - значение этого свойства. Если
свойство имеет тип класса, записи, или множества, то слева от его имени
отображается знак +. Дважды щелкнув на имени такого свойства, можно получить
доступ к отдельным его полям. Того же эффекта можно достичь, выбрав пункт
Expand в контекстном меню инспектора объектов. Для закрытия развернувшегося
списка полей необходимо повторно дважды щелкнуть на имени свойства, либо
использовать пункт Collapse в контекстном меню инспектора объектов. Во многих
случаях редактор отображает список возможных значений свойства. Для свойств,
представляющих собой объекты (экземпляры классов VCL) существуют две
возможности для редактирования. Во-первых, можно, щелкнув на кнопке с
многоточием (…) в столбце Value свойства вызвать редактор соответствующего
свойства; либо, щелкнув дважды на имени свойства, можно развернуть список его
полей, как описано выше. Если на форме выделено несколько компонентов,
инспектор объектов покажет их общие свойства. Это дает возможности менять
свойства нескольких компонентов одновременно.
Страница Events редактора объектов
содержит список событий, которые может обрабатывать данный компонент. Для
создания обработчика события необходимо дважды щелкнуть на столбце Value
рядом с именем этого события. При этом Delphi создаст метод, со всеми
параметрами, необходимыми для обработки события. Активизируется окно
редактора кода с курсором, расположенным внутри обработчика события. Остается
только ввести код обработчика! Обычно имя обработчика события генерируется
автоматически, однако, можно вручную задать требуемое имя в столбце Value
напротив имени события. После нажатия клавиши Enter произойдет генерация
скелетного кода обработчика события с заданным именем. Можно связать событие
с уже имеющимся обработчиком. Для этого используется выпадающий список,
появляющийся при нажатии соответствующей кнопки в столбце Value напротив
имени события. В список включаются только обработчики событий, совпадающие по
типу с данным событием.
Редактор кода
Основные средства упрощения процесса
создания исходного кода приложе- ний собраны в едакторе кода (Code Editor),
который из окна для отображе- ния и редактирования кода модулей приложения
превратился в удобное сред- ство с многочисленными справочными и
вспомогательными возможностями.
Шаблоны компонентов
Шаблоны компонентов предоставляют
удобный способ использования наи- более часто применяемых групп компонентов
(например, часто требуется объединить пояснительную надпись, поле
редактирования и кнопку). При этом сделанные при создании шаблона настройки
свойств составляющих его компонентов сохраняются и переносятся на новую форму
вместе с этими компонентами.
Создание шаблона включает следующие
шаги:
1. На форме необходимо разместить
требуемые компоненты, выровнять их и настроить нужные свойства.
2. Выделить на форме компоненты,
которые предполагается включить в шаблон, в группу.
3. Выбрать в меню Components Главного
окна среды разработки команду Create Component Template.
4. В появившемся диалоге требуется
задать имя нового шаблона и указать страницу Палитры компонентов, на которой
шаблон будет доступен. Нажать кнопку ОК.
Теперь шаблон можно использовать
обычным способом: после выбора его на странице Палитры компонентов и
переноса, на форме появляется заданный набор компонентов с определенными
ранее свойствами.
Шаблоны кода
Шаблоны кода предназначены для быстрой
вставки в исходные код моду-. лей проекта стандартных (или часто
используемых) комбинаций операторов языка Object Pascal. Для вызова шаблона
кода используется комбинация клавиш иш
+, после нажатия которой появляется
список доступных в настоящее время шаблонов.
Выбор наименования шаблона из
раскрывшегося списка приводит к появ- лению на указанном мышью месте набора
операторов, определяемых шаб- лоном. Стандартная поставка Delphi включает
несколько типовых шаблонов с наиболее распространенными наборами операторов.
Опция завершения кода
Опция завершения кода применяется при
необходимости использовать в исходном коде проекта свойства и методы
стандартных компонентов Delphi. Включение механизма завершения кода
происходит после ввода символа точки за названием класса или объекта. едактор
кода автоматически разворачивает список всех свойств и методов компонента.
После выбора нужного элемента списка и нажатия клавиши свойство или метод
дописывается в имени класса или объекта. Так как многие классы обладают.
внуши- тельным списком свойств, доступных программисту, то при выборе нужного
элемента из списка можно воспользоваться наращиваемым поиском — при вводе
после точки первых букв свойства или метода осуществляется автоматическое
позиционирование списка на первый похожий элемент.
Опция включается на странице Code
Insight в диалоговом окне команды Environment Options меню Tools Главного
меню среды разработки при помощи флажка Сне Completion (рис. 2.1).
Опция параметров
Опция включается на странице Code
Insight в диалоговом окне команды Environment Options меню Tools Главного
меню среды разработки при помощи флажка Соде Parameters (рис. 2.1).
Опция заполнения
класса
Эта функция автоматически генерирует
исходный код для любых составных частей нового класса (свойств и методов),
которые уже объявлены в секции interface, а также создает объявление для тех
элементов, которые уже описаны в секции implementation.
Чтобы создать описание объявленных
свойств и методов, необходимо установить курсор в любое место объявления
класса в секции interface и нажать комбинацию клавиш ++.
После этого Delphi, во-первых, создаст
для объявленных свойств класса не- обходимые свойства и методы для чтения и
записи в секции private. Во- вторых, в секции implementation будет
сгенерировано описание необходимых методов.
Например, имеется простейший класс:
type
TSimpleObject = class (TObject)
property Empty: Integer;
function ClearEmpty: Boolean;
end;
Тогда, после нажатия комбинации клавиш
++, исходный код в секции interface будет приведен к следующему виду:
type
TSimpleObject = class (TObject)
property Empty: Integer read FEmpty write SetEmpty;
function ClearEmpty: Boolean;
private
FEmpty: Integer;
procedure SetEmpty(const Value: Integer);
end;
А в секции implementation появятся
следующие строки:
function TSimpleObject.ClearEmpty: Boolean;
begin
end;
procedure TSimpleObject.SetEmpty(const Value: Integer);
begin
FEmpty := Value;
end;
3. Межпрограммное
взаимодействие
Часто возникает необходимость
организовать взаимодействие программ, написанных разными людьми или даже
разными фирмами. Задача решается в рамках идеологии «клиент-сервер», когда
одно приложение должно реагировать на запросы других приложений. Наконец, с
развитием сетей совершенно обычной стала задача взаимодействия приложения на
разных машинах.
Для организации взаимодействия между
задачами существует очень много инструментов. Некоторые из них позволяют
работать в рамках только одной машины, некоторые - в рамках локальной или
глобальной сети. Связь между двумя программами можно установить таким
образом, что изменения в одном приложении будут отражаться во втором.
Например, если Вы меняете число в электронной таблице, то во втором
приложении данные обновятся автоматически и отобразят изменения. Кроме того,
можно из своего приложения управлять другими приложениями такими, как Word
for Windows, Excel и др.
Dynamic Data Exchange
(DDE)
DDE дает возможность перейти через
рамки приложения и взаимодействовать с другими приложениями и системами
Windows. Dynamic Data Exchange получило свое имя потому, что позволяет двум
приложениям обмениваться данными (текстовыми, через глобальную память)
динамически во время выполнения. DDE - давний и прижившийся протокол обмена
данными, появившийся еще на заре эры Windows. Ниша, занимаемая DDE - это
оперативная передача и синхронизация данных в приложениях.
Приложения, использующие DDE,
подразделяются на две категории: клиенты и серверы. Оба участника процесса
совершают контакты (conversations) по определенным темам (topics), при этом в
рамках темы производится обмен элементами данных (items). Устанавливает
контакт DDE-клиент, который посылает запрос, содержащий имена контакта и
темы. После установления контакта всякое изменение элемента данных на
DDE-сервере передается элементу данных клиента. Одно и то-же приложение может
быть одновременно и сервером, и клиентом (например, MicroSoft Word).
DDE-серверы
Для построения DDE-сервера в Delphi
имеются два объекта, расположенные на странице System Палитры Компонент -
TDdeServerConv и TDdeServerItem. Обычно в проекте используется один объект
TDdeServerConv и один или более TDdeServerItem. Для получения доступа к
сервису DDE-сервера, клиенту потребуется знать несколько параметров: имя
сервиса (Service Name) - это имя приложения (обычно - имя выполняемого файла
без расширения EXE, возможно с полным путем); Topic Name - в название темы;
Item Name – название элемента данных.
Назначение объекта TDdeServerConv -
общее управление DDE и обработка запросов от клиентов на выполнение макроса.
Последнее выполняется в обработчике события OnExecuteMacro, например, как это
сделано ниже:
procedure TDdeSrvrForm.DoMacro(Sender: TObject;Msg: TStrings);
var
Text: string;
Begin
Text := '';
if Msg.Count > 0 then Text := Msg.Strings[0];
MessageDlg ('Executing Macro - ' + Text, mtInformation, [mbOK], 0);
End;
Важнейшим свойством компонента
TDdeServerConv является название темы, содержащееся в свойстве Name. Клиент
должен знать это имя при установлении контакта, за исключением случая, когда
он подключается к данным контакта, скопированным в буфер обмена.
В моменты открытия и закрытия контакта
возникают события:
Property OnOpen: tNotifyEvent;
Property OnClose: tNotifyEvent;
Объект TDdeServerItem связывается с
TDdeServerConv посредством свойства
Property ServerConv:tDDEServerConv,
и определяет, что, собственно, будет
пересылаться по DDE. В принципе, потокол DDE подразумевает обмен любыми
данными, формат которых зарегистрирован в системе для передачи через буфер
обмена. Однако для рассматриваемых компонентов эти возможности ограничиваются
только текстовыми данными. Для этого у компонента TDdeServerItem есть
свойства Text и Lines (Text имеет то же значение, что и Lines[0]).
Property Text:string;
Property Lines:tStrings;
При изменении значения этих свойств
автоматически происходит пересылка обновленных данных во все
приложения-клиенты, установившие связь с сервером.
Данный компонент позволяет также
осуществлять установление связи через буфер обмена (Clipboard). Для этого
служит метод CopyToClipboard. Необходимая информации помещается в через буфер
обмена и может быть вызвана из приложения-клиента при установлении связи.
Обычно, в DDE-серверах для этого есть специальный пункт меню Paste Special
или Paste Link.
DDE-клиенты
Для построения DDE-клиента в Delphi
используются два компонента TDDEClientConv и TDDEClientItem. Аналогично
серверу, в программе обычно используется один объект TDDEClientConv и один и
более связанных с ним TDDEClientItem.
TDDEClientConv служит для установления
связи с сервером и общим управлением DDE-связью. Установить связь с
DDE-сервером можно как во время разработки, так и во время выполнения
программы, причем двумя способами. Первый способ - заполнить вручную
необходимые свойства компонента. Это DdeService, DdeTopic и
ServiceApplication. Если во время разработки дважды щелкнуть на одном из
первых двух свойств в Инспекторе Объектов - появится диалог для определения
DDE-связи. Для установления связи через Clipboard в диалоге есть специальная
кнопка Past Link. Ей можно воспользоваться, если Вы запустили DDE-сервер,
сохранили каким-то образом информацию о связи и вошли в этот диалог.
Например, если DDE-сервером является DataBase Desktop, то нужно загрузить в
него какую-нибудь таблицу Paradox, выбрать любое поле и выбрать пункт меню
Edit|Copy. Свойство ServiceApplication заполняется в том случае, если в поле
DDEService содержится имя, отличное от имени программы, либо если эта
программа не находится в текущей директории. В этом поле указывается полный
путь и имя программы без расширения (.EXE). Данная информация нужна для
автоматического запуска сервера при установлении связи по DDE, если тот еще
не был запущен.
Имена сервера DDE и темы содержатся в
свойствах:
Property DDEService:string;
Property DDETopic:string;
Способ вхождения в контакт
определяется свойством
Property ConnectMode:tDataMode;
Type tDataMode = (DDEAutomatic,DDEManual);
Метод
Function SetLinc(const Service: string; const Topic: string):Boolean;
Присваивает свойствам DDEService и DDETopic соответствующие значения, а в
случае, если задан режим DDEAutomatic, и устанавливает контакт. В режиме
DDEManual для установления контакта необходимо дополнительно вызвать метод
Function OpenLink: Boolean;
Этот метод сначала закрывает предыдущий контакт, затем пытается связаться с
сервером DDEService на тему DDETopic. Если это не удается сразу,
предпринимается попытка загрузить приложение с именем, определенным в
свойстве:
Property ServiceApplication: string;
Можно связаться с сервером, поместившим данные в буфер обмена с помощью
метода
Function PasteLink: boolean;
Ниже приведен пример процедуры,
осуществляющей связь с сервером.
procedure TMainForm.doNewLink(Sender: TObject);
begin
DdeClient.SetLink(AppName.Text, TopicNameEdit.Text);
DdeClientItem.DdeConv := DdeClient;
DdeClientItem.DdeItem := ItemName.Text;
end;
procedure TMainForm.doPasteLink(Sender: TObject);
var
Service, Topic, Item : String;
begin
if GetPasteLinkInfo (Service, Topic, Item) then begin
AppName.Text := Service;
TopicName.Text := Topic;
ItemName.Text := Item;
DdeClient.SetLink (Service, Topic);
DdeClientItem.DdeConv := DdeClient;
DdeClientItem.DdeItem := ItemName.Text;
end;
end;
После того, как установлена связь,
нужно позаботиться о поступающих по DDE данных, это делается в обработчике
события OnChange объекта TDdeClietItem:
procedure TFormD.DdeClientItemChange(Sender: TObject);
begin
DdeDat.Lines := DdeClientItem.Lines;
end;
Это единственная задача объекта
TDdeClientItem.
Свойство
Property DDEConv: TddeClientConv
Этого компонента предназначено для
связи с соответствующим объектом DdeClientConv. А свойство
Property DDEItem:string;
Должно содержать имя элемента данных.
Свойства
Property Text: string;
Property Lines: tStrings;
Аналогичны соответствующим свойствам
tDDEServerItem и содержат данные.
На объект TDdeClientConv возлагаются
еще две задачи: пересылка данных на сервер и выполнение макросов. Для этого у
данного объекта есть соответствующие методы.
Function ExecuteMacroLines(Cmd:tStrings, WaitFlg:Boolean):Boolean;
Function PokeDataLines(const Item:string,Data:tStrings):Boolean;
Обмен сообщениями
Как уже упоминалось ранее,
операционная система Windows® основана на сообщениях, возникающих в
результате действий пользователя, аппаратуры компьютера или других программ.
Поведение каждого окна полностью определяется тем, какие оно принимает
сообщения и как их обрабатывает. В большинстве случаев, обработка сообщений в
Delphi выполняется через события. Однако, бывают ситуации, когда может
потребоваться послать и/или обработать сообщение самостоятельно. Существуют
два типа сообщений, которые могут потребовать обработки в обход обычной
системы сообщений Delphi:
Сообщения Windows®, не обрабатываемые VCL
Сообщения, определяемые пользователем
В принципе, сообщения делятся на две
категории:
Командные сообщения
Уведомляющие сообщения
Командные сообщения используются как
программистами, тек и Windows®. Они управляют элементам операционной системы
и прикладным программам. Уведомляющие сообщения содержат информацию об
изменении состояния окон Windows®, их отдельных элементов и устройств
системы. Они посылаются только самой средой окон Windows®.
Каждое сообщение имеет два параметра:
WPARAM и LPARAM. В 32-х битной среде оба эти параметра имеют размер 32 бита
(longword). В 16-битной Windows WPARAM - это 16 битное число (word), а LPARAM
- 32-битное (longint).
Для отправки сообщений API Windows®
содержит две функции:
function PostMessage( HWND hWnd, // handle of destination window
UINT Msg, // message to post
WPARAM wParam, // first message parameter
LPARAM lParam // second message parameter
):BOOLEAN;
function SendMessage( HWND hWnd, // handle of destination window
UINT Msg, // message to send
WPARAM wParam, // first message parameter
LPARAM lParam // second message parameter
): LRESULT;
Первая из них отправляет сообщение в
очередь сообщений Windows® и немедленно возвращает управление. PostMessage
возвращает TRUE, если вызов функции прошел успешно и FALSE в противном
случае.
Функция SendMessage отличается от
PostMessage тем, что, послав сообщение, она не возвратит управление до тех
пор, пока сообщение не будет доведено до получателя.
Обе функции имеют одинаковые
параметры: HWND - дескриптор окна, которому предназначается сообщение, UINT -
сообщение, которое должно быть послано, WPARAM и LPARAM - параметры
сообщения.
В следующем примере главной форме
проекта посылается сообщение о закрытии приложения:
PostMessage(Handle,WM_QUIT,0,0);
В дополнение к функциям API Windows®
VCL содержит метод Perform, который можно использовать для посылки сообщений
любому окну VCL.
function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
Perform обходит систему передачи
сообщений Windows® и направляет сообщение непосредственно механизму обработки
данного окна. С использованием предыдущий пример будет выглядеть следующим
образом:
Perform(WM_QUIT,0,0);
VCL имеет события примерно лишь для
20% наиболее часто используемых сообщений Windows®. У программиста может
возникнуть необходимость обработать сообщения, для которых в VCL события не
предусмотрены. Для обработки сообщений ОС, не имеющих соответствующих событий
в Delphi есть ключевое слово message. С его помощью конкретный метод в коде
программы может быть связан с любым сообщением Windows®. Когда окно
приложения получает это сообщение вызывается соответствующий метод. Для
реализации обработки сообщения на этом уровне необходимо:
1. Включить объявление метода для
обработки сообщения в объявление класса, указав ключевое слово message и
название сообщения, для обработки которого данный метод редназначен.
2. Включить определение метода в
раздел implementation.
Приведем пример определения метода,
обрабатывающего сообщение WM_ERASEBKGND:
Procedure WmEraseBkgnd(var Msg:tWMEraseBkgnd); message WM_ERASEBKGND;
Ключевое слово message указывает на
то, что данный метод используется для обработки сообщения ОС, имя которого
указано после этого ключевого слова: WM_ERASEBKGND. Следует также отметить,
что параметр метода является записью типа tWMEraseBkgnd.
type TWMEraseBkgnd=record
Msg:Cardinal;
DC:HDC;
Unused:Longint;
Result:Longint;
end;
В VCL имеются записи для большинства
сообщений Windows® (они определены в модуле Messages.pas). Именем записи
является имя сообщения с префиксом t и без подчеркивания. Сам метод можно
назвать как угодно, но приведенная выше форма является общепринятой. В этом
методе может возникнуть необходимость вызвать обработчик сообщения,
установленный по умолчанию. Для этого необходимо вызвать виртуальный метод
класса tObject DefaultHandler:
procedure tObject.DefaultHandler(var Message); virtual;
Помимо нормальных сообщений Windows®,
можно создать свое собственное сообщение. еализация и перехват определяемого
пользователем сообщения идентичны обработке сообщений Windows®. Единственное
отличие состоит в том, что это сообщение необходимо сначала определить:
Const My_Message = WM_USER + 1;
Эта строка объявляет пользовательское
сообщение с именем My_Message.
Для обработки сообщений, определенных
пользователем в качестве типа параметра обработчика сообщения следует
использовать запись общего вида tMessage:
type tMessage = record
Msg:Cardinal;
WParam:Longint;
LParam:Longint;
Result:Longint;
end;
Здесь, как и во всех других
определенных в VCL для сообщений записях, поле Msg определяет передаваемое
сообщение, поле Result - результат действия обработчика. Уникальные для
данной записи поля WParam и LParam содержат соответствующие параметры
сообщения.
Для посылки определяемых пользователем
сообщений можно использовать функции SendMessage, PostMessage, однако,
предпочтительнее в данном случае использовать Perform.
Сокеты
Наиболее современным и даже
"модным" является общение процессов на уровне сокетов. Популярность
их обусловлена взрывным ростом интереса как пользователей, так и специалистов
к Internet и всему, что связано с этой сетью.
Общепринятой и стандартизованной на
международном уровне является семиуровневая модель структуры протоколов связи
под названием интерфейс открытых систем (Open Systems Interface, OSI). На
каждом из уровней — от первого, физического, до высших уровней представления
и приложений — решается свой объем задач и используется свой инструментарий.
Сокеты находятся как раз на
промежуточном, так называемом транспортном уровне семиуровневой структуры.
"Под ним", на сетевом уровне, находится протокол IP (основа TCP/IP
— Transmission Control Protocol/Internet Protocol). Над ним находятся
протоколы сеансового уровня (сервисы), ориентированные на конкретные задачи —
например, FTP (для передачи файлов), SMTP (почтовый), всем известный
гипертекстовый протокол HTTP и другие. Использование сокетов, с одной
стороны, позволяет абстрагироваться от частностей работы на нижних уровнях, с
другой — решать широкий круг задач, недоступный специализированным
протоколам.
С точки зрения своей сущности сокет —
это модель одного конца сетевого соединения, со своими свойствами и
возможностью читать и записывать данные. С точки зрения содержания — это
прикладной программный интерфейс, входящий в состав разных операционных
систем, в том числе Windows — начиная с версии 3.11. Последняя его реализация
носит название WinSock 2.0. Прототипы функций содержатся в файле WINSOCK.PAS,
поставляемом с Delphi.
API сокетов впервые появился в среде
Unix и стал популярен вместе с (и благодаря) протоколом TCP/IP. Именно они
являются строительным материалом, из которого построена сеть Internet. Но
сокеты не обязательно базируются на TCP/IP, они могут базироваться на IPX/SPX
и других протоколах.
Механизм соединения при помощи сокетов
таков. На одной стороне создается клиентский сокет. Для инициализации связи
ему нужно задать путь к серверному сокету, с которым предстоит установить
соединение.
|