WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 |   ...   | 8 | 9 || 11 |

«Петр Дарахвелидзе Евгений Марков Санкт-Петербург «БХВ-Петербург» 2003 УДК 681.3.06 Б Б К 32.973.26-018.2 Д20 Дарахвелидае ...»

-- [ Страница 10 ] --

' (Master Простой табличный отчет i » I Страна | Столица | Континент | Территория Население + Region1: MamDataBand (Master ] j [Continent [ Population] [a e Nm ] j [Capital ]|[ Аеа] ^ Regioni: FooterBand (Master ВI ЯП Рис. 26.5. Страница простого табличного отчета в визуальной среде Rave Reports Элемент оформления DataBand обеспечивает размножение строк отчета в соответствии с числом строк набора данных. Для этого полосу данных MainDataView необходимо связать с просмотром при помощи свойства Dataview. В нашем примере это прямой просмотр countryview, связанный С КОМПОНенТОМ соединения TRvDataSetConnection В ПрИЛОЖеНИИ.

На полосе данных MainDataView необходимо разместить элементы оформле ния DataText. Каждый из этих элементов связывается с объектом просмотра и полем данных такого просмотра. Для этого используются свойства Dataview и DataFieid соответственно. Таким образом, каждый элемент оформления DataText размножается вместе с полосой данных и формирует в отчете колонку значений поля набора данных.

Расположив на полосах горизонтальные и вертикальные линии, можно лег ко оформить данные в табличном виде.

Отчет "один-ко-многим" При помощи средств Rave Reports можно создавать и более сложные отче ты. В приложениях баз данных очень часто используются отношения "один ко-многим" между наборами данных.

Давайте посмотрим, как создать отчет "один-ко-многим". Само собой, он должен быть связан как минимум с двумя просмотрами, которые находятся в отношении "один-ко-многим".

Часть VI. Генератор отчетов Rave Reports 5. Внимание!

Для компонентов наборов данных в Delphi не нужно создавать отношение "один-ко-многим" — речь идет о том, что их поля позволяют такое отношение создать теоретически.

Подобно рассмотренному выше простому отчету, отчет "один-ко-многим" может содержать полосы Band и DataBand. Причем дополнительные настрой ки необходимы для обоих типов полос. Число полос DataBand должно соот ветствовать числу используемых в отчете наборов данных. Полосы Band не сут в основном оформительскую нагрузку, и их число зависит от эскиза от чета и вашей фантазии.

В качестве примера создадим отчет для двух таблиц из демонстрационной базы данных Delphi. Таблицы CUSTOMER и ORDERS находятся в отноше нии "один-ко-многим". Для них в тестовом приложении создано соедине ние с использованием ADO, и два табличных компонента ADO подключены К компонентам соединения TRvDataSetConnection.

Соответственно полоса данных custBand будет отображать записи из набора данных tCustomer, а Полоса OrdBand — ИЗ набора данных tOrders (рис. 26.6).

Их необходимо связать с объектами прямых просмотров, как уже описыва лось выше для примера простого отчета.

Щ •.Region!;

. TitieBand.;

: «•:">! •;

'':: (Master I P Отчет "один-ко-многим" {M.ister 1 • •)i | • Regioni: CustBand Заказчик [Company ) Телефон JPhooe '* ;

)l (В - - i ч ',,/ 1 "' V Regioni: OrdHeaderBand Тип плат xa )I i <^ Regioni: OrciBancJ - 'D. !' ] [oaleDate ] [ ^mountPaid] [ feN O ro d [Pa^mentMethoJ Д Regioni: OrdFooterBanc - - " : ' b 1-. ) | I Рис. 26.6. Страница отчета MasterDetailReport в визуальной среде Rave Reports А теперь займемся созданием отношения "один-ко-многим".

В подчиненной полосе данных OrdBand необходимо задать значения для четырех свойств.

П Свойство ControilerBand должно содержать ссылку на главную полосу CustBand.

Глава 26. Отчеты для приложений баз данных D Свойство MasterDataview должно содержать ссылку на главный объект Просмотра CustomersView.

П В свойстве MasterKey необходимо задать ключевое поле custNo главного просмотра CustomersView, по которому будет установлено отношение.

• В свойстве DetaiiKey необходимо задать ключевое поле custNo подчинен ного просмотра Ordersview, по которому будет установлено отношение.

Кроме этого, необходимо настроить атрибуты местоположения полос на странице отчета. Для этого используется Редактор полос отчета Band Style Editor (рис. 26.7), который открывается при щелчке на кнопке свойства Bandstyle Инспектора объектов визуальной среды Rave Reports. В нем в группе Print Location для подчиненной полосы ordBand необходимо устано вить флажок Detail.

•i Bn Dp y for R g n! Od a •• ad s a il e o ": rBl-l'l i ПК 'M • Cs ad ( a t r ut n M se) B,::-:.. !(,,,, I " ' » : 11. |'.^';

^СапсеГ' "!*'^.

vS'м'ЙаИоп' — "^' | i;

i 0Г1ВВ) ;

.•;

•;

..• =».-.••Ь&(.

!•;

.-' • Od a d (Detail) r Bn ч;

.::;

:| !:,;

;

;

;

•:

1 С f Body Headerffi ^ \ Ф OrdBand iDetail) ji'i.'!;

.::

# OrdBand (Detail) ::: ' ": •• "" Ч1.1.1..

::

.:i.•. ".Г...:

'' :!;

с group Header(GJ 4 OrdFooterBand (b) •;

::••• if" • CustBand (Master) У OrdHeaderBand (B) *•;

..."• • OrdBand (Detail) 1 1 • • • & • OtdBandJQelaJD Ш 'Ro^Footertrj'S i f " ИВ ф OrdBand (Detain i f. ;

. ' !

iiii :

A OrdFooterBand (b) OroueFboter:

: ' < ~.

Г Bodi Footer (b) * • CustBand (Master) r&f" f OrdHeaderBand (B) : :

• Й,.: &> OrdBand (Detain Ибссцггепсе ;

^ &OrdBand (Detail) •С :Erst(i)V>^i\;

,i::;

:

• OrdBand (Detail) I fcjew Page (P) ;

}.;

4 OrdFooterBand (b) :

.• : • m ;

Г Nsyy: Column (С);

' Рис. 26.7. Редактор полос отчета Band Style Editor для отчета MasterDetailReport На этом настройка отношения "один-ко-многим" завершена. Однако ска жем еще несколько слов об использовании обычных полос при оформлении такого рода отчетов. В нашем примере две дополнительные полосы OrdHeaderBand И OrdFooterBand помогают визуально выделить группы записей подчиненной полосы. Для этого необходимо в их свойстве controiierBand выбрать полосу данных ordBand. Затем в редакторе полос отчета в группе Print Location для полосы OrdHeaderBand необходимо выбрать флажок Body Header (В), а для полосы OrdFooterBand — флажок Body Footer (b).

Обратите внимание (см. рис. 26.6 и 26.7), что значки маркировки на поло сах страницы и в редакторе полос наглядно демонстрируют текущий статус 656 Часть VI. Генератор отчетов Rave Reports 5. полосы. Цветом выделены уровни вложения данных и подчиненность по лос. Полосы с маркировкой одного цвета печатаются в одном блоке. Квад раты обозначают полосы данных, а треугольники — обычные полосы, при этом направление вершины треугольника обозначает полосу заголовка или окончания. Левая панель редактора полос отчета Band Style Editor (рис. 26.7) наглядно демонстрирует модель отчета, как если бы он был на печатан для трех записей набора данных.

На основе отчета "один-ко-многим" можно легко разработать и более слож ные отчеты. Для этого необходимо детальную полосу данных связать с но выми детальными полосами и настроить по описанной методике отношение "один-ко-многим".

Группирующий отчет Отчеты, работающие с базами данных, часто должны отображать данные с различными уровнями группировки. Обычно группировка осуществляется в наборе данных, если он создается на основе запроса SQL с применением оператора GROUP BY. НО В самом наборе данных невозможно предусмотреть оформление групп записей, однако это можно сделать в отчете.

Для полосы данных, которая отображает данные из просмотра с группиров кой, можно создать полосы фуппового заголовка и группового окончания.

Для этого используются свойства GroupDataView и GroupKey. Первое должно указывать на объект группирующего просмотра, а второе задает поле или несколько полей, по которым осуществляется группировка. Применительно к оформлению отчета это означает, что при изменении значения группового ключа будут напечатаны полосы фуппового заголовка и окончания.

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

Кроме этого, для полос фуппового заголовка необходимо в свойстве ControiierBand задать основную полосу данных и настроить свойство Bandstyie. Для группового заголовка в редакторе Band Style Editor в фуппе Print Location устанавливается флажок Group Header (G), а для полосы фуппового окончания — флажок Group Footer (g).

Обычно фуппирующие запросы SQL используют афегатные функции для вычисления одного или нескольких величин по всей группе. Чаще всего это общая денежная сумма или общее количество. Такие величины удобно раз мещать в полосах группового окончания.

Глава 26. Отчеты для приложений баз данных Использование вычисляемых значений На странице Reports Палитры инструментов визуальной среды Rave Reports доступны несколько компонентов, которые позволяют применять агрегат ные функции к значениям полей набора данных, переданного через соеди нение в отчет.

К агрегатным относятся следующие функции:

• AVG — вычисление среднего;

• COUNT — подсчет числа элементов множества;

• МАХ — нахождение максимального значения;

О MIN — нахождение минимального значения;

• SUM — суммирование.

Простые элементы оформления позволяют получать вычисляемые значения на базе полей одного источника данных, более сложные "умеют" объединять несколько источников данных.

Рассмотрим все эти элементы оформления.

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

Элемент caicText позволяет отобразить результат вычисления на полосе от чета. Так же, как и обычный элемент DataText, его необходимо связать с ПрОСМОТрОМ И ПОЛеМ. ДЛЯ ЭТОГО ИСПОЛЬЗУЮТСЯ СВОЙСТВа DataView И D a t a F i e l d соответственно.

Кроме этого, элемент CaicText должен быть связан со специализированным элементом CaicControlier (см. ниже), который будет управлять процессом вычисления. Связывание осуществляется при помощи свойства controller.

В свойстве caicType задается одна из пяти перечисленных выше агрегатных функций.

Дополнительно, для функции COUNT МОЖНО настроить еще три свойства.

При необходимости включить или отключить подсчет нулевых значений или пробелов используются булевские свойства countNuiis и countBianks соответственно. А свойство countvaiue позволяет задать значение поля, которое будет учитываться при расчете функции, все остальные значения будут игнорироваться.

Вычисленное значение при сохранении может быть отформатировано в со ответствии С шаблоном, Заданным С О С В М DisplayFormat.

В ЙТО Часть VI. Генератор отчетов Rave Reports 5. Для всех агрегатных функций можно задать момент начала вычислений. Для этого в свойстве i n i t i a l i z e r необходимо указать элемент оформления отче та, и при его печати начнется вычисление. Это может быть любой элемент, расположенный с элементом CalcText на одной полосе. Но желательно использовать для этого специализированный элемент CalcControiler (см.

ниже).

( Примечание Пример использования элемента оформления CalcText имеется в отчетах, рассмотренных нами выше.

Элемент CaicTotal является невизуальным аналогом элемента calcText. По этому он обладает всеми свойствами, о которых рассказывается выше для элемента CalcText. Вычисленное при его печати значение разработчик может использовать по своему усмотрению после того, как оно сохране но. Приемником вычисленного значения может быть один из параметров объекта отчета.

Свойство DestParam позволяет выбрать один из предопределенных или соз данных разработчиком параметров отчета (свойство Parameters объекта от чета).

Свойство DestPivar задает переменную отчета, в которую будет передано вычисленное значение (свойство pivars объекта отчета).

iD.it rt Text Editor г DIM Fields '— Data Field "• ',' " •- • «^ Data View '• I OrderNo Default: (OrdersVlew) Г Selected CountryView •• ' Insert Seld -Report Variables-— | CurrentPage "3 insert geport Var j r Prpject Parameters •• ~ ! [subTotal Insert parameter I -Pest Initialize Variables "TJ Insert PI Var |,- Data Text — OrderNo A Qancel Рис. 26.8. Редактор свойства D a t a F i e l d Глава 26. Отчеты для приложений баз данных Затем параметр или переменная может быть использована для дальнейших вычислений или напечатана при помощи элемента DataText. В редакторе свойства DataFieid этого элемента (рис. 26.8) параметры и переменные от чета можно выбрать из списков Project Parameters и Post Initialize Variables.

Вычисляемые значения по нескольким источникам Вычислительный элемент caicop позволяет проводить вычислительные опе рации над значениями из двух различных источников.

Разработчик должен задать исходные значения и источники данных, ис пользуя два набора свойств (табл. 26.1). Назначение части этих свойств вам уже знакомо (см. разд. "Вычисляемые значения по одному источнику"выше).

Таблица 26.1. Свойства элемента са1сСрдля определения двух источников данных 5SS, SrclCalcVar Src2CalcVar Определяет вычисляемый элемент, результат которого берется в качестве исходного SrclDataField Src2DataField Задает поле просмотра, над значениями кото рого проводятся вычисления. Игнорируется при заданном свойстве SrcXCalcVar SrclDataView Src2DataView Задает поле просмотра, над значениями кото рого проводятся вычисления. Игнорируется при заданном свойстве SrcXCalcVar SrclFunction Src2Function Позволяет выбрать математическую функцию (их список гораздо шире, чем просто агрегат ные функции), которая будет выполнена над исходным значением перед вычислением ос новной операции элемента SrclValue Src2Value Задает фиксированное значение, над которым производится вычислительная операция Собственно функция, которая должна обработать значения из двух задан ных источников, задается свойством Operator.

После выполнения основной операции результат может быть обработан еще один раз, если вы зададите математическую функцию в свойстве ResultFunction.

Таким образом, при помощи элемента CaicOp разработчик может реализо вывать довольно сложные вычисления.

Часть VI. Генератор отчетов Rave Reports 5. Если задать в качестве двух источников данных:

• два фиксированных значения (свойства Srcivaiue и Src2Vaiue);

• два поля из одного или двух просмотров данных (свойства SrciDataFieid И Src2DataField);

• комбинацию первых двух вариантов то их значения будут последовательно обработаны вычислительной опера цией, которую вы зададите свойствами:

П SrclFunction;

П SrclFunction;

П Operator;

• ResultFunction.

Кроме этого, элемент CalcOp позволяет создавать вычислительные цепочки, если использовать в качестве одного или двух источников другие вычисли тельные элементы (рис. 26.9).

Orders.Freight Orders.AmountPaid CalcOpi CalcOpi Умножить Умножить (coMul) (coMul) Умножить CalcOp (coMul) CalcTotal Суммировать (ctSum) I Сумма платежей по заказам (+НДС) | I и стоимости доставки (+НДС) I Рис. 26.9. Пример вычислительной цепочки на основе элементов CalcOp Глава 26. Отчеты для приложений баз данных Это могут быть как простые элементы CaicText и caicTotai, так и другие элементы caicOp, которые, в свою очередь, могут содержать сколь угодно сложные вычислительные цепи.

Пример использования элемента CaicOp имеется в демонстрационном при ложении DemoReports на дискете, прилагаемой к этой книге.

Управляющие вычислительные элементы Выше мы упоминали о свойстве controller элементов CaicText и caicTotai, которое позволяет определить момент начала вычислений. Для этого ис пользуется специальный невизуальный элемент caiccontroiier. Обычно он располагается на той же полосе, что и вычислительные элементы и инициа лизирует процесс вычисления в момент своей печати. Хотя на самом деле невизуальный элемент Caiccontroiier не печатается, тем не менее событие onBeforePrint он получает исправно вместе со всеми элементами, располо женными на данной полосе. А значит и с инициализацией вычислений он справится вполне.

Обладая несколькими специфическими свойствами, он позволяет опреде лить момент начала вычислений более точно. И так же, как элемент FontMaster используется для централизованного управления шрифтами, этот элемент может быть центром управления вычислениями.

Свойство initcaicvar должно ссылаться на другой вычислительный эле мент. И вычисленное им значение будет использовано в качестве начального.

Свойство initDataFieid задает поле данных, значение которого использует ся в качестве начального. Работает, если свойство initcaicvar не задано.

Свойство initvalue задает начальное значение, если предыдущие два свой ства не заданы.

Для того чтобы эти свойства работали и задавали начальное значение, ссылка на элемент caiccontroiier должна присутствовать в свойстве Initializer элементов оформления CaicText И И CaicTotai.

Л Элемент DataCycie используется для дополнительной фильтрации, сорти ровки и просмотра данных, поля которого используются для вычислений.

С его помощью можно получить нужное для вычислений подмножество записей набора данных, не изменяя просмотра данных.

Свойство Dataview задает просмотр данных, с которым будет работать эле мент DataCycie.

П р и ПОМОЩИ СВОЙСТВ MasterDataView, MasterKey И D e t a i l K e y МОЖНО ПОЛУЧИТЬ подмножество записей для отношения "один-ко-многим".

Свойство sortKey позволяет отсортировать записи по заданному полю.

662 Часть VI. Генератор отчетов Rave Reports 5, Резюме Генератор отчетов Rave Reports позволяет создавать разнообразные отчеты для приложений баз данных.

Совокупность компонентов Delphi и средств визуальной среды Rave Reports обеспечивают создание соединений с источниками данных любых видов, в том числе и не основанных на СУБД. Соединения могут использовать технологии доступа к данным, реализованные соответствующими компо нентами Delphi (см. часть IV) или драйверами Rave Reports.

Основой отчетов являются элементы Region, Band и DataBand, которые обес печивают размножение строк отчета в соответствии с записями источников данных. Набор специализированных элементов оформления позволяет ото бражать в отчетах все основные типы данных.

Технологии программирования Глава 27. Стандартные технологии программирования Глава 28. Динамические библиотеки Глава 29. Потоки и процессы Многомерное представление данных Глава 30.

Глава 31. Использование возможностей Shell API ГЛАВА 2 Стандартные технологии программирования В этой главе обсуждаются вопросы использования стандартных для прило жений Windows технологий программирования. С их помощью ваше при ложение обретет законченный вид и будет соответствовать необходимым канонам и правилам пользовательского интерфейса.

В настоящей главе рассматриваются следующие вопросы:

• интерфейс переноса Drag-and-Drop;

• механизм Drag-and-Dock;

• усовершенствованное масштабирование;

• как правильно передавать фокус между элементами управления;

• управление мышью;

• ярлыки.

Интерфейс переноса Drag-and-Drop Интерфейс переноса и приема компонентов появился достаточно давно. Он обеспечивает взаимодействие двух элементов управления во время выпол нения приложения. При этом могут выполняться любые необходимые опе рации. Несмотря на простоту реализации и давность разработки, многие программисты (особенно новички) считают этот механизм малопонятным и экзотическим. Тем не менее использование Drag-and-Drop может оказаться очень полезным и простым в реализации. Сейчас мы в этом убедимся.

Для того чтобы механизм заработал, требуется настроить соответствующим образом два элемента управления. Один должен быть источником (Source), второй — приемником (Target). При этом источник никуда не перемещает ся, а только регистрируется в качестве такового в механизме.

Глава 27. Стандартные технологии программирования ( ^ Примечание Один элемент управления может быть одновременно источником и прием ником.

Пользователь помещает указатель мыши на нужный элемент управления, нажимает левую кнопку мыши и, не отпуская ее, начинает перемещать кур сор ко второму элементу. При достижении этого элемента пользователь от пускает кнопку мыши. В этот момент выполняются предусмотренные раз работчиком действия. При этом первый элемент управления является ис точником, а второй — приемником.

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

перенос файлов и изображений;

простое перемещение элемента управления с места на место и т. д. Пример реализации Drag-and-Drop в Windows — возможность переноса файлов и папок между дисками и папками.

Как видите, можно придумать множество областей применения механизма Drag-and-Drop. Его универсальность объясняется тем, что это всего лишь средство связывания двух компонентов при помощи указателя мыши.

А конкретное наполнение зависит только от фантазии программиста и по ставленных задач.

Весь механизм Drag-and-Drop реализован в базовом классе TControi, кото рый является предком всех элементов управления. Рассмотрим суть меха низма.

Любой элемент управления из Палитры компонентов Delphi является ис точником в механизме Drag-and-Drop. Его поведение на начальном этапе переноса зависит от значения свойства type TDragMode = (dmManual, dmAutomatic);

property DragMode: TDragMode;

Значение dmAutomatic обеспечивает автоматическую реакцию компонента на нажатие левой кнопки мыши и начало перетаскивания — при этом меха низм включается самостоятельно.

Значение dmManual (установлено по умолчанию) требует от разработчика обеспечить включение механизма вручную. Этот режим используется в том случае, если компонент должен реагировать на нажатие левой кнопки мы ши как-то иначе. Для инициализации переноса используется метод procedure BeginDrag(Immediate: Boolean;

Threshold: Integer = -1);

666 Часть VII. Технологии программирования Параметр immediate = True обеспечивает немедленный старт механизма.

При значении False механизм включается только при перемещении курсора на расстояние, определенное параметром Threshold.

О включении механизма сигнализирует указатель мыши — он изменяется на курсор, определенный в свойстве property DragCursor: TCursor;

Еще раз напомним, что источник при перемещении курсора не изменяет собственного положения, и только в случае успешного завершения переноса сможет взаимодействовать с приемником.

Приемником может стать любой компонент, в котором создан метод обработчик procedure DragOver(Source: TObject;

X, Y: Integer;

State: TDragState;

var Accept: Boolean);

Он вызывается при перемещении курсора в режиме Drag-and-Drop над этим компонентом. В методе-обработчике можно предусмотреть селекцию источ ников переноса по нужным атрибутам.

Если параметр Accept получает значение True, то данный компонент стано вится приемником. Источник переноса определяется параметром source.

Через этот параметр разработчик получает доступ к свойствам и методам источника. Текущее положение курсора задают параметры х и у. Параметр state возвращает информацию о характере движения мыши:

type TDragState = (dsDragEnter, dsDragLeave, dsDragMove);

dsDragEnter — указатель появился над компонентом;

dsDragLeave — указатель покинул компонент;

dsDragMove — указатель перемещается по компоненту.

Приемник должен предусматривать выполнение некоторых действий в слу чае, если источник завершит перенос именно на нем. Для этого использует ся метод-обработчик type TDragDropEvent = procedure(Sender, Source: TObject;

X, Y: Integer) of object;

property OnDragDrop: TDragDropEvent;

который вызывается при отпускании левой кнопки мыши на компоненте приемнике. Доступ к источнику и приемнику обеспечивают параметры Source и sender соответственно. Координаты мыши возвращают параметры х и Y.

При завершении переноса элемент управления — источник — получает со ответствующее сообщение, которое обрабатывается методом type TEndDragEvent = procedure(Sender, Target: TObject;

X, Y: Integer) of object;

property OnEndDrag: TEndDragEvent;

Глава 27. Стандартные технологии программирования Источник и приемник определяются параметрами Sender и Target соответ ственно. Координаты мыши определяются параметрами х и Y.

Для программной остановки переноса можно использовать метод EndDrag источника (при обычном завершении операции пользователем он не ис пользуется):

procedure EndDrag(Drop: Boolean);

Параметр Drop = True завершает перенос. Значение False прерывает пере нос.

Теперь настало время закрепить полученные знания на практике. Рассмот рим небольшой пример. В проекте DemoDragDrop на основе механизма Drag-and-Drop реализована передача текста между текстовыми редакторами и перемещение панелей по форме (рис. 27.1).

['• D m Da & r p e o r g Do Источник по умолчанию I екст источника Приемник по умолчанию Текст приемника Наэтой панели Diag and Drop не работает I• Эту панели можно перемещать по форме I•• Рис. 27.1. Главная форма проекта DemoDragDrop | Листинг 27.1. Секция implementation модуля главной формы проекта j DemoDragDrop implementation ($R *.DFM} procedure TMainForm.EditlMouseDown(Sender: TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

668 Часть VII. Технологии программирования begin if Button = mbLeft then TEdit(Sender).BeginDrag(True);

end;

procedure TMainForm.Edit2Drag0ver(Sender, Source: TObject;

X, Y: Integer;

State: TDragState;

var Accept: Boolean);

begin if Source is TEdit then Accept := True else Accept := False;

end;

procedure TMainForm.Edit2DragDrop(Sender, Source: TObject;

X, Y:

Integer);

begin TEdit(Sender).Text := TEdit(Source).Text;

TEdit(Sender).SetFocus;

TEdit(Sender).SelectAll;

end;

procedure TMainForm.EditlEndDrag(Sender, Target: TObject;

X, Y: Integer);

begin if Assigned(Target) then TEdit(Sender).Text := 'Текст перенесен в ' + TEdit(Target).Name;

end;

procedure TMainForm.FormDragOver(Sender, Source: TObject;

X, Y: Integer;

State: TDragState;

var Accept: Boolean);

begin if Source.ClassName = 'TPanel' then Accept := True else Accept := False;

end;

procedure TMainForm.FormDragDrop(Sender, Source: TObject;

X, Y: Integer);

begin TPanel(Source).Left := X;

TPanel(Source).Top := Y;

end;

end.

Для однострочного редактора Editi определены методы-обработчики источ ника. В методе EditiMouseDown обрабатывается нажатие левой кнопки мыши Глава 27. Стандартные технологии программирования и включается механизм переноса. Так как свойство DragMode для Editi име ет значение dmManual, то компонент без проблем обеспечивает получение фокуса и редактирование текста.

Метод EditiEndDrag обеспечивает отображение информации о выполнении переноса в источнике.

Для компонента Edit2 определены методы-обработчики приемника. Метод Edit2Drag0ver проверяет класс источника и разрешает или запрещает прием.

Метод Edit2DragDrop осуществляет перенос текста из источника в при емник.

( Примечание ~^ Обратите внимание, что оба компонента TEdit одновременно являются источ никами и приемниками. Для этого каждый из них использует методы-обра ботчики другого. А исходный код методов настроен на обработку владельца как экземпляра класса TEdit.

Форма, как приемник Drag-and-Drop, обеспечивает перемещение панели Рапе12, которая выступает в роли источника. Метод FormDragOver запрещает прием любых компонентов, кроме панелей. Метод FormDragDrop осуществ ляет перемещение компонента.

Панель не имеет своих методов-обработчиков, т. к. работает в режиме dmAutomatic и не нуждается в дополнительной обработке завершения пере носа.

Интерфейс присоединения Drag-and-Dock Эта возможность появилась в Delphi 4. Она "подсмотрена" опять-таки у раз работчиков из Microsoft, внедривших плавающие панели инструментов в MS Office, Internet Explorer и другие продукты (рис. 27.2).

Речь идет о том, что ряд элементов управления (а конкретно — потомки класса TWinControi) могут служить носителями (доками) для других элемен тов управления с возможностью их динамического перемещения из одного дока в другой при помощи мыши. Перетаскивать можно практически все — от статического текста до форм включительно. Пример использования тех ники Drag-and-Dock дает сама среда разработки Delphi — с ее помощью можно объединять на экране различные инструменты, такие как Инспектор объектов и Менеджер проекта.

Как и в случае с технологией перетаскивания Drag-and-Drop, возможны два варианта реализации техники Drag-and-Dock: автоматический и ручной.

В первом случае дело сводится к установке нужных значений для несколь ких свойств, а остальную часть работы берет на себя код VCL;

во втором, как следует из названия, вся работа возлагается на программиста.

Часть VII. Технологии программирования Итак, что же нужно сделать для внедрения Drag-and-Dock? В Инспекторе объектов необходимо изменить значение свойства DragKind на dkDock, a свойства DragMode — на dmAutomatic. Теперь этот элемент управления можно перетаскивать с одного носителя-дока на другой.

Носителем других компонентов (доком) может служить потомок TWinControl.

У него есть свойство Docksite, установка которого в True разрешает перенос на него других компонентов. Если при этом еще и установить свойство Autosize в True, док будет автоматически масштабироваться в зависимости от того, что на нем находится. В принципе, этими тремя операциями ис черпывается минимальный обязательный набор.

\i D m D c t g e o o kn Cs A pi ai n oe p lc to ] l Oe Be T o Be I T r e Be n ep w ep he ep ^Ж P r e | Rd up l e W t I Be | G e I L e m i Ta | Ud Co e no or l he i u l rn e Рис. 27.2. Плавающие панели инструментов Естественно, для программиста предусмотрены возможности контроля за этим процессом. Каждый переносимый элемент управления имеет два со бытия, возникающие в моменты начала и конца переноса:

type TStartDockEvent = procedure(Sender: TObject;

var DragObject:

TDragDockObject) of object;

TEndDragEvent = procedure(Sender, Target: TObject;

X, Y: Integer) of object;

В Первом ИЗ методов Sender — ЭТО переносимый объект, a DragObject — специальный объект, создаваемый на время процесса переноса и содер жащий его свойства. Во втором Sender — это также переносимый объект, a Target — объект-док.

Глава 27. Стандартные технологии программирования Док тоже извещается о событиях во время переноса:

type TGetSitelnfoEvent = procedure(Sender: TObject;

DockClient: TControl;

var InfluenceRect: TRect;

MousePos: TPoint;

var CanDock: Boolean) of object;

TDockOverEvent = procedure(Sender: TObject;

Source: TDragDockObject;

X, Y: Integer;

State: TDragState;

var Accept: Boolean) of object;

TDockDropEvent = procedure(Sender: TObject;

Source: TDragDockObject;

X, Y: Integer) of object;

TUnDockEvent = procedure(Sender: TObject;

Client: TControl;

NewTarget:

TWinControl;

var Allow: Boolean) of object;

Как только пользователь нажал кнопку мыши над переносимым компонен том и начал сдвигать его с места, всем потенциальным докам (компонен там, свойство которых Docksite установлено в True) рассылается событие onGetsiteinfo. С ним передаются параметры: кто хочет "приземлиться" (па раметр DockClient) и где (MousePos). В ответ док должен сообщить решение, принимает он компонент (параметр CanDock) и предоставляемый прямо угольник (infiuenceRect) или нет. При помощи этого события можно при нимать только определенные элементы управления, как показано в примере:

procedure TForml.PanellGetSitelnfo(Sender: TObject;

DockClient: TControl;

var InfiuenceRect: TRect;

MousePos: TPoint;

var CanDock: Boolean);

begin if DockClient is TBitBtn then CanDock := False;

end;

Два последующих события в точности соответствуют своим аналогам из ме ханизма переноса Drag-and-Drop). Событие onDockOver происходит при пе ремещении перетаскиваемого компонента над доком, OnDockDrop — в мо мент его отпускания. Наконец, onUnDock сигнализирует об уходе компонента с дока и происходит в момент его "приземления" в другом месте.

Между доком и содержащимися на нем элементами управления есть дву сторонняя связь. Все "припаркованные" элементы управления содержатся в векторном свойстве Dockciients, а их количество можно узнать из свойства DockClientCount:

s := for i := 0 to Panell.DockClientCount-1 do AppendStr(s,Panell.DockClients[i].Name+#$D#$A);

ShowMessage(s);

С другой стороны, если элемент управления находится на доке, то ссылка на док располагается в свойстве HostDockSite. С ее помощью можно устано вить, где находится элемент, и даже поменять свойства дока:

672 Часть VII. Технологии программирования procedure TMyForm.ButtonlEndDock(Sender, Target: TObject;

X, Y: Integer);

begin (Sender as TControl).HostDockSite.SetTextBuf(pChar((Sender as TControl).Name));

end;

Компоненты можно не только переносить с одного дока на другой, но и отпускать в любом месте. Хотя сам по себе компонент TControl и его по томки не являются окнами Windows, но специально для этого случая созда ется окно-носитель. Свойство FioatingDockSiteCiass как раз и определяет класс создаваемого окна. По умолчанию для большинства компонентов значение этого свойства равно TCustomDockForm. Это — форма, которая об ладает свойствами дока и создается в момент отпускания элемента управле ния вне других доков. Внешне она ничем не отличается от обычной стан дартной формы. Если вы хотите, чтобы ваша плавающая панель инстру ментов выглядела по-особенному, нужно породить потомка от класса TCustomDockForm И СВЯЗЭТЬ СВОЙСТВО FioatingDockSiteCiass С ЭТИМ порожден ным классом:

TMyCustomFloatingForm = class(TCustomDockForm) public constructor Create(AOwner: TComponent);

override;

end;

constructor TMyCustomFloatingForm.Create(AOwner: TComponent);

begin inherited Create(AOwner);

BorderStyle := bsNone;

end;

procedure TForml.FormCreate(Sender: TObject);

begin ToolBarl.FioatingDockSiteCiass := TMyCustomFloatingForm;

end;

В этом примере решена типовая задача — сделать так, чтобы несущее окно плавающей панели инструментов не содержало заголовка. Внешний вид та ких панелей приведен на рис. 27.3.

Переносить компоненты можно не только с помощью мыши, но и про граммно. Для этого есть пара методов ManuaiDock и ManuaiFioat. В приводи мом ниже примере нажатие КНОПКИ С именем BitBtnl переносит форму custForm на док MainForm.Paneii и размещает ее по всей доступной площади (параметр выравнивания aiciient). Нажатие КНОПКИ BitBtn2 снимает эту Глава 27. Стандартные технологии программирования форму с дока и выравнивает ее по центру экрана. В свойствах UndockHeight и undockwidth хранятся высота и ширина элемента управления на момент, предшествующий помещению на док:

procedure TMainForm.BitBtnlClick(Sender: TObject);

begin CustForm.ManualDock(MainForm.Panell,nil, alClient);

end;

procedure TMainForm.BitBtn2Click(Sender: TObject);

begin with CustForm do begin ManualFloat(Rect((Screen.Width-UndockWidth) div 2, (Screen.Height-UndockHeight) div 2, (Screen.Width+UndockWidth) div 2, (Screen.Height+UndockHeight) div 2) );

end;

7 D m D cn e o okg i C s Appljcatbuj oe l : : ;

;

' '•• V White;

'" | " S ? ? ' j I 'Green 1 ' K Lime& | " Purple 1 i ^ Red | •;

Teal • | Undo Coloi[ ' Рис. 27.3. Плавающие панели инструментов без заголовка окна Полное рассмотрение внутреннего устройства механизмов Drag-and-Dock потребовало бы расширения объема этой главы. Тем, кто хочет использо вать их на все 100%, рекомендуем обратиться к свойствам useDockManager 22 Зак 674 Часть VII. Технологии программирования и DockManager. Последнее представляет собой СОМ-интерфейс, позволяю щий расширить возможности дока, вплоть до записи его состояния в поток (класс TStream).

Усовершенствованное масштабирование В класс TControi добавлены свойства, позволяющие упростить масштабиро вание форм и находящихся на них компонентов.

СВОЙСТВО Anchors!

TAnchorKind = (akLeft, akTop, akRight, akBottom);

TAnchors = set of TAnchorKind;

property Anchors: TAnchors;

отвечает за привязку компонентов к определенным краям формы при мас штабировании. По умолчанию любой компонент привязан к верхней и ле вой сторонам ([akLeft, akTop]), т. е. не двигается при стандартном масшта бировании. Но, изменив значение этого свойства, можно сделать так, чтобы компонент находился, к примеру, все время в нижнем правом углу.

С другой стороны, если прикрепить все четыре стороны, то получится ин тересный и нужный во многих случаях эффект. Такой компонент увеличи вается и уменьшается вместе с формой;

но в то же время сохраняется расстояние до всех четырех ее краев.

Свойство constraints представляет собой набор ограничений на изменение размеров компонента. Оно содержит четыре свойства: MaxHeight, Maxwidth, MinHeight и MinWidth. Как легко догадаться из названий, размеры компонен та могут меняться только в пределах значений этих четырех свойств.

Наконец, большинство элементов управления получили свойство Autosize, позволяющее им автоматически масштабироваться при изменении содер жимого (скажем, надписи на кнопке).

Управление фокусом В процессе работы приложения тот или иной элемент управления получает фокус ввода в зависимости от действий пользователя. Очень часто передача фокуса между элементами управления должна быть упорядочена. Например, при вводе данных в приложениях баз данных пользователь должен иметь максимум удобств для обеспечения хорошей производительности труда. Для этого он должен работать только с клавиатурой, не отвлекаясь на лишние операции по передаче фокуса в нужный компонент при помощи мыши.

Для решения подобного рода проблем все оконные элементы управления имеют два свойства. Свойство TabOrder определяет порядок передачи фоку Глава 27. Стандартные технологии программирования са между элементами управления одного владельца (формы, панели, груп пы) при нажатии клавиши <ТаЬ>. Значение 0 имеет компонент, который будет получать фокус при открытии формы.

Для того чтобы свойство TabOrder работало, свойство Tabstop должно иметь значение True.

Кроме этого, все кнопки (произошедшие от TButtonControi) имеют свойство Default, которое при значении True заставляет кнопку реагировать на нажа тие клавиши как на щелчок на кнопке, даже если она не имеет фокус. Только одна кнопка на форме может иметь это свойство установ ленным.

Для передачи фокуса любому оконному элементу управления программны ми средствами можно использовать метод procedure SetFocus;

virtual;

унаследованный от класса TWinControi.

При необходимости работы в форме применяется метод function SetFocusedControl{Control: TWinControi): Boolean;

virtual;

класса TForm, в параметре указывается указатель на компонент, принадле жащий форме.

Управление мышью Каждый элемент управления обладает набором свойств и методов, обеспе чивающих управление мышью. Понятно, что это важный и нужный меха низм. Рассмотрим кратко его устройство.

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

На нажатие кнопки мыши реагирует метод type TMouseEvent = procedure (Sender: TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer) of object;

property OnMouseDown: TMouseEvent;

В параметре Button передается признак нажатой кнопки:

type TMouseButton = (mbLeft, mbRight, mbMiddle);

Параметр shift определяет нажатие дополнительной клавиши на клавиа туре:

type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);

Параметры х и Y возвращают координаты курсора.

676 Часть VII. Технологии программирования На отпускание кнопки мыши реагирует метод:

type TMouseEvent = procedure (Sender: TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer) of object;

property OnMouseUp: TMouseEvent;

Его параметры описаны выше.

При перемещении мыши можно вызывать метод-обработчик TMouseMoveEvent = procedure(Sender: TObject;

Shift: TShiftState;

X, Y: Integer) of object;

property OnMouseMove: TMouseMoveEvent;

Если у разработчика нет необходимости так подробно отслеживать состоя ние мыши, можно воспользоваться двумя другими методами:

property OnClick: TNotifyEvent;

property OnDblClick: TNotifyEvent;

Первый реагирует на щелчок кнопкой, второй — на двойной щелчок.

Каждый элемент управления может изменять внешний вид указателя мыши, перемещающейся над ним. Для этого используется свойство property Cursor: TCursor;

Для управления дополнительными возможностями мыши для работы в Internet (ScrollMouse) предназначены три метода обработчика, реагирующие на прокрутку:

П property OnMouseWheel: TMouseWheelEvent;

вызывается при прокрутке;

П property OnMouseWheelUp: TMouseWheelUpDownEvent;

вызывается при прокрутке вперед;

П property OnMouseWheelDown: TMouseWheelUpDownEvent;

вызывается при прокрутке назад.

В VCL имеется класс TMouse, содержащий свойства мыши, установленной на компьютере. Обращаться к экземпляру класса, который создается авто матически, можно при помощи глобальной переменной Mouse. Свойства класса представлены в табл. 27.1.

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

Глава 27. Стандартные технологии программирования Таблица 27.1. Свойства и методы класса TMouse Объявление Тип I Описание Pu | Дескриптор элемента управле property Capture: HWND;

| ния, над которым находится I мышь Pu | Содержит координаты указателя property CursorPos: TPoint;

мыши Ro При значении True реакция property Draglmmediate: Boolean;

на нажатие выполняется немед ленно Задержка реакции на нажатие property DragThreshold: Integer;

Ro Определяет наличие мыши property MousePresent: Boolean;

Ro Задает сообщение, посылаемое Ro type UINT = LongWord;

при прокрутке в ScrollMouse property RegWheelMessage: UINT;

Определяет наличие property WheelPresent: Boolean;

| Ro ScrollMouse Задает число прокручиваемых property WheelScrollLines: Integer;

I Ro линий j Листинг 27.2. Модуль главной формы проекта DemoMouse unit Main;

interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls;

type TMainForra = class(TForm) ColorDlg: TColorDialog;

StatusBar: TStatusBar;

Timer: TTimer;

procedure FormMouseDown(Sender: TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

procedure ForniMouseUp(Sender: TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

678 Часть VII. Технологии программирования procedure FormMouseMove(Sender: TObject;

Shift: TShiftState;

X, Y: Integer);

procedure TimerTimer(Sender: TObject);

private MouseRect: TRect;

IsDown: Boolean;

RectColor: TColor;

public { Public declarations } end;

var MainForm: TMainForm;

implementation {$R *.DFM} procedure TMainForm.FormMouseDown(Sender: TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

begin if Button = mbLeft then with MouseRect do begin IsDown := True;

Left := X;

Top : Y;

= Right := X;

Bottom := Y;

Canvas.Pen.Color := RectColor;

end;

if (Button = mbRight) and ColorDlg.Execute then RectColor := ColorDlg.Color;

end;

procedure TMainForm.FormMouseUp(Sender: TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

begin IsDown := False;

Canvas.Pen.Color := Color;

with MouseRect do Canvas.Polyline([Point(Left, Top), Point(Right, Top), Point(Right, Bottom), Point(Left, Bottom), Point(Left, Top)]);

with StatusBar do begin Глава 27. Стандартные технологии программирования Panels[4].Text := Panels[5].Text := " ;

end;

end;

procedure TMainForm.FormMouseMove(Sender: TObject;

Shift: TShiftState;

X, Y: Integer);

begin with StatusBar do begin Panels[2].Text := 'X: ' + IntToStr(X);

Panels[3].Text := 'Y: ' + IntToStr(Y);

end;

if Not IsDown then Exit;

Canvas.Pen.Color := Color;

with mouserect do begin Canvas.Polyline([Point(Left, Top), Point(Right, Top), Point(Right, Bottom), Point(Left, Bottom), Point(Left, Top)]);

Right := X;

Bottom := Y;

Canvas.Pen.Color := RectColor;

Canvas.Polyline([Point(Left, Top), Point(Right, Top), Point(Right, Bottom), Point(Left, Bottom), Point(Left, Top)]);

end;

with StatusBar do begin Panels[4].Text := 'Ширина: ' + IntToStr(Abs(MouseRect.Right - MouseRect.Left));

Panels[5].Text := 'Высота: ' + IntToStr(Abs(MouseRect.Bottom - MouseRect.Top));

end;

end;

procedure TMainForm.TimerTimer(Sender: TObject);

begin with StatusBar do begin Panels[0].Text := 'Дата: ' + DateToStr(Now);

Panels[1].Text := 'Время: ' + TimeToStr(Now);

end;

end;

end.

680 Часть VII. Технологии программирования При нажатии левой кнопки мыши в методе-обработчике FormMouseDown включается режим рисования прямоугольника (isDown := True) и задаются его начальные координаты.

При перемещении мыши по форме проекта вызывается метод-обработчик FontiMouseMove, в котором координаты курсора и размеры прямоугольника передаются на панель состояния. Если левая кнопка мыши нажата (isDown = True), то осуществляется перерисовка прямоугольника.

При отпускании кнопки мыши в методе FormMouseUp рисование прямо угольника прекращается (isDown := False).

Если была нажата правая кнопка мыши, то метод-обработчик FormMouseDown обеспечивает отображение диалога выбора цвета, который позволяет сме нить цвет линий прямоугольника.

Метод-обработчик TimerTimer обеспечивает отображение на панели состоя ния текущей даты и времени.

( Примечание ) Для рисования прямоугольника использовался метод PolyLine, который рабо тает при перемещении курсора влево и вверх относительно начальной точки.

Для стирания старого прямоугольника желательно использовать режимы XOR и NOTXOR, которые обеспечивают восстановление рисунка под линией.

Подробно об этом см. гл. 10.

Ярлыки Пользовательский интерфейс трудно представить без ярлычков с оператив ной подсказкой (Hints). Если задержать курсор, например, над кнопкой или компонентом палитры самой среды Delphi, появляется маленький прямо угольник яркого цвета (окно подсказки), в котором одной строкой сказано о названии этого элемента или связанном с ним действии. Delphi поддер живает механизмы создания и отображения таких ярлычков в создаваемых программах.

Свойство, определяющее активность системы подсказки у элемента управ ления:

property ShowHint: Boolean;

Если свойство ShowHint установлено в True, и во время выполнения курсор задержался над компонентом на некоторое время, в окне подсказки высве чивается текстовая строка с подсказкой, которая задана свойством:

property Hint: string;

Подсказка компонента может быть пустой строкой — в этом случае система ищет в цепочке первый родительский компонент с непустой подсказкой.

Глава 27. Стандартные технологии программирования Если в строке Hint встречается специальный символ-разделитель "Г, то часть строки до него ("короткая") передается в окно подсказки, а после ("длинная") — присваивается свойству Hint объекта Application. Ее можно использовать, например, в строке состояния внизу главной формы прило жения (см. пример ниже).

Система оперативных подсказок имеет свойства и методы, общие для всех форм в приложении. Не удивительно, что они сосредоточены в Appli cation — глобальном объекте, соответствующем работающему приложению.

Все описанные ниже в этом разделе свойства относятся не к компоненту, показывающему подсказку, а именно к Application.

Фоновый цвет окна подсказки можно изменить посредством свойства property HintColor: TColor;

У объекта Application значение свойства showHint нужно устанавливать во время выполнения, например, в обработчике onCreate главной формы при ложения. Оно является главенствующим для всей системы подсказок: если оно установлено в значение False, ярлычки не возникают.

Есть еще один способ получения подсказки. При смене текущего элемента управления (т. е. при смене текста в свойстве Hint) в объекте Application возникает событие property OnHint: TNotifyEvent;

Пример:

procedure TForml.AppHint(Sender: TObject);

begin Panell.Caption:= Application.Hint;

end;

procedure TForml.FormCreate(Sender: TObject);

begin Application.OnHint := AppHint;

end;

В этом примере текст подсказки будет отображаться в строке состояния Panell независимо от значения ShowHint у любого объекта — лишь бы этот текст был в наличии. Для этого разделяйте подсказку у элементов управле ния вашего приложения на две части при помощи символа " Г — краткая информация появится рядом с элементом, а более полная — в строке со стояния.

function GetLongHint(const Hint: string): string;

function GetShortHint(const Hint: string): string;

У других компонентов свойство showHint интерпретируется системой так:

когда курсор мыши останавливается над элементом управления или пунк 682 Часть VII. Технологии программирования том меню, и приложение не занято обработкой сообщения, происходит проверка, и если свойство showHint у элемента или у одного из его роди тельских элементов в иерархии равно True, то начинается ожидание.

Если в данный момент другие ярлычки не показываются, то интервал вре мени задается свойством HintPause:

property HintPause: Integer;

Интервал времени по умолчанию равен 500 мс. Если в данный момент уже виден ярлычок другого компонента, то интервал времени ожидания задается свойством:

property HintShortPause: Integer;

По истечении этого времени, если мышь осталась над тем же элементом управления, наступает момент инициализации окна подсказки. При этом программист может получить управление, предусмотрев обработчик собы тия объекта Application:

property OnShowHint: TShowHintEvent;

TShowHintEvent = procedure (var HintStr: string;

var CanShow: Boolean;

var Hintlnfo: THintlnfo) of object;

Рассмотрим параметры обработчика события OnShowHint:

П Hintstr — отображаемый текст;

• CanShow — необходимость (возможность) появления подсказки. Если в переменной CanShow обработчик вернет значение False, то окно подсказ ки высвечиваться не будет;

• Hintlnfo — структура, несущая всю информацию о том, какой элемент управления, где и как собирается показать подсказку. Ее описание:

THintlnfo = record HintControl: TControl;

HintPos: TPoint;

HintMaxWidth: Integer;

HintColor: TColor;

CursorRect: TRect;

CursorPos: TPoint;

end;

Для показа окна подсказки необходимо еще, чтобы у элемента управления или у его предков в цепочке строка Hint была непустой. Впрочем, это мож но ИСПраВИТЬ В обработчике OnShowHint:

procedure TForml.AppShowHint(var HintStr: string;

var CanShow:

Boolean;

var Hintlnfo: THintlnfo);

begin if HintStr='' then Глава 27. Стандартные технологии программирования begin HintStr := Hintlnfo.HintControl.Name;

Hintlnfo.HintColor := clRed;

CanShow := True;

end;

end;

Присвоив этот метод обработчику Application. OnShowHint, установив Form.showHint:=True и очистив все строки Hint, получим в качестве подсказ ки имя каждого элемента.

Длительность показа ярлычка задается свойством property HintHidePause: Integer;

По умолчанию его значение равно 2500 мс.

Свойство property HintShortCuts: Boolean;

отвечает за показ вместе с текстом ярлычка описания "горячих" клавиш данного элемента управления.

Наконец, можно вручную "зажечь" и "потушить" ярлычок. При помощи метода procedure ActivateHint(CursorPos : TPoint);

ярлычок показывается в точке CursorPos (система координат — экранная).

"Спрятать" окно подсказки можно с помощью метода:

procedure CancelHint;

Без повторного перемещения мыши на текущий элемент оно более не воз никнет.

Резюме Delphi предоставляет разработчику набор стандартных программных меха низмов, позволяющих добавлять к приложениям функции пользовательско го интерфейса Windows. Кроме представленных здесь, разработчик может использовать расширенный набор функций, содержащийся в библиотеке Shell API, которой посвящена гл. 31.

ГЛАВА 2 Динамические библиотеки Динамические библиотеки (DLL, Dynamic Link Library) играют важную роль в функционировании ОС Windows и прикладных программ. Они пред ставляют собой файлы с откомпилированным исполняемым кодом, кото рый используется приложениями и другими DLL. Реализация многих функ ций ОС вынесена в динамические библиотеки, которые используются по мере необходимости, обеспечивая тем самым экономию адресного про странства. DLL загружается в память только тогда, когда к ней обращается какой-либо процесс.

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

Обычно в динамические библиотеки выносятся группы функций, которые применяются для решения сходных задач. Кроме этого, в них можно хра нить и использовать разнообразные ресурсы — от строк локализации до форм.

Динамическая библиотека может использоваться несколькими приложе ниями, при этом не обязательно, чтобы все они были созданы при помощи одного языка программирования.

Разновидностью динамических библиотек являются пакеты Delphi, предна значенные для хранения кода компонентов для среды разработки и прило жений.

Применение динамических библиотек позволяет добиться ряда преиму ществ:

• уменьшается размер исполняемого файла приложения и занимаемые им ресурсы;

Глава 28. Динамические библиотеки П функции DLL могут использовать несколько процессов одновременно;

• управление динамическими библиотеками возлагается на операционную систему;

П внесение изменений в DLL не требует перекомпиляции всего проекта;

• одну DLL могут использовать программы, написанные на разных языках.

При разработке динамических библиотек в среде Delphi удобно использо вать группу проектов, которая включает проект приложения и проекты ди намических библиотек.

В этой главе рассматриваются следующие вопросы:

• структура файла DLL;

• инициализация DLL;

• явная и неявная загрузка;

П вызовы функций из динамической библиотеки;

• ресурсы в динамических библиотеках.

Проект DLL Для создания динамической библиотеки в Репозитории Delphi имеется спе циальный шаблон. Его значок DLL Wizard расположен на странице New Репозитория. В отличие от проекта обычного приложения, проект DLL со стоит всего из одного исходного файла. Впоследствии к нему можно добав лять отдельные модули и формы.

! Листинг 28.1. Исходный файл проекта динамической библиотеки j library Projectl;

f Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL-even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes;

686 Часть VII. Технологии программирования {$R *.res} begin end.

Примечание Обширный комментарий в каждом проекте DLL касается использования модуля ShareMem. О нем рассказывается ниже.

Для определения типа проекта используется ключевое слово library (вместо program в обычном проекте). При компиляции такого проекта динами ческой библиотеки создается файл с расширением dll.

Как и в любом другом проекте, в проекте динамической библиотеки можно использовать иные модули. Это могут быть просто модули с исходным ко дом и модули форм. При этом динамическая библиотека может экспорти ровать функции, описанные не только в главном файле, но и в присоеди ненных модулях.

Блок begin.. end называется блоком инициализации библиотеки и предназна чен для размещения кода, который автоматически выполняется при загруз ке DLL.

Между секцией uses и блоком инициализации можно располагать исходный код функций динамической библиотеки и их объявления. При этом можно использовать любые конструкции языка Object Pascal, а также применять формы и компоненты.

( Примечание ) При создании динамических библиотек очень удобно использовать группы про ектов. В группу помещается проект приложения и проект (проекты) необходи мой для его работы динамической библиотеки (библиотек). Для переключения между проектами удобно использовать Диспетчер проектов (команда Project Manager из меню View). Его можно поместить в окно Редактора кода.

Еще один способ удобной работы с проектами динамических библиотек заклю чается в задании для DLL вызывающей программы. Это делается в диалоге команды Parameters из меню Run (рис. 28.1). Вызывающее приложение зада ется в группе Host Application. В результате после компиляции динамической библиотеки вызывается использующее ее приложение.

Для того чтобы приложения могли применять функции динамической биб лиотеки, необходимо, во-первых, экспортировать их из DLL;

во-вторых, объявить функции в самом приложении как внешние. Ниже рассматрива ются способы решения этих задач.

Глава 28. Динамические библиотеки Рис. 28.1. Диалог команды Parameters меню Run Экспорт из DLL Для создания перечня экспортируемых из динамической библиотеки про цедур и функций используется ключевое слово exports. При этом можно указывать как функции, описанные в главном файле DLL, так и функции из присоединенных модулей.

В качестве примера рассмотрим исходный код динамической библиотеки DataCheck, простейшие функции которой проверяют введенную строку перед конвертацией на соответствие одному из типов данных.

! Листинг 28.2. Исходный код динамической библиотеки DataCheck library DataCheck;

uses Windows, SysUtils, Classes, Messages, Forms, Dialogs, StdCtrls, ComCtrls;

function ValidDate(AText: String): Integer;

begin try Result := 0;

StrToDate(AText);

except on E:EConvertError do Result := -1;

end;

end;

688 Часть VII. Технологии программирования function ValidTime(AText: String): Integer;

begin try Result := 0;

StrToTime (AText)';

except on E:EConvertError do Result := -1;

end;

end;

function Validlnt(AText: String): Integer;

begin try Result := 0;

StrToInt(AText);

except on E:EConvertError do Result := -1;

end;

end;

exports Validlnt, ValidDate index 1, ValidTime index 2 name 'IsValidTime';

begin if Length(DateToStr(Date)) < then ShowMessage('Год представлен двумя цифрами');

end.

Итак, три функции этой библиотеки обеспечивают проверку строки перед преобразованием ее в целое число, дату или время. Для обеспечения экс порта этих функций их необходимо объявить в секции exports.

При компиляции библиотеки адрес, имя и порядковый номер экспортируе мой функции добавляется к специальной таблице экспорта в файле DLL.

( Примечание ^ Компилятор Delphi без проблем добавит таблицу экспорта и к исполняемому файлу приложения. Правда, при этом получить доступ к такой функции невоз можно — это системное ограничение Windows.

Попробуйте объявить пару функций после ключевого слова exports в обычном приложении — проект компилируется без ошибок. Но сами функции недоступны другим процессам.

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

Внимательный взгляд на пример экспорта в листинге 28.2 обнаруживает три различных варианта объявления.

В первом варианте компилятор самостоятельно определяет положение функции в таблице экспорта.

При использовании ключевого слова index следующее за ним число задает положение функции в таблице экспорта относительно других таких же функций.

Ключевое слово name позволяет экспортировать функцию под другим именем.

Соглашения о вызовах При объявлении процедур и функций в динамических библиотеках исполь зуются различные соглашения о вызовах. Дело в том, что различные языки программирования по-разному реализуют передачу параметров в процедуру (через стек или регистры). Порядок следования параметров в стеке как раз определяется соглашением о вызовах.

Стандартный вызов в языках C++ и Object Pascal различается, но набор ди ректив смены типа вызова позволяет обеспечить любую реализацию.

Во всех соглашениях о вызовах вызывающая процедура помещает парамет ры в стек. В зависимости от типа соглашения, очистка стека осуществляется вызывающей или вызываемой процедурой.

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

Если очистка стека осуществляется вызываемой процедурой, то перед этим она помещает возвращаемые значения во временную область памяти.

( Приллечгжие j Помимо рассмотренных ниже директив имеются еще три типа вызовов, которые не используются и сохранены для обеспечения обратной совместимости. Это директивы near, f a r, export.

Директива register Эта директива используется по умолчанию. Поэтому нет необходимости добавлять ключевое слов register после объявления функции. Вызов такого типа называется быстрым (fast call). В нем используются три расширенных регистра процессора, в которые помещаются переменные длиной не более 32-х разрядов и указатели. Остальные параметры помещаются в стек слева направо. После использования стек очищается вызываемой процедурой.

690 Часть VII. Технологии программирования Директива pascal Реализует вызовы в стиле языка Pascal. За очистку стека отвечает вызывае мая процедура. Параметры помещаются в стек слева направо. Этот способ вызова является очень быстрым, но не поддерживает переменное число па раметров. Используется для обеспечения обратной совместимости.

Директива stdcall Параметры помещаются в стек слева направо. Очистка стека осуществляет ся вызываемой процедурой. Этот вызов обеспечивает обработку фиксиро ванного числа параметров.

Директива cdecl Реализует вызовы в стиле языка С. Параметры в стек помещаются справа налево. Очистка стека осуществляется вызывающей процедурой. Такие вы зовы обеспечивают обслуживание переменного числа параметров, но ско рость обработки меньше, чем в вызовах при реализации директивы pascal.

Эта директива в основном применяется для обращения к динамическим библиотекам, использующим соглашения о вызовах в стиле языка С. Ис пользование директивы cdecl для библиотек Delphi не вызовет ошибку компиляции, но переменное число параметров не обеспечит.

Директива safecall Параметры помещаются в стек справа налево. Очистка стека осуществляет ся вызываемой процедурой. Используется в СОМ и основанных на ней тех нологиях.

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

При возникновении ошибок выполнения кода инициализации можно вос пользоваться специальной глобальной переменной Exitcode из модуля system. Если при возникновении исключительной ситуации присвоить этой переменной любое ненулевое значение, загрузка библиотеки прерывается.

Глава 28. Динамические библиотеки Примечание Любые объявленные в DLL глобальные переменные недоступны за ее пре делами.

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

Итак, перед запуском кода инициализации автоматически вызывается встроенная ассемблерная процедура _initDLL (она расположена в модуле system). Она сохраняет состояние регистров процессора;

получает значение экземпляра модуля библиотеки и записывает его в глобальную переменную hinstance;

устанавливает для глобальной переменой isLibrary значение True (по этому значению вы всегда сможете распознать код DLL);

получает из стека ряд параметров;

проверяет переменную процедурного типа DLLProc:

var DLLProc: Pointer;

Эта переменная используется для проверки вызовов операционной систе мой точки входа DLL. С этой переменной можно связать процедуру с од ним целочисленным параметром. Такая процедура называется функцией об ратного вызова системного уровня.

Если при проверке переменной DLLProc процедура _initDLL находит связан ную функцию обратного вызова, то она вызывается. При этом ей передает ся параметр, полученный из стека.

В качестве параметра могут быть переданы четыре значения:

const DLL_PROCESS_DETACH = 0;

DLL_PROCESS_ATTACH = 1;

DLL_THREAD_ATTACH = 2;

DLL_THREAD_DETACH = 3;

Рассмотрим их.

• Значение DLL_PROCESS_DETACH передается при выгрузке DLL из адресного пространства процесса. Это происходит при явном вызове системной функции FreeLibrary (см. ниже) или при завершении процесса.

• Значение DLL_PROCESS_ATTACH означает, что библиотека отображается в адресное пространство процесса, который загружает ее в первый раз.

• Значение DLL_THREAD_ATTACH посылается всем загруженным в процесс ди намическим библиотекам при создании нового потока. Обратите внима ние, что при создании процесса и первичного потока посылается только одно значение DLL PROCESS_ATTACH.

692 Часть VII. Технологии программирования • Значение DLL_THREAD_DETACH посылается всем загруженным в процесс ди намическим библиотекам при уничтожении существующего потока.

Впоследствии, при работе процесса с загруженной DLL, в случае возникно вения описанных событий, функция обратного вызова вызывается снова и снова. При этом ей передается одно из рассмотренных значений.

Это хороший способ организовать в динамической библиотеке необходи мую в каждом случае обработку. Как это сделать?

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

Во-вторых, в секции инициализации нужно связать переменную DLLProc и созданную процедуру.

Применительно к рассматриваемому нами примеру, модернизированный исходный код библиотеки DataCheck будет выглядеть так:

Листинг 28.3. Часть исходного кода динамической библиотеки DataCheck с функцией обратного вызова {Часть исходного кода опущена (см. листинг 24.2)} exports IsValidlnt, IsValidDate index 1, IsValidTime index 2 name 'ValidTime1, procedure DLLEntryPoint(Reason: Integer);

begin case Reason of DLL_PROCESS_ATTACH: ShowMessage('Первая загрузка DLL');

DLL_PROCESS_DETACH:;

DLL_THREAD_ATTACH: ShowMessage('Создан новый поток');

DLLTHREAD_DETACH: ;

end;

end;

begin DLLProc := SDLLEntryPoint;

DLLEntryPoint(DLL_PROCESS_ATTACH);

end.

Процедура DLLEntryPoint обеспечивает простой показ сообщения о полу ченном значении параметра. В коде инициализации глобальной переменной Глава 28. Динамические библиотеки DLLProc передается адрес процедуры DLLEntryPoint. Затем эта процедура вы зывается явно с параметром DLL_PROCESS_ATTACH.

У недоверчивого читателя может возникнуть вопрос — а зачем городить та кие сложности, если можно просто использовать код в секции инициализа ции? Дело в том, что этот код выполняется только при запуске DLL. По этому, как, например, вовремя уничтожить создаваемые в библиотеке объ екты при завершении ее работы? Для этого можно использовать функцию обратного вызова:

Листинг 28.4. Создание и удаление объекта при загрузке и выгрузке динамической библиотеки DataCheck {Часть исходного кода опущена (см. листинг 24.2)} exports IsValidlnt, IsValidDate index 1, IsValidTime index 2 name 'ValidTime', type TSomeObject = class(TObject) Fieldl: String;

end;

var FirstObj: TSomeObject;

procedure DLLEntryPoint(Reason: Word);

begin case Reason of DLL_PROCESS_ATTACH: begin FirstObj := TSomeObject.Create;

FirstObj.Fieldl := 'Объект создан';

ShowMessage(FirstObj.Fieldl);

end;

DLL_PROCESS_DETACH: FirstObj.Free;

DLL_THREAD_ATTACH: ShowMessage('Создан новый поток');

DLL_THREAD_DETACH:;

end;

end;

begin DLLProc := @DLLEntryPoint;

DLLEntryPoint(DLL_PROCESS_ATTACH);

end.

694 Часть VII. Технологии программирования При завершении работы динамической библиотеки вызывается процедура, на которую указывает адрес, содержащийся в переменной ExitProc:

var ExitProc: Pointer;

Вызов DLL Теперь рассмотрим, как из динамических библиотек вызываются функции.

При запуске исполняемого файла приложения операционная система созда ет для его работы отдельный процесс. Также система создает первичный поток, владельцем которого является процесс. Процесс приложения получа ет 4 Гбайт адресного пространства, в которое отображается исполняемый код приложения.

После этого из исполняемого кода извлекается информация обо всех вызы ваемых приложением динамических библиотеках и их функциях. Эта ин формация основывается на анализе исходного кода компоновщиком Delphi, который включает в исполняемый файл имена функций и динамических библиотек. При этом используется неявный вызов, описываемый ниже.

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

Именно поэтому несколько приложений могут применять одну динамиче скую библиотеку одновременно.

Каждый поток имеет собственный стек, в который загружаются параметры функций DLL и все необходимые локальные переменные. Дело в том, что динамические библиотеки не имеют собственной кучи и не могут владеть данными. Поэтому любые создаваемые функциями DLL данные или объек ты принадлежат вызывавшему потоку.

Функции динамических библиотек могут вызываться двумя способами — явным и неявным. Рассмотрим их.

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

В качестве примера неявного вызова рассмотрим простое приложение DemoDLLl, использующее функции библиотеки DataCheck (см. выше). Для этого в нем имеются три компонента TEdit, в которых осуществляется про верка введенной строки на соответствие формату одного из типов данных.

Примечание Проекты DemoDLLl и DataCheck объединены в одну группу. Переключение ме жду проектами легко выполняется утилитой Диспетчер проектов.

I Листинг 28.5. Модуль главной формы проекта DemoDLLl unit Unitl;

interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, comctrls, Buttons;

type TMainForm = class(TForm) Editl: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure EditlExit(Sender: TObject);

procedure Edit2Exit(Sender: TObject);

procedure Edit3Exit(Sender: TObject);

private { Private declarations } public { Public declarations } end;

var MainForm: TMainForm;

function IsValidlnt(AText: String): Boolean;

external 'DataCheck.dll';

function IsValidDate(AText: String): Boolean;

external 'DataCheck.dll';

function ValidTime(AText: String): Boolean;

external 'DataCheck.dll';

696 Часть VII. Технологии программирования implementation {$R *.DFM} procedure TMainForm.EditlExit(Sender: TObject);

begin if not IsValidlnt(Editl.Text) then Editl. dead end;

procedure TMainForm.Edit2Exit(Sender: TObject);

begin if not IsValidDate(Edit2.Text) then Edit2.Clear;

end;

procedure TMainForm.Edit3Exit(Sender: TObject);

begin if not ValidTime(Edit3.Text) then Edit3. dead end;

end.

Для организации неявного вызова достаточно объявить нужную функцию с директивой external и указать имя содержащей ее динамической библиоте ки. Обратите внимание, что третья функция объявлена под псевдонимом isVaiidTime, который объявлен для этой функции при помощи ключевого слова name в исходном коде динамической библиотеки.

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

Явный вызов Явный вызов динамической библиотеки подразумевает создание програм мистом соответствующего исходного кода. Ему необходимо предусмотреть загрузку DLL, получение адресов переменных процедурного типа для ис пользуемых функций и процедур, выгрузку DLL.

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

Листинг 28.6. Модуль главной формы проекта DemoDLL2 j unit Unit2;

interface Глава 28. Динамические библиотеки Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type StandardProc = function(AText: String): Boolean;

TMainForm = class(TForm) Editl: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure FormShow(Sender: TObject);

procedure EditlExit(Sender: TObject);

procedure FormClose(Sender: TObject;

var Action: TCloseAction);

procedure Edit2Exit(Sender: TObject);

procedure Edit3Exit(Sender: TObject);

private DLLHandle: THandle;

LoadError: Word;

IsValidlnt: StandardProc;

IsValidDate: StandardProc;

ValidTime: StandardProc;

public { Public declarations } end;

var MainForm: TMainForm;

implementation {$R *.DFM} procedure TMainForm.FormShow(Sender: TObject);

begin DLLHandle := LoadLibrary('DataCheck');

if DLLHandle = 0 then begin if GetLastError = ERROR_DLL_NOT_FOUND then ShowMessage('Ошибка загрузки DLL 1 );

Close;

end;

698 Часть VII. Технологии программирования SIsValidInt := GetProcAddress(DLLHandle, 'IsValidlnt');

OIsValidDate := GetProcAddress(DLLHandle, 'IsValidDate');

OValidTime := GetProcAddress(DLLHandle, 'ValidTime');

end;

procedure TMainForm.FormClose(Sender: TObject;

var Action: TCloseAction);

begin if DLLHandle О О then FreeLibrary(DLLHandle) ;

end;

procedure TMainForm.EditlExit(Sender: TObject);

begin if not IsValidlnt(Editl.Text) then Edit2. dead end;

procedure TMainForm.Edit2Exit(Sender: TObject);

begin if not IsValidDate(Edit2.Text) then Editl. dead end;

procedure TMainForm.Edit3Exit(Sender: TObject);

begin if not ValidTime(Edit3.Text) then Edit3.Clear;

end;

end.

Загрузка динамической библиотеки DataCheck осуществляется в методе обработчике FormShow при помощи функции LoadLibrary. Имя динамиче ской библиотеки может не содержать маршрута, если файл DLL расположен в одном каталоге с программой. Если в этом каталоге файл DLL не найден, поиск последовательно проводится в текущем каталоге, \SYSTEM и катало гах из перечня Path.

Так как для этой системной функции не создается исключительная си туация, то следом предусмотрен контроль возможных ошибок. Функция GetLastError возвращает код последней ошибки.

( Примечание ^ Код ошибки ERROR_DLL_NOT_FOUND, наряду со многими другими кодами, содер жится в файле Windows.PAS.

Глава 28. Динамические библиотеки Если библиотека успешно загружена, в три процедурные переменные типа standardProc передаются адреса соответствующих функций DLL. Процедур ный тип standardProc объявлен перед классом формы. Для этого использу ется системная функция GetProcAddress.

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

При закрытии приложения необходимо выгрузить все используемые дина мические библиотеки При П М Щ Системной фуНКЦИИ FreeLibrary.

ОО И Ресурсы в DLL Динамические библиотеки могут содержать не только исполняемый код, проводящий некоторые вычисления, но и ресурсы. Чаще всего бывает необ ходимо распространять вместе с DLL формы, обеспечивающие работу про цедур и функций. Приемы работы с формами в проектах динамических библиотек ничем не отличаются от тех же приемов в проектах обычных приложений.

Единственная особенность заключается в том, что любая форма в DLL должна рассматриваться как создаваемая вручную, а не автоматически. При этом в процедуру, создающую форму, должен быть передан указатель на владельца будущей формы.

Например, процедура showDemoForm из рассматриваемой нами библиотеки DataCheck, выглядит так:

procedure ShowDemoForm(AOwner: TComponent);

begin DemoForm := TDemoForm.Create(AOwner);

DemoForm.ShowModal;

DemoForm.Free;

;

end;

Уничтожение формы можно организовать не только в самой процедуре, но и (при неоднократном применении) в другой процедуре или при выгрузке динамической библиотеки.

При вызове этой процедуры из приложения в параметре необходимо указать экземпляр класса приложения:

procedure ShowDemoForm(AOwner: TComponent);

external 'DataCtrl.dll';

procedure TMainForm.BitBtnlClick(Sender: TObject);

begin ShowDemoForm(Application);

end;

Часть VII. Технологии программирования Обратите внимание, что в данном случае форма из динамической библиоте ки рассматривается операционной системой как отдельная задача, о чем свидетельствует системная панель задач.

Для распространения с приложением можно создавать специальные дина мические библиотеки ресурсов, которые используются для локализации приложений. Например, в библиотеку ресурсов можно вынести все строко вые константы (сообщения, тексты и т. д.), а с приложением распростра нять динамическую библиотеку ресурсов, строки в которой соответствуют языковым запросам заказчика.

Создать такую библиотеку можно, использовав Репозиторий Delphi (стра ница New) для проекта приложения или динамической библиотеки. Мастер создания библиотеки ресурсов проводит разработчика через все этапы соз дания проекта библиотеки.

( Примечание Для каждого языка необходимо создавать свои варианты форм и новый проект библиотеки ресурсов.

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

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

Второй — позволяет создать список форм базового проекта, которые войдут в библиотеку (рис. 28.2). При этом можно удалить из списка ненужные формы и добавить необходимые из других проектов.

Resource DL Wizard L • Select o e ot mr projects for w i h to mk l s uc DLLs.: To c a g a r o n oe hc ae e b r e hn e o t г diiecto»i" or base language, simply click on it. The root i* the top most directory of :

ihi ' ' ' ' j C:\ProgramFiles\BorlandV.. $ Select All;

-| fieselect All f dit Root Directoty" Next > Cancel Рис. 28.2. Диалог мастера библиотеки ресурсов со списком форм, включаемых в проект Глава 28. Динамические библиотеки После этого в третьем диалоге мастера необходимо выбрать один или не сколько языков локализации ресурсов (рис. 28.3). От этого выбора языка зависит расширение откомпилированного файла библиотеки и алгоритм поведения базового проекта при загрузке.

R s uc DL Wizard eo r e L Selector* o mr a g a e f r w c t mk r s uc D L : o e i a r o l n u g s o h h o ae eo r e L sJ dt n e i e t n i n s p click on it,: "";

• ' ". •••' • ••'•—. •. -Pfi-iSi: ;

xe s, m y oil.".• ! ' :: ' C\ r gaa e \ oa dD p GPo csPa e1d r : :•:

:Pd, r F sB r n \ e h \ r e t \ r e t, p il i l li j i Ln ug. • • aga e. : ' T Locale ID : jlExtohsigtjiJ^i.

П Portuguese (Brazil) $00000416 PTB..-:'.

П Portuguese (Portugal) $00000816 рте :

• Romanian $00000418 RM O ' $00000419 RS U • Sanskrit $0000044F SN A ^j • Serbian (Cyrillic) $0OO0OC1A SB R • • :

.

• Serbian (Latin) $0000081A SL R • Slovak $00000418 SY K.*• -'ifiack:;

r C n e:

acl Рис. 28.3. Диалог мастера библиотеки ресурсов со списком доступных языков локализации проекта Если запускаемое приложение или DLL находит в своей папке одноимен ный файл с расширением, которое соответствует одной из возможных лока лизаций и эта локализация применяется в системе, то приложение исполь зует ресурсы из этой библиотеки вместо собственных. Поэтому при опреде лении имени файла библиотеки ресурсов категорически не рекомендуется изменять предложенное мастером имя.

Кроме того, папку с файлом ресурсов можно задать дополнительно. Для этого на следующей странице мастера необходимо указать нужную папку для каждого языкового ресурса или принять предложенную по умолчанию (рис. 28.4).

Затем вы можете добавить к библиотеке ресурсов собственные файлы. Это могут быть ресурсы любого рода, используемые приложением. В окне мас тера (рис. 28.5) необходимо выбрать эти файлы.

В последующих диалогах мастера задается способ создания или обновления для каждого языкового ресурса и запускается процесс создания ресурса.

При первоначальном создании DLL ресурсы можно только создавать, впо следствии их можно полностью перезаписывать или изменять.

По завершении работы мастера для каждого выбранного языка создается новый проект библиотеки ресурсов. Результат работы мастера выводится в информационном окне (рис. 28.6).

Часть VII. Технологии программирования Resource D L Wizard L These aielhu language! you selecled. Set the path (or each resource DLL project Toedit a path, simply click on к ч й, : : а й К ^ ! ! К Л й ъ. й " > ?

.

grl^ iCancel-r Рис. 28.4. Диалог мастера библиотеки ресурсов со списком папок для ресурсов локализации проекта т:!! : « n : V o u can add miscellaneous files toyour project These are files that trie JDE does: ;

1 l ^ i : !:::'.not know about but you need to do your translations:: I.e., Ini, Source code, binary i ^yProjecfT'1 C;

SPtoaramFfesSBQtlar^\Delphi6\Proieds\Proiecti.dpr а11.1ШШ.М F e^ J' Fr s om He*t>- ' I лп.-тШCancel' :

< Back.: Г I • Рис. 28.5. Диалог мастера библиотеки ресурсов для включения в проект дополнительных файлов • Processed - [0,701 seconds] \ M ^. ij • | Languages: „ „ ^ „ j j...

Filoj 0| j |N e w | Foims | Resource Scripts | Changed: oj j I j U n c h a r g e d _ _ _ S l [ U n u s e d _ _ _ Total:

.Total:

• L 1 C J Рис. 28.6. Окно с информацией о результате создания ресурса Глава 28. Динамические библиотеки Каждый созданный проект необходимо откомпилировать и включить в со став дистрибутива базового приложения.

Использование модуля ShareMem Если динамическая библиотека в процессе работы использует переменные или функции, осуществляющие динамическое выделение памяти под собст венные нужды (длинные строки, динамические массивы, функции New и GetMem), а также, если такие переменные передаются в параметрах и воз вращаются в результатах, то в таких библиотеках обязательно должен ис пользоваться модуль ShareMem. При этом в секции uses модуль должен рас полагаться на первом месте. Об этом напоминает комментарий, автоматиче ски добавляемый в файл динамической библиотеки при создании (см.

листинг 28.1).

Управление этими операциями осуществляет специальный диспетчер печати BORLANDMM.DLL. Он должен распространяться вместе с динамическими б и б л и о т е к а м и, ИСПОЛЬЗУЮЩИМИ МОДУЛЬ ShareMem.

Резюме Динамические библиотеки широко используются в ОС Windows. При их применении исполняемые файлы приложений становятся существенно меньше. К одной динамической библиотеке могут обращаться несколько программ одновременно. При этом динамические библиотеки могут ис пользовать весь арсенал программных средств Delphi.

ГЛАВА Потоки и процессы Работая с Delphi, нужно иметь в виду: этот замечательный продукт не толь ко упрощает разработку сложных приложений, он использует при этом все возможности операционной системы. Одна из возможностей, которую под держивает Delphi, — это так называемые потоки (threads) или нити.

Потоки позволяют в рамках одной программы решать несколько задач од новременно. С недавних пор операционные системы для персональных компьютеров сделали это возможным.

Операционная система (ОС) предоставляет приложению некоторый интер вал времени центрального процессора (ЦП) и в момент, когда приложение переходит к ожиданию сообщений или освобождает процессор, операцион ная система передает управление другой задаче. Теперь, когда компьютеры с более чем одним процессором резко упали в цене, а операционная систе ма Windows NT может использовать наличие нескольких процессоров, поль зователи действительно могут запускать одновременно более одной задачи.

Планируя время центрального процессора, Windows 95 или Windows NT распределяют его между потоками, а не между приложениями. Чтобы ис пользовать все преимущества, обеспечиваемые несколькими процессорами в современных операционных системах, программист должен знать, как создавать потоки.

В этой главе рассматриваются следующие вопросы:

• что такое потоки;

П разница между потоком и процессом;

• преимущества потоков;

• класс TThread в Delphi;

• реализация многопоточного приложения;

• синхронизация потоков.

Глава 29. Потоки и процессы Обзор потоков Определение потока довольно простое: потоки — это объекты, получающие время процессора. Время процессора выделяется квантами (quantum, time slice). Квант времени — это интервал, имеющийся в распоряжении потока до тех пор, пока время не будет передано в распоряжение другого потока.

Обратите внимание, что кванты выделяются не программам или процессам, а порожденным ими потокам. Как минимум, каждый процесс имеет хотя бы один (главный) поток, но современные операционные системы, начиная с Windows 95 (для приверженцев Borland Kylix и Linux также), позволяют запустить в рамках процесса несколько потоков.

Если вы новичок в использовании потоков, самый простой пример их ис пользования — приложения из состава Microsoft Office. К примеру, пакеты Excel и Word задействуют по несколько потоков. Word может одновременно корректировать грамматику и печатать, при этом осуществляя ввод данных с клавиатуры и мыши;

программа Excel способна выполнять фоновые вы числения и печатать.

Примечание Узнать число потоков, запущенных приложением, в Windows NT, 2000 и ХР можно при помощи утилиты Task Manager (Диспетчер задач). Для этого среди показателей, отображаемых в окне Processes, нужно выбрать опцию Thread Count. Так, в момент написания этих строк MS Word использовал 5 потоков, среда Delphi — 3.

Вполне возможно, что эту главу сейчас вы читаете из чистого любопытства.

Но, более вероятно, вы пришли в поиске ответов на конкретные проблемы.

Какого же рода проблемы могут быть решены с применением потоков?

Если задачи приложения можно разделить на различные подмножества: об работка событий, ввод/вывод, связь и др., то потоки могут быть органично встроены в программное решение. Если разработчик может разделить большую задачу на несколько мелких, это только повысит переносимость кода и возможности его многократного использования.

Сделав приложение многопоточным, программист получает дополнитель ные возможности управления им. Например, через управление приоритета ми потоков. Если один из них "притормаживает" приложение, занимая слишком много процессорного времени, его приоритет может быть понижен.

Другое важное преимущество внедрения потоков — при возрастании "на грузки" на приложение можно увеличить количество потоков и тем самым снять проблему.

Потоки упрощают жизнь тем программистам, которые разрабатывают при ложения в архитектуре клиент/сервер. Когда требуется обслуживание нового 2? Зак 55') 706 Часть VII. Технологии программирования клиента, сервер может запустить специально для этого отдельный по ток. Такие потоки принято называть симметричными потоками (symmetric threads) — они имеют одинаковое предназначение, исполняют один и тот же код и могут разделять одни и те же ресурсы. Более того, приложения, рассчитанные на серьезную нагрузку, могут поддерживать пул (pool) одно типных потоков. Поскольку создание потока требует определенного време ни, для ускорения работы желательно заранее иметь нужное число готовых потоков и активизировать их по мере подключения очередного клиента.

( Примечание ^ Такой подход особенно характерен для Web-сервера Microsoft Internet Information Services и приложений, обрабатывающих запросы в его среде. Если вы создаете приложения ISAPI на Delphi, то можете использовать пулинг пото ков, подключив к проекту модуль ISAPIThreadPool.pas. Если вы хотите позаим ствовать идеи для других целей, ознакомьтесь с содержимым этого модуля.

Асимметричные потоки (asymmetric threads) — это потоки, решающие раз личные задачи и, как правило, не разделяющие совместные ресурсы. Необ ходимость в асимметричных потоках возникает:

• когда в программе необходимы длительные вычисления, при этом необ ходимо сохранить нормальную реакцию на ввод;

• когда нужно обрабатывать асинхронный ввод/вывод с использованием различных устройств (СОМ-порта, звуковой карты, принтера и т. п.);

• когда вы хотите создать несколько окон и одновременно обрабатывать ввод в них.

Потоки и процессы Когда мы говорим "программа" (application), то обычно имеем в виду поня тие, в терминологии операционной системы обозначаемое как "процесс".

Процесс состоит из виртуальной памяти, исполняемого кода, потоков и данных. Процесс может содержать много потоков, но обязательно содержит, по крайней мере, один. Поток, как правило, имеет "в собственности" ми нимум ресурсов;

он зависит от процесса, который и распоряжается вирту альной памятью, кодом, данными, файлами и другими ресурсами ОС.

Почему мы используем потоки вместо процессов, хотя, при необходимости, приложение может состоять и из нескольких процессов? Дело в том, что переключение между процессами — значительно более трудоемкая опера ция, чем переключение между потоками. Другой довод в пользу использо вания потоков — то, что они специально задуманы для разделения ресур сов;

разделить ресурсы между процессами (имеющими раздельное адресное пространство) не так-то просто.

Глава 29, Потоки и процессы Фоновые процедуры, или способ обойтись без потоков Здесь мы рассмотрим возможность для организации фоновых действий (job) внутри однопоточной программы с сохранением реакции этого потока на события от мыши и клавиатуры.

Еще не столь давно программисты пытались эмулировать потоки, запуская процедуры внутри цикла обработки сообщений Windows. Цикл обработки сообщений (или цикл ожидания) — это особый фрагмент кода в программе, управляемой событиями. Он исполняется тогда, когда программа находит в очереди события, которые нужно обработать;

если таковых нет, программа может выполнить в это время "фоновую процедуру". Такой способ имита ции потоков весьма сложен, т. к. вынуждает программиста, во-первых, со хранять состояние фоновой процедуры между ее вызовами, а во-вторых, определять момент, когда она вернет управление обработчику событий.

Если такая процедура выполняется долго, то у пользователя может сложить ся впечатление, что приложение перестало реагировать на внешние собы тия. Использование потоков снимает проблему переключения контекста, теперь контекст (стек и регистры) сохраняет операционная система.

В Delphi возможность создать фоновую процедуру реализована через собы тие Onldle объекта Application:

type TIdleEvent = procedure (Sender: TObject;

var Done: Boolean) of object;

property Onldle: TIdleEvent;

Обработчик этого события вы можете написать, поместив на форму компо нент TApplicationEvents CO СТраНИЦЫ Additional ПаЛИТрЫ КОМПОНеНТОВ.

Чтобы сделать в фоновом режиме какую-то работу, следует разбить ее на кванты и выполнять по одному кванту каждый вызов onldle — иначе при ложение будет плохо реагировать на внешние воздействия.

Приоритеты потоков Интерфейс Win32 API позволяет программисту управлять распределением времени между потоками;

это распространяется и на приложения, написан ные на Delphi. Операционная система планирует время процессора в соот ветствии с приоритетами потоков.

Приоритет потока — величина, складывающаяся из двух составных частей:

приоритета породившего поток процесса и собственно приоритета потока.

Когда поток создается, ему назначается приоритет, соответствующий при оритету породившего его процесса.

708 Часть VII. Технологии программирования В свою очередь, процессы могут иметь следующие классы приоритетов.

П Real time;

П Normal;

П High;

П Below normal;

О Above normal;

O Idle.

Примечание Классы Above normal и Below normal появились впервые в Windows 2000.

Класс реального времени задает приоритет даже больший, чем у многих процессов операционной системы. Такой приоритет нужен для процессов, обрабатывающих высокоскоростные потоки данных. Если такой процесс не завершится за короткое время, пользователь почувствует, что система пере стала откликаться, т. к. даже обработка событий мыши не получит времени процессора.

Использование класса High ограничено процессами, которые должны за вершаться за короткое время, чтобы не вызвать сбойной ситуации. При мер — процесс, который посылает сигналы внешнему устройству;

причем устройство отключается, если не получит своевременный сигнал. Если у вас возникли проблемы с производительностью вашего приложения, было бы неправильно решать их просто за счет повышения его приоритета до high — такой процесс также влияет на всю ОС. Возможно, в этом случае следует модернизировать компьютер.

Большинство процессов запускается в рамках класса с нормальным приори тетом. Нормальный приоритет означает, что процесс не требует какого-либо специального внимания со стороны операционной системы.

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

Приоритеты имеют значения от 0 до 31. Процесс, породивший поток, мо жет впоследствии изменить его приоритет;

в этой ситуации программист имеет возможность управлять скоростью отклика каждого потока.

Базовый приоритет нити складывается из двух составляющих, однако это не означает, что он просто равен их сумме. Взгляните на соответствующие ве личины, которые показаны в табл. 29.1. Для потока, имеющего собственный приоритет THREAD_PRIORITY_IDLE, базовый приоритет будет равен 1, невзирая на приоритет породившего его процесса.

И еще для класса Normal приведены по два приоритета, снабженные буква ми В (Background) и F (Foreground). Объяснение этому дается ниже.

Глава 29. Потоки и процессы Таблица 29.1. Классы процессов и приоритеты их потоков (для Windows 2000 и ХР) | IDLE_ [ BELOW_ | NORMAL_ I ABOVE_ ] HIGH_ | REALTIME_ | PRIORITY_ | NORMAL_ I PRIORITY_ | NORMAL_ | PRIORITY_ | PRIORITY_ I CLASS | PRIORITY_ I CLASS jPRIORITY_| CLASS | CLASS I ! CLASS ! | CLASS i I THREAD PRIORITY 1 1 1 1 IDLE THREAD 5(B) 8 PRIORITY 2 4 7(F) LOWEST THREAD PRIORITY_ 6(B) 12 BELOW 8(F) NORMAL THREAD_ 7(B) 10 13 PRIORITY_ 4 9(F) NORMAL THREAD PRIORITY_ 8(B) 14 5 7 Ю() F ABOVE NORMAL THREAD_ 9(B) 15 PRIORITY_ CM 1KF) HIGHEST THREAD PRIORITY_ 15 15 15 TIME CRITICAL Помимо базового приоритета, описываемого в этой таблице, планировщик заданий (scheduler) может назначать так называемые динамические приори теты. Для процессов класса NORMAL_PRIORITY_CLASS при переключении из фонового режима в режим переднего плана и в ряде других случаев приори тет потока, с которым создано окно переднего плана, повышается. Так ра ботают все клиентские операционные системы от Microsoft. Серверные опе рационные системы оптимизированы для выполнения фоновых приложе ний. Впрочем, Windows NT и более поздние ОС на этом ядре позволяют переключать режим оптимизации, используя переключатель Application response апплета System панели управления Windows (рис. 29.1).

К тому же Windows 2000 Professional и Windows 2000 Server имеют разные алгоритмы выделения квантов времени. Первая — клиентская — операци Часть VII. Технологии программирования онная система выделяет время короткими квантами переменной длины для ускорения реакции на приложения переднего плана (foreground). Для серве ра же более важна стабильная работа системных служб, поэтому во второй ОС система распределяет длинные кванты постоянной длины.

л P rom n e O to s ef r a c pi n :

A p ai n r s o s S — — - ~4--.- p k to ep ne' — — — ' © tff e p rom n e for;

;

•• ••'. ••. •: •: 'V1.1:

:

pi je ef r a c r " • C: A p ai n ['•••'(* Bcgon s r i e ?

pl t s io c ak r ud ev s c : :

: ' : V '::[ [ ':' :^ &№ Рис. 29.1. С помощью диалога Performance Options можно управлять алгоритмом назначения приоритетов Теперь, разобравшись в приоритетах потоков, нужно обязательно сказать о том, как же их использует планировщик заданий для распределения процес сорного времени.

Операционная система имеет различные очереди готовых к выполнению потоков — для каждого уровня приоритета свой. В момент распределения нового кванта времени она просматривает очереди — от высшего приорите та к низшему. Готовый к выполнению поток, стоящий первым в очереди, получает этот квант и перемещается в хвост очереди. Поток будет испол няться всю продолжительность кванта, если не произойдет одно из двух со бытий:

• выполняющийся поток остановился для ожидания;

• появился готовый к выполнению поток с более высоким приоритетом.

Теперь, наверное, вам более ясна опасность, исходящая от неоправданного завышения приоритетов. Ведь, если есть активные потоки с высоким при оритетом, ни один поток с более низким приоритетом ни разу не получит времени процессора. Эта проблема может подстерегать вас даже на уровне вашего приложения. Предположим, вы назначили вычислительному потоку приоритет THREAD_PRiORiTY_ftBOVE_NORMAL, а потоку, где обрабатывается ввод пользователя, — THREAD_PRIORITY_BELOW_NORMAL. Тогда вместо запланирован ного результата — совместить вычисления с нормальной реакцией прило жения — вы получите строго обратный. Приложение вообще перестанет откликаться на ввод, и снять его будет возможно только с помощью средств ОС.

Глава 29. Потоки и процессы Так что нормальная практика для асимметричных потоков — это назначе ние потоку, обрабатывающему ввод, более высокого приоритета, а всем ос тальным — более низкого или даже приоритета idle, если этот поток дол жен выполняться только во время простоя системы.

Класс TThread Delphi представляет программисту полный доступ к возможностям про граммирования интерфейса Win32. Для чего же тогда фирма Borland пред ставила специальный класс для организации потоков? Вообще говоря, про граммист не обязан разбираться во всех тонкостях механизмов, предлагае мых операционной системой. Класс должен инкапсулировать и упрощать программный интерфейс;

класс TThread — прекрасный пример предоставле ния разработчику простого доступа к программированию потоков. Сам API потоков, вообще говоря, не очень сложен, но предоставленные классом TThread возможности вообще замечательно просты. В двух словах, все, что вам необходимо сделать, — это перекрыть виртуальный метод Execute.

Другая отличительная черта класса TThread — это гарантия безопасной ра боты с библиотекой визуальных компонентов VCL. Без использования класса TThread во время вызовов VCL могут возникнуть ситуации, требую щие специальной синхронизации (см. разд. "Проблемы при синхронизации потоков" далее в этой главе).

Нужно отдавать себе отчет, что с точки зрения операционной системы по ток — это ее объект. При создании он получает дескриптор и отслеживается ОС. Объект класса TThread — это конструкция Delphi, соответствующая по току ОС. Этот объект VCL создается до реального возникновения потока в системе и уничтожается после его исчезновения.

Изучение класса TThread начнем с метода Execute:

procedure Execute;

virtual;

abstract;

Это и есть код, исполняемый в создаваемом вами потоке TThread.

( Примечание ) Хотя формальное описание Execute— метод a b s t r a c t, но мастер создания нового объекта TThread создает для вас пустой шаблон этого метода.

Переопределяя метод Execute, мы можем тем самым закладывать в новый потоковый класс то, что будет выполняться при его запуске. Если поток был создан С аргументом CreateSuspended, равным False, T метод Execute O выполняется немедленно, в противном случае Execute выполняется после вызова метода Resume (см. описание конструктора ниже).

Часть VII. Технологии программирования 7/ Если поток рассчитан на однократное выполнение каких-либо действий, то никакого специального кода завершения внутри Execute писать не надо.

Если же в потоке будет выполняться какой-то цикл, и поток должен завер шиться вместе с приложением, то условия окончания цикла должны быть примерно такими:

procedure TMyThread.Execute;

begin repeat DoSomething;

Until CancelCondition or Terminated;

end;

Здесь CancelCondition — ваше личное условие завершения потока (исчерпа ние данных, окончание вычислений, поступление на вход того или иного символа и т. п.), а свойство Terminated сообщает о завершении потока (это свойство может быть установлено как изнутри потока, так и извне;

скорее всего, завершается породивший его процесс).

Конструктор объекта:

constructor Create(CreateSuspended: Boolean);

получает параметр CreateSuspended. Если его значение равно True, вновь созданный поток не начинает выполняться до тех пор, пока не будет сделан вызов метода Resume. В случае, если параметр CreateSuspended имеет значе ние False, конструктор завершается и только затем поток начинает испол нение.

destructor Destroy;

override;

Деструктор Destroy вызывается, когда необходимость в созданном потоке отпадает. Деструктор завершает его и высвобождает все ресурсы, связанные С объектом TThread.

function Terminate: Integer;

Для окончательного завершения потока (без последующего запуска) сущест вует метод Terminate. Но если вы думаете, что этот метод делает какие-то принудительные действия по остановке потока, вы ошибаетесь. Все, что происходит, — это установка свойства property Terminated: Boolean;

в значение True. Таким образом, Terminate — это указание потоку завер шиться, выраженное "в мягкой форме", с возможностью корректно освобо дить ресурсы. Если вам нужно немедленно завершить поток, используйте ФУНКЦИЮ Windows API TerminateThread.

Глава 29. Потоки и процессы Примечание j Метод Terminate автоматически вызывается и из деструктора объекта. По ток — объект VCL будет дожидаться, пока завершится поток — объект опера ционной системы. Таким образом, если поток не умеет завершаться корректно, вызов деструктора потенциально может привести к зависанию всей программы.

Еще одно полезное свойство:

property FreeOnTerminate: Boolean;

Если это свойство равно True, то деструктор потока будет вызван автомати чески по его завершении. Это очень удобно для тех случаев, когда вы в сво ей программе не уверены точно, когда именно завершится поток, и хотите использовать его по принципу "выстрелил и забыл" (fire and forget).

function WaitFor: Integer;

Метод WaitFor предназначен для синхронизации и позволяет одному потоку дождаться момента, когда завершится другой поток. Если вы внутри потока FirstThread пишете код:

Code := SecondThread.WaitFor;

то это означает, что поток FirstThread останавливается до момента завер шения потока SecondThread. Метод WaitFor возвращает код завершения ОЖИДаеМОГО ПОТОКа (СМ. СВОЙСТВО ReturnValue).

property Handle: THandle read FHandle;

property ThreadID: THandle read FThreadID;

Свойства Handle и ThreadiD дают программисту непосредственный доступ к потоку средствами API Win32. Если разработчик хочет обратиться к пото ку и управлять им, минуя возможности класса TThread, значения Handle и ThreadiD могут быть использованы в качестве аргументов функций Win API. Например, если программист хочет перед продолжением выполнения приложения дождаться завершения сразу нескольких потоков, он должен вызвать функцию API waitForMuitipieObjects;

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

property Priority: TThreadPriority;

Свойство Priority позволяет запросить и установить приоритет потоков.

Приоритеты потоков в деталях описаны выше. Допустимыми значения ми приоритета ДЛЯ Объектов TThread Я Л Ю С tpldle, tpLowest, tpLower, ВЯ ТЯ tpNormal, tpHigher, tpHighest И tpTimeCritical.

procedure Synchronize(Method: TThreadMethod);

Этот метод относится к секции protected, т. е. может быть вызван только из потомков TThread. Delphi предоставляет программисту метод synchronize для 714 Часть VII. Технологии программирования безопасного вызова методов VCL внутри потоков. Во избежание конфликт ных ситуаций, метод synchronize дает гарантию, что к каждому объекту VCL одновременно имеет доступ только один поток. Аргумент, передаваемый в метод synchronize, — это имя метода, который производит обращение к VCL;

вызов synchronize с этим параметром — это то же, что и вызов самого метода. Такой метод (класса TThreadMethod) не должен иметь никаких пара метров и не должен возвращать никаких значений. К примеру, в основной форме приложения нужно предусмотреть функцию procedure TMainForm.SyncShowMessage;

begin ShowMessagedntToStr (ThreadListl.Count) ) ;

// другие обращения к VCL end;

а в потоке для показа сообщения писать не ShowMessage(IntToStr(ThreadListl.Count));

и даже не MainForm.SyncShowMessage;

а только так:

Synchronize(MainForm.SyncShowMessage);

Примечание Производя любое обращение к объекту VCL из потока, убедитесь, что при этом используется метод Synchronize;

в противном случае результаты могут ока заться непредсказуемыми. Это верно даже в том случае, если вы используете средства синхронизации, описанные ниже.

procedure Resume;

Метод Resume класса TThread вызывается, когда поток возобновляет выпол нение после остановки, или для явного запуска потока, созданного с пара метром CreateSuspended, равным True.

procedure Suspend;

Вызов метода Suspend приостанавливает поток с возможностью повторного запуска впоследствии. Метод suspend приостанавливает поток вне зависи мости от кода, исполняемого потоком в данный момент;

выполнение про должается с точки останова.

property Suspended: Boolean;

Свойство suspended позволяет программисту определить, не приостановлен ли поток. С помощью этого свойства можно также запускать и останавли Глава 29. Потоки и процессы вать поток. Установив свойство Suspended в значение True, вы получите тот же результат, что и при вызове метода suspend — приостановку. Наоборот, установка свойства suspended в значение False возобновляет выполнение потока, как и вызов метода Resume.

property ReturnValue: Integer;

Свойство ReturnValue позволяет узнать и установить значение, возвращае мое потоком по его завершении. Эта величина полностью определяется пользователем. По умолчанию поток возвращает ноль, но если программист захочет вернуть другую величину, то простая переустановка свойства ReturnValue внутри потока позволит получить эту информацию другим по токам. Это, к примеру, может пригодиться, если внутри потока возникли проблемы, или с помощью свойства ReturnValue нужно вернуть число не прошедших орфографическую проверку слов.

На этом завершим подробный обзор класса TThread. Для более близкого знакомства с потоками и классом Delphi TThread создадим многопоточное приложение. Для этого нужно написать всего несколько строк кода и не сколько раз щелкнуть мышью.

Пример создания многопоточного приложения в Delphi Этот раздел содержит описание шагов, необходимых для создания простого, но показательного примера многопоточного приложения. Мы будем пы таться вычислить число "пи" с максимальной точностью после запятой. Ко нечно, встроенная в Delphi константа pi имеет достаточную точность, пра вильнее сказать — максимальную, допускаемую самым точным 10-байтным форматом для вещественных чисел Extended. Так что превзойти ее нам не удастся. Но этот пример использования потоков может послужить прологом для решения реальных задач.

Первый пример будет содержать два потока: главный (обрабатывающий ввод пользователя) и вычислительный;

мы сможем изменять их свойства и наблюдать за реакцией.

Итак, выполните следующую последовательность действий:

1. В среде Delphi откройте меню File и выберите пункт New Application.

2. Расположите на форме пять меток и один переключатель, как показано на рис. 29.2.

Переименуйте главную форму в fmMain.

3. Откройте меню File и выберите пункт Save Project As. Сохраните модуль как uMain, а проект — как Threadsl.

716 Часть VII. Технологии программирования 17-Value of Pi яга S3!

".'•v', ':• % >'' ":^\: '.'.'.r.

B iti v l e • • ul-n au f||^::CornpiJtePi:;

'• • •. Cmud v l e •O O OJ P O OS O f t • o pt a eu [ : ;

•;

: o o o o • •' ' o o o o.

'' : •. : ' • / ;

•, : ;

• ;

: : ' • ;

•• • •• *..-•.•;

...* •'.•.• Рис. 29.2. Внешний вид формы для приложения Threadsi 4. Откройте меню File и выберите пункт New. Затем дважды щелкните на объекте типа поток (значок Thread Object). Откроется диалоговое окно New Items, показанное на рис. 29.3.

Л-New Items 'Data Modules] IritraWeb | WebServices j Business |;

WebSnap.|.:WelJ Documents:

i New ;

: I ActiveX j Multtiei | PiojecM ) Forms :| Dialogs ')•/Projects r D L L W i z a r d F o r m F r a m e P a c k a g e Service Application P r o j e c t G r o u p R e s o u r c e D L L S e r v i c e W i z a r d W b S re e ev r Unit Tent Кшшш Application r;

jntefit' Рис. 29.3. Диалоговое окно New Items с выбранным объектом типа "поток" INew Thread Object •: glass Name |TPiThread Thread Mali» Рис. 29.4. Диалоговое окно New Thread Object 5. Когда появится диалоговое окно для именования объекта поток, введите TPiThread и нажмите клавишу (рис. 29.4). Помимо этого, при желании, вы можете присвоить создаваемому потоку имя, установив флажок Named Thread и задав имя в поле Thread Name. Так как имя по Глава 29. Потоки и процессы тока используется только для удобства обозначения, эту возможность мы использовать не будем.

Delphi создаст новый модуль и поместит в него шаблон для нового потока.

6. Код, вносимый в метод Execute, вычисляет число л, используя сходи мость бесконечного ряда Лейбница:

л = 4 - 4/3 + 4/5 - 4/7 + 4/9 -...

Разумеется, отображать новое значение после каждой итерации — это то же самое, что стрелять из пушки по воробьям. На отображение инфор мации система потратит в десятки раз больше времени, чем на собствен но вычисления. Поэтому мы ввели константу updatePeriod, которая регу лирует периодичность отображения текущего значения.

Код метода Execute показан ниже:

const // Лучше использовать нечетное число для того, чтобы избежать эффекта // мерцания UpdatePeriod = 1000001;

procedure TPiThread.Execute;

var sign : Integer;

PiValue, PrevValue : Extended;

i : Int64;

begin { Place thread code here } PiValue := 4;

sign := -1;

i := 0;

repeat Inc(i) ;

PrevValue := PiValue;

PiValue := PiValue + sign * 4 / (2*i+l);

sign := -sign;

if i mod UpdatePeriod = 0 then begin GlobalPi := PiValue;

GlobalCounter := i;

Synchronize(fmMain.UpdatePi);

end;

until Terminated or (Abs(PiValue - PrevValue)<1E-19);

end;

7. Откройте меню File и выберите пункт Save As. Сохраните модуль с пото ком как uPLThread.pas.

718 Часть VII. Технологии программирования 8. Отредактируйте главный файл модуля uMain.pas и добавьте модуль uPiThread к списку используемых модулей в секции интерфейса. Он должен выглядеть так:

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, uPiThread;

9. В секции public формы TfmMain добавьте ссылку на создаваемую нить:

PiThread : TPiThread;

10. Добавьте в модуль uMain две глобальные переменные GlobalPi : Extended;

GlobalCounter : Int64;

И метод UpdatePi:

procedure TfmMain.UpdatePi;

begin if Islconic(Application.Handle) then Exit;

LaValue.Caption := FloatToStrF(GlobalPi, ffFixed, 18, 18);

lalterNum.Caption := IntToStr(GlobalCounter) + ' iterations';

end;

Этот метод, если вы обратили внимание, вызывается из потока посред ством процедуры synchronize. Он отображает текущее значение при ближения к числу "пи" и количество итераций.

В случае, если главное окно приложения свернуто, отображение не про изводится;

так что после его развертывания вам, возможно, придется подождать некоторое время для обновления.

11. Выполните двойной щелчок на свободном месте рабочей области фор мы, при этом создастся шаблон метода FormCreate. Здесь мы отобразим значение системной константы pi:

procedure TfmMain.FormCreate(Sender: TObject);

begin laBuiltln.Caption := FloatToStrF(Pi, ffFixed, 18, 18);

end;

12. Выберите на форме переключатель (его название cbcaicuiate) и на значьте событию onclick код, создающий и уничтожающий вычисли тельный поток в зависимости от состояния переключателя:

procedure TfmMain.cbCalculateClick(Sender: TObject);

begin if cbCalculate.Checked then Глава 29. Потоки и процессы begin PiThread := TPiThread.Create(True);

PiThread.FreeOnTerminate := True;

PiThread.Priority := tpLower;

PiThread.Resume;

end else begin if Assigned(PiThread) then PiThread.Terminate;

end;

end;

Таким образом, многопоточное приложение готово к запуску. Если все пройдет нормально, вы увидите картинку, подобную той, которая приведена на рис. 29.5.

B iti v l e 3 ul-n a u. Cmud v l e 3 4 5 2 7 3 8 4 1 o pt a, 1 9 6 5 2 9 5 eu 4995 ieai n 5394 t r t » o Рис. 29.5. Выполняющееся приложение Threadsl Пока один из авторов писал текст этого раздела, запущенное одновременно приложение Threadsl выполнило пять миллиардов итераций и приблизилось к встроенному значению pi в десятом разряде. Интересно, насколько хватит терпения у вас?

Этот простой пример — первый шаг в усвоении того, как от базового класса TThread можно порождать собственные классы. Из-за своей простоты он не лишен недостатков;

более того — если бы вычислительных нитей было не одна, а более, кое-какие приемы были бы даже ошибочными. Но — об этом ниже.

Проблемы при синхронизации потоков К сожалению, простота создания потоков подчас "компенсируется" слож ностью их применения. Две типичные проблемы, с которыми программист может столкнуться при работе с потоками, — это тупики (deadlocks) и гонки (race conditions).

Тупики Вероятно, вы не раз наблюдали на трамвайной остановке следующую забав ную картину (рис. 29.6).

720 Часть VII. Технологии программирования Рис 29.6. Ситуации тупиков возникают не только в программировании Рисунок дает исчерпывающее пояснение ситуации тупиков. Тупики имеют место, когда поток ожидает ресурс, который в данный момент принадлежит другому потоку. Рассмотрим пример. Поток 1 захватывает ресурс А, и для того чтобы продолжать работу, ждет возможности захватить ресурс Б. В то же время Поток 2 захватывает ресурс Б и ждет возможности захватить ре сурс А. Развитие этого сценария заблокирует оба потока;

ни один из них не будет исполняться. Ресурсами могут выступать любые совместно используе мые объекты системы — файлы, массивы в памяти, устройства ввода/вы вода и т. п.

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

Гонки Ситуация гонок возникает, когда два или более потока пытаются получить доступ к общему ресурсу и изменить его состояние. Рассмотрим следующий пример. Пусть Поток 1 получил доступ к ресурсу и изменил его в своих ин тересах;

затем активизировался Поток 2 и модифицировал этот же ресурс до завершения Потока 1. Поток 1 полагает, что ресурс остался в том же со стоянии, в каком был до переключения. В зависимости от того, когда именно был изменен ресурс, результаты могут варьироваться — иногда код будет выполняться нормально, иногда нет. Программисты не должны стро ить никаких гипотез относительно порядка исполнения потоков, т. к. пла нировщик ОС может запускать и останавливать их в любое время.

Глава 29. Потоки и процессы Inc(i);

if i = iSomething then DoSomething;

Здесь i — глобальная переменная, доступная из обоих потоков. Пусть два или более потоков исполняют этот код одновременно. Поток 1 инкремен тировал значение переменной i и хочет проверить ее значение для выпол нения тех или иных условий. Но тут активизируется другой поток, который еще увеличивает значение i. В результате первый поток "проскакивает" ми мо условия, которое, казалось бы, должно было быть выполнено.

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

Средства синхронизации потоков Проще всего говорить о синхронизации, если создаваемый поток не взаи модействует с ресурсами других потоков и не обращается к VCL. Допустим, у вас на компьютере несколько процессоров, и вы хотите "распараллелить" вычисления. Тогда вполне уместен следующий код:

MyCompThread := TComputationThread.Create(False);

// Здесь можно что-нибудь делать, пока второй поток производит вычисления DoSomeWork;

// Теперь ожидаем его завершения MyCompThread.WaitFor;

Приведенная схема совершенно недопустима, если во время своей работы ПОТОК MyCompThread обращается К VCL посредством метода Synchronize.

В этом случае поток ждет главный поток для обращения к VCL, а тот, в свою очередь, его — классический тупик.

За "спасением" следует обратиться к программному интерфейсу Win32. Он предоставляет богатый набор инструментов, которые могут понадобиться для организации совместной работы потоков.

Главные понятия для понимания механизмов синхронизации — функции ожидания и объекты синхронизации. В Windows API предусмотрен ряд функций, позволяющих приостановить выполнение вызвавшего эту функ цию потока вплоть до того момента, как будет изменено состояние какого то объекта, называемого объектом синхронизации (под этим термином здесь понимается не объект Delphi, а объект операционной системы). Простей шая из этих функций — waitForsingieObject — предназначена для ожида ния одного объекта.

К возможным вариантам относятся четыре объекта, которые разработаны специально для синхронизации: событие (event), взаимное исключение (mutex), семафор (semaphore) и таймер (timer).

24 3ак. 722 Часть VII. Технологии программирования Но кроме специальных объектов можно организовать ожидание и других объектов, дескриптор которых используется в основном для иных целей, но может применяться и для ожидания. К ним относятся: процесс (process), поток (thread), оповещение об изменении в файловой системе (change notification) и консольный ввод (console input).

Косвенно к этой группе может быть добавлена критическая секция (critical section).

( Примечание ^ Перечисленные выше средства синхронизации в основном инкапсулированы в состав классов Delphi. У программиста есть две альтернативы. С одной сто роны, в состав библиотеки VCL включен модуль SYNCOBJS.PAS, содержащий классы для события (TEvent) и критической секции ( T C r i t i c a l S e c t i o n ). С дру гой, с Delphi поставляется отличный пример IPCDEMOS, который иллюстрирует проблемы взаимодействия процессов и содержит модуль IPCTHRD.PAS с ана логичными классами — для того же события, взаимного исключения (TMutex), а также совместно используемой памяти (TSharedMem).

Перейдем к подробному описанию объектов, используемых для синхрони зации.

Событие Объект типа событие (event) — простейший выбор для задач синхрониза ции. Он подобен дверному звонку — звенит до тех пор, пока его кнопка находится в нажатом состоянии, извещая об этом факте окружающих. Ана логично, и объект может быть в двух состояниях, а "слышать" его могут многие потоки сразу.

Класс TEvent (модуль SYNCOBJS.PAS) имеет два метода: SetEvent и ResetEvent, которые переводят объект в активное и пассивное состояние соответственно. Конструктор имеет следующий вид:

constructor Create(EventAttributes: PSecurityAttributes;

ManualReset, InitialState: Boolean;

const Name: string);

Здесь параметр InitialState — начальное состояние объекта, ManualReset — способ его сброса (перевода в пассивное состояние). Если этот параметр равен True, событие должно быть сброшено вручную. В противном случае событие сбрасывается по мере того, как стартует хоть один поток, ждавший данный объект.

На третьем методе:

TWaitResult = (wrSignaled, wrTimeout, wrAbandoned, wrError);

function WaitFor(Timeout: DWORD): TWaitResult;

остановимся подробнее. Он дает возможность ожидать активизации собы тия в течение Timeout миллисекунд. Как вы могли догадаться, внутри этого Глава 29. Потоки и процессы метода происходит вызов функции waitFotsingieobject. Типичных результа тов на выходе waitFor два — wrsignaied, если произошла активизация собы тия, и wrTimeout, если за время тайм-аута ничего не произошло.

( Примечание ) Если нужно (и допустимо!) ждать бесконечно долго, следует установить пара метр Timeout в значение I N F I N I T E.

Рассмотрим маленький пример. Включим в состав нового проекта объект типа rrhread, наполнив его метод Execute следующим содержимым:

Var res: TWaitResult;

procedure TSimpleThread.Execute;

begin e := TEvent.Create(nil,True,false, 'test');

repeat e.ReSetEvent;

res := e.WaitFor(10000);

Synchronize(Showlnfo);

u n t i l Terminated;

e.Free;

end;

procedure TSimpleThread.Showlnfo;

begin ShowMessage(IntToStr(Integer(res)));

end;

На главной форме разместим две кнопки — нажатие одной из них запускает поток, нажатие второй активизирует событие:

procedure TForml.ButtonlClick(Sender: TObject);

begin TSimpleThread.Create(False);

end;

procedure TForml.Button2Click(Sender: TObject);

begin e.SetEvent;

end;

Нажмем первую кнопку. Тогда появившийся на экране результат (метод showlnfo) будет зависеть от того, была ли нажата вторая кнопка или истекли отведенные 10 секунд.

События используются не только для работы с потоками — некоторые про цедуры операционной системы автоматически переключают их. К числу 724 Часть VII. Технологии программирования таких процедур относятся отложенный (overlapped) ввод/вывод и события, связанные с коммуникационными портами.

Взаимные исключения Объект типа взаимное исключение (mutex) позволяет только одному потоку в данное время владеть им. Если продолжать аналогии, то этот объект мож но сравнить с эстафетной палочкой.

Класс, инкапсулирующий взаимное исключение, — TMutex — находится в модуле IPCTHRD.PAS (пример IPCDEMOS). Конструктор:

constructor Create(const Name: string);

задает имя создаваемого объекта. Первоначально он не принадлежит нико му. (Но функция API createMutex, вызываемая в нем, позволяет передать созданный объект тому потоку, в котором это произошло.) Далее метод function Get(TimeOut: Integer): Boolean;

производит попытку в течение Timeout миллисекунд завладеть объектом (в этом случае результат равен True). Если объект более не нужен, следует вызвать метод function Release: Boolean;

Программист может использовать взаимное исключение, чтобы избежать считывания и записи общей памяти несколькими потоками одновременно.

Семафор Семафор (semaphore) подобен взаимному исключению. Разница между ними в том, что семафор может управлять количеством потоков, которые имеют к нему доступ. Семафор устанавливается на предельное число потоков, кото рым доступ разрешен. Когда это число достигнуто, последующие потоки будут приостановлены, пока один или более потоков не отсоединятся от семафора и не освободят доступ.

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

Критическая секция Работая в Delphi, программист может также использовать объект типа кри тическая секция (critical section). Критические секции подобны взаимным Глава 29. Потоки и процессы исключениям по сути, однако между ними существуют два главных от личия:

П взаимные исключения могут быть совместно использованы потоками в различных процессах, а критические секции — нет;

• если критическая секция принадлежит другому потоку, ожидающий по ток блокируется вплоть до освобождения критической секции. В отличие от этого, взаимное исключение разрешает продолжение по истечении тайм-аута.

Pages:     | 1 |   ...   | 8 | 9 || 11 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.