WWW.DISSERS.RU

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

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

Pages:     | 1 |   ...   | 7 | 8 || 10 |

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

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

В данном случае доступ к объекту аутентификации (класс TRaveBaseSecurity) осуществляется через объект менеджера проекта (класс 652 Часть VI. Генератор отчетов Rave Reports 5. Метод function string;

APassword: string): Boolean;

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

Для уровня отчета код выглядит так:

if then else Здесь объект ActiveReport (класс TRaveReport) представляет текущий отчет.

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

Для всех рассматриваемых типов отчетов создано демонстрационное при ложение DemoReports.

Простой табличный отчет Для создания отчетов, использующих данные из источников, предоставлен ных объектами соединений и просмотров, используются элементы оформ ления со страницы Report Палитры инструментов Rave Reports.

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

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

Обычная полоса Band создает горизонтальную область, которая не изменяет свое абсолютное или относительное положение на странице. Например, Глава 26. Отчеты для приложений баз данных созданная на основе элемента полоса всегда располагается в начале первой страницы отчета и оформляет заголовок таблицы (рис. 26.5).

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

(Master i Простой табличный отчет Страна | Столица | Континент | Территория Region1: (Master ] | [ [Name ] j [Capital ] j [Continent [ Population] FooterBand (Master I I 26.5. Страница простого табличного отчета в визуальной среде Rave Reports Элемент оформления DataBand обеспечивает размножение строк отчета в соответствии с числом строк набора данных. Для этого полосу данных необходимо связать с просмотром при помощи свойства В нашем примере это прямой просмотр связанный С КОМПОНенТОМ TRvDataSetConnection В ПрИЛОЖеНИИ.

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

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

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

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

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

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

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

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

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

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

(Master Отчет 1 • | Regioni: CustBand i Телефон - i,/ (В )l Тип плат - 'D. ) ] ] [ OrdFooterBanc | 26.6. Страница отчета MasterDetailReport в визуальной среде Rave Reports А теперь займемся созданием отношения "один-ко-многим".

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

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

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

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

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

Band Display for • CustBand (Master).

OrdBand OrdBand (Detail) OrdFooterBand (b) • (Master) OrdHeaderBand (B) if" OrdBand (Detail) 1 OrdBand OrdFooterBand (b) • (Master) Footer Г OrdHeaderBand (B) OrdBand (Detain (Detail) OrdBand (Detail) fcjew OrdFooterBand (b) • (С);

' 26.7. Редактор полос отчета Band Style Editor для отчета MasterDetailReport На этом настройка отношения "один-ко-многим" завершена. Однако ска жем еще несколько слов об использовании обычных полос при оформлении такого рода отчетов. В нашем примере две дополнительные полосы OrdHeaderBand И OrdFooterBand визуально выделить группы записей подчиненной полосы. Для этого необходимо в их свойстве выбрать полосу данных Затем в редакторе полос отчета в группе 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. НО В самом наборе данных невозможно предусмотреть оформление групп записей, однако это можно сделать в отчете.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Вычисленное значение при сохранении может быть отформатировано в со ответствии С шаблоном, СВОЙСТВОМ Часть VI. Генератор отчетов Rave Reports 5. Для всех агрегатных функций можно задать момент начала вычислений. Для этого в свойстве initializer необходимо указать элемент оформления отче та, и при его печати начнется вычисление. Это может быть любой элемент, расположенный с элементом CalcText на одной полосе. Но желательно использовать для этого специализированный элемент (см.

ниже).

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

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

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

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

rt Text Editor DIM Data - Data Field "• '',' " Default:

'• Selected •• -Report | CurrentPage j Parameters •• ! Insert Initialize Variables Insert PI Var |,- Data Text — 26.8. Редактор свойства Глава 26. Отчеты для приложений баз данных Затем параметр или переменная может быть использована для дальнейших вычислений или напечатана при помощи элемента DataText. В редакторе свойства этого элемента (рис. 26.8) параметры и переменные от чета можно выбрать из списков Project Parameters и Post Initialize Variables.

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

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

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

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

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

SrclFunction;

SrclFunction;

Operator;

ResultFunction.

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

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

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

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

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

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

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

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

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

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

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

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

При ПОМОЩИ СВОЙСТВ MasterKey И DetailKey МОЖНО ПОЛУЧИТЬ подмножество записей для отношения "один-ко-многим".

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

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

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

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

Технологии программирования Глава 27. Стандартные технологии программирования Глава 28. Динамические библиотеки Глава 29. Потоки и процессы Глава 30. Многомерное представление данных Глава 31. Использование возможностей Shell API ГЛАВА Стандартные технологии программирования В этой главе обсуждаются вопросы использования стандартных для прило жений 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 реализован в базовом классе кото рый является предком всех элементов управления. Рассмотрим суть меха низма.

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

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

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

Threshold: Integer = -1);

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

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

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

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

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

X, Y: Integer;

State: TDragState;

var Accept: Boolean);

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

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

type TDragState = (dsDragEnter, dsDragLeave, dsDragEnter — указатель появился над компонентом;

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

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

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

X, Y: Integer) of object;

property OnDragDrop: TDragDropEvent;

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

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

X, Y: Integer) of object;

property OnEndDrag: TEndDragEvent;

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

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

procedure Boolean);

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

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

Источник по умолчанию I источника Приемник по Текст приемника Наэтой панели and Drop не работает I • Эту панели можно перемещать по • • 27.1. Главная форма проекта DemoDragDrop | Листинг 27.1. Секция implementation модуля главной формы проекта DemoDragDrop implementation procedure TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

668 Часть VII. Технологии программирования begin if Button = then end;

procedure Source: TObject;

X, Y: Integer;

State: TDragState;

var Accept: Boolean);

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

end;

procedure Source: TObject;

X, Y:

Integer);

begin := end;

procedure Target: TObject;

X, Y: Integer);

begin if then := 'Текст перенесен в ' + end;

procedure Source: TObject;

Y: Integer;

State: TDragState;

var Accept: Boolean);

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

end;

procedure Source: TObject;

X, Y: Integer);

begin := X;

:= Y;

end;

end.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Application] One Two Beep Three Beep White I | Green Lime Purpl Red Tea Color e | 27.2. Плавающие панели инструментов Естественно, для программиста предусмотрены возможности контроля за этим процессом. Каждый переносимый элемент управления имеет два со бытия, возникающие в моменты начала и конца переноса:

type TStartDockEvent = TObject;

var DragObject:

TDragDockObject) of object;

TEndDragEvent = Target: TObject;

X, Y: Integer) of object;

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

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

type = TObject;

DockClient:

var TRect;

MousePos: var CanDock: Boolean) of object;

TDockOverEvent = TObject;

Source: TDragDockObject;

X, Y: Integer;

State: TDragState;

var Accept: Boolean) of object;

TDockDropEvent = TObject;

Source:

X, Y: Integer) of object;

TUnDockEvent = TObject;

Client: TControl;

TWinControl;

var Allow: Boolean) of object;

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

procedure TObject;

DockClient: TControl;

var TRect;

MousePos: TPoint;

var CanDock: Boolean);

begin if DockClient is TBitBtn then CanDock := False;

end;

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

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

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

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

X, Y: Integer);

begin (Sender as as end;

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

= public constructor override;

end;

constructor TComponent);

begin inherited BorderStyle := bsNone;

end;

procedure begin := TMyCustomFloatingForm;

end;

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

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

procedure begin alClient);

end;

procedure begin with do begin div 2, div div 2, div 2) );

end;

Close ;

'•• | j 'Green ' K i Red Teal | Undo 27.3. Плавающие панели инструментов без заголовка окна Полное рассмотрение внутреннего устройства механизмов Drag-and-Dock потребовало бы расширения объема этой главы. Тем, кто хочет использо вать их на все 100%, рекомендуем обратиться к свойствам 674 Часть VII. Технологии программирования и Последнее представляет собой СОМ-интерфейс, позволяю щий расширить возможности дока, вплоть до записи его состояния в поток (класс Усовершенствованное масштабирование В класс добавлены свойства, позволяющие упростить масштабиро вание форм и находящихся на них компонентов.

СВОЙСТВО = (akLeft, akTop, akRight, akBottom);

TAnchors = set of TAnchorKind;

property Anchors: TAnchors;

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

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

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

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

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

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

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

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

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

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

virtual;

унаследованный от класса При необходимости работы в форме применяется метод function TWinControi): Boolean;

virtual;

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

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

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

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

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer) of object;

property TMouseEvent;

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

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

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

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

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

type = procedure (Sender: TObject;

Button:

Shift: TShiftState;

X, Y: Integer) of object;

property TMouseEvent;

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

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

Shift: TShiftState;

X, Y: Integer) of object;

property OnMouseMove: TMouseMoveEvent;

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

property TNotifyEvent;

property OnDblClick: TNotifyEvent;

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

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

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

property TMouseWheelEvent;

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

property TMouseWheelUpDownEvent;

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

property TMouseWheelUpDownEvent;

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

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

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

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

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

Ro При значении True реакция property Boolean;

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

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

Ro Задает сообщение, посылаемое type = при прокрутке в property UINT;

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

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

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

interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, type = ColorDlg: TColorDialog;

StatusBar: TStatusBar;

Timer:

procedure TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

procedure TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

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

Shift: TShiftState;

X, Y: Integer);

procedure TObject);

private MouseRect: TRect;

Boolean;

RectColor: TColor;

public { Public declarations } end;

var TMainForm;

implementation {$R procedure TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

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

Left := X;

Top := Y;

Right := X;

Bottom := Y;

:= RectColor;

end;

if (Button = and then RectColor := end;

procedure TObject;

Button: TMouseButton;

Shift: TShiftState;

X, Y: Integer);

begin IsDown := False;

:= Color;

with MouseRect do Top), Top), Bottom), Bottom), Top)]);

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

end;

end;

procedure TObject;

Shift: TShiftState;

X, Y: Integer);

begin with do begin := 'X: + := 'Y: ' + end;

if Not then Exit;

:= Color;

with do begin Top), Top), Bottom), Bottom), Top)]);

Right := X;

Bottom := Y;

:= RectColor;

Top), Top), Bottom), Bottom), Top)]);

end;

with StatusBar do begin := 'Ширина: ' + := 'Высота: ' + end;

end;

procedure TObject);

begin with StatusBar do begin := 'Дата: ' + := 'Время: ' + end;

end;

end.

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

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

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

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

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

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

Для стирания старого прямоугольника желательно использовать режимы и 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 begin end;

procedure TObject);

begin := AppHint;

end;

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

function Hint: string): string;

function Hint: string): string;

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

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

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

property HintPause: Integer;

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

property HintShortPause: Integer;

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

property TShowHintEvent;

= procedure (var HintStr: string;

var CanShow: Boolean;

var of object;

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

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

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

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

THintlnfo = record HintControl: TControl;

HintPos: TPoint;

Integer;

HintColor: TColor;

CursorRect: TRect;

CursorPos: TPoint;

end;

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

procedure HintStr: string;

var CanShow:

Boolean;

var Hintlnfo: THintlnfo);

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

end;

end;

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

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

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

Свойство property Boolean;

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

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

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

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

procedure CancelHint;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

f Important note about DLL memory management: 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 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;

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

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

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

Блок end называется блоком инициализации библиотеки и предназна чен для размещения кода, который автоматически выполняется при загруз ке Между секцией 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, Classes, Messages, Forms, Dialogs, StdCtrls, function ValidDate(AText: String): Integer;

begin try Result := 0;

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

end;

end;

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

begin try Result := 0;

(AText)';

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

end;

end;

function String): Integer;

begin try Result := 0;

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

end;

end;

exports Validlnt, ValidDate index 1, ValidTime index 2 name begin if < then представлен двумя цифрами');

end.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

const = 0;

= 1;

DLL_THREAD_ATTACH 2;

= 3;

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

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

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

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

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

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

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

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

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

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

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

begin case Reason of загрузка DLL');

новый поток');

;

end;

end;

begin DLLProc := end.

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

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

end;

var TSomeObject;

procedure Word);

begin case Reason of begin FirstObj := 'Объект создан';

end;

новый поток');

end;

end;

begin DLLProc := end.

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

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

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

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

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

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

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

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

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

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

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

I Листинг 28.5. Модуль главной формы проекта DemoDLLl unit interface uses Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

type = TEdit;

Edit2: TEdit;

Edit3: TEdit;

TLabel;

Label2: TLabel;

TLabel;

procedure TObject);

procedure TObject);

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

var TMainForm;

function String): Boolean;

external 'DataCheck.dll';

function String): Boolean;

external 'DataCheck.dll';

function String): Boolean;

external 696 Часть VII. Технологии программирования implementation procedure TObject);

begin if not then end;

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

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

end.

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

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

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

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

Листинг 28.6. Модуль главной формы проекта DemoDLL2 j unit interface Глава 28. Динамические библиотеки Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type StandardProc = String): Boolean;

= TEdit;

Edit2: TEdit;

Edit3: TEdit;

TLabel;

Label2: TLabel;

Label3: TLabel;

procedure procedure TObject);

procedure TObject;

var Action: TCloseAction);

procedure procedure private DLLHandle:

LoadError: Word;

StandardProc;

IsValidDate: StandardProc;

ValidTime: StandardProc;

public { Public declarations } end;

var TMainForm;

implementation procedure begin DLLHandle := if DLLHandle = 0 then begin if GetLastError = then загрузки Close;

end;

698 Часть VII. Технологии программирования := := := end;

procedure TObject;

var Action: TCloseAction);

begin if DLLHandle О О then ;

end;

procedure TObject);

begin if not then end;

procedure begin if not then Editl.

end;

procedure TObject);

begin if not then end;

end.

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

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

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

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

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

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

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

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

procedure begin DemoForm := end;

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

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

procedure TComponent);

external 'DataCtrl.dll';

procedure TObject);

begin end;

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

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

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

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

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

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

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

Resource DLL Wizard • Select more projects for which to make To change a root or base language, simply click it. The root the top most directory of ' ' Select All;

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

Resource DLL Wizard or more languages for which to resource edit an click on •' • •.

:

Locale.. •.' Portuguese (Brazil) PTB Portuguese (Portugal) • Romanian $00000418 ROM • Sanskrit $0000044F • Serbian (Cyrillic) •.:

• • Serbian (Latin) SRL • Slovak SKY Cancel :

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

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

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

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

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

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

Часть VII. Технологии программирования Resource DLL Wizard language! you each resource a simply click on 28.4. Диалог мастера библиотеки ресурсов со списком папок для ресурсов локализации проекта add files toyour files know about but you need to do your translations:: I.e., Source code, binary Forms I 28.5. Диалог мастера библиотеки ресурсов для включения в проект дополнительных файлов Processed - [0,701 seconds].

• | L a n g u a g e s :...

| j | N e w | R e s o u r c e S c r i p t s | C h a n g e d :

j T o t a l :

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

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

листинг 28.1).

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

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

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

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

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

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

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

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

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

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

• класс в Delphi;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

type = procedure (Sender: TObject;

var Done: Boolean) of object;

property Onldle: TIdleEvent;

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

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

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

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

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

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

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

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

Real time;

Normal;

High;

Below normal;

Above normal;

Idle.

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

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

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

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

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

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

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

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

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

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

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

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

л Options performance for;

;

•• ••.

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

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

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

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

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

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

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

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

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

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

procedure Execute;

virtual;

abstract;

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

( Примечание Хотя формальное описание метод abstract, но мастер создания нового объекта TThread создает для вас пустой шаблон этого метода.

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

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

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

procedure begin repeat DoSomething;

Until CancelCondition or Terminated;

end;

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

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

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

constructor Boolean);

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

destructor Destroy;

override;

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

function Terminate: Integer;

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

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

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

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

property Boolean;

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

function Integer;

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

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

property Handle: THandle read FHandle;

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

property Priority: TThreadPriority;

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

Приоритеты потоков в деталях описаны выше. Допустимыми значения ми ДЛЯ TThread ЯВЛЯЮТСЯ tpNormal, tpHigher, tpHighest И procedure TThreadMethod);

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

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

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

а в потоке для показа сообщения писать не и даже не а только так:

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

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

procedure Resume;

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

procedure Suspend;

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

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

property Suspended: Boolean;

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

property ReturnValue: Integer;

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

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

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

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

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

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

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

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

Переименуйте главную форму в 3. Откройте меню File и выберите пункт Save Project As. Сохраните модуль как uMain, а проект — 716 Часть VII. Технологии программирования Pi Built-i • • n •. Computed • : • • • • '. •. • 29.2. Внешний вид формы для приложения 4. Откройте меню и выберите пункт New. Затем дважды щелкните на объекте типа поток (значок Thread Object). Откроется диалоговое окно New Items, показанное на рис. 29.3.

Items Modules] | j Business Documents:

j Forms Dialogs 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 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 Service W i z a r d Application Web Server Unit Application 29.3. Диалоговое окно New Items с выбранным объектом типа "поток" Object glass Name 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;

end;

until Terminated or - PrevValue)<1E-19);

end;

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

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

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

PiThread : TPiThread;

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

GlobalCounter : Int64;

И метод UpdatePi:

procedure begin if then Exit;

:= ffFixed, 18, 18);

:= + ' iterations';

end;

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

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

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

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

begin := ffFixed, 18, 18);

end;

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

procedure TObject);

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

:= tpLower;

end else begin if then end;

end;

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

Built-i 3. n value Computed value iteration» 29.5. Выполняющееся приложение Threadsl Пока один из авторов писал текст этого раздела, запущенное одновременно приложение Threadsl выполнило пять миллиардов итераций и приблизилось к встроенному значению в десятом разряде. Интересно, насколько хватит терпения у вас?

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

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

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

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

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

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

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

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

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

Глава 29. Потоки и Inc(i);

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

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

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

:= // Здесь можно что-нибудь делать, пока второй поток производит вычисления // Теперь ожидаем его завершения Приведенная схема совершенно если во время своей работы ПОТОК MyCompThread обращается К VCL Synchronize.

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

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

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

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

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

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

Примечание Перечисленные выше средства синхронизации в основном инкапсулированы в состав классов Delphi. У программиста есть две альтернативы. С одной сто роны, в состав библиотеки VCL включен модуль содержащий классы для события (TEvent) и критической секции (TCriticalSection). С дру гой, с Delphi поставляется отличный пример который иллюстрирует проблемы взаимодействия процессов и содержит модуль IPCTHRD.PAS с ана логичными классами — для того же события, взаимного исключения а также совместно используемой памяти Перейдем к подробному описанию объектов, используемых для синхрони зации.

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

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

constructor ManualReset, InitialState: Boolean;

const Name: string);

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

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

= function DWORD): TWaitResult;

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

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

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

Var res:

procedure begin e := 'test');

repeat e.ReSetEvent;

res := until Terminated;

end;

procedure TSimpleThread.Showlnfo;

begin end;

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

procedure begin end;

procedure TObject);

begin e.SetEvent;

end;

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

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

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

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

constructor Name: string);

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

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

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

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

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

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

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

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

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

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

критическая секция всегда ждет столько, сколько потребуется.

Возьмем класс (модуль SYNCOBJS.PAS). Логика использо вания его проста — "держать и не пущать". В многопотоковом приложении создается и инициализируется общая для всех потоков критическая секция.

Когда один из потоков достигает критически важного участка кода, он пы тается захватить секцию вызовом метода Enter:

try finally end;

Когда другие потоки доходят до оператора захвата секции Enter и обнару живают, что она уже захвачена, они приостанавливаются вплоть до осво бождения секции первым потоком путем вызова метода Leave. Обратите внимание, что вызов Leave помещен в конструкцию здесь требуется стопроцентная надежность. Критические секции являются сис темными объектами и подлежат обязательному освобождению — впрочем, как и остальные рассматриваемые здесь объекты.

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

726 Часть VII. Технологии программирования Рассмотрим, как, собственно, один процесс может породить другой. Вместо устаревшей и поддерживаемой только для совместимости функции перекочевавшей из прежних версий Windows, гораздо правильнее использо вать более мощную:

function PChar;

lpProcessAttributes, PSecurityAttributes;

BOOL;

DWORD;

Pointer;

lpCurrentDirectory: PChar;

const TStartupInfo;

var lpProcessinformation: BOOL;

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

NORMAL_PRIORITY_CLASS — нормальный приоритет.

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

На выходе функции заполняется структура lpProcessinformation. В ней про граммисту возвращаются дескрипторы и идентификаторы созданного про цесса и его первичного потока. Нам понадобится дескриптор процесса — в нашем примере создается консольное приложение, затем происходит ожидание его завершения. "Просигналит" нам об этом именно объект i Листинг 29.1. Порождение дочернего процесса j var lpStartupInfo: TStartupInfo;

lpProcessinformation: TProcessInformation;

begin,#0) ;

:= ;

:= := if not nil, nil, false, Глава 29. Потоки и процессы or nil, nil, then else begin 10000);

end;

end;

Поток Поток может ожидать другой поток точно так же, как и другой процесс.

Ожидание можно организовать с помощью функций API (как в только что рассмотренном примере), но удобнее это сделать при помощи метода Консольный ввод (console input) годится для потоков, которые должны ожи дать отклика на нажатие пользователем клавиши на клавиатуре. Этот тип ожидания может быть использован в программе дуплексной связи (chat).

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

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

Оповещение об изменении в файловой системе Этот вид объекта ожидания очень интересен и незаслуженно мало известен.

Мы рассмотрели практически все варианты того, как один поток может по дать сигнал другому. А как получить сигнал от операционной системы? Ну, например, о том, что в файловой системе произошли какие-то изменения?

Такой вид оповещения позаимствован из ОС UNIX и доступен программи стам, работающим с Win32.

Для организации мониторинга файловой системы нужно использовать функции — FindFirstChangeNotification, FindNextChangeNotification И Первая из них возвращает дескриптор объекта файлового оповещения, который можно передать в функцию ожидания.

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

Так может выглядеть код метода Execute потока, созданного для монито ринга файловой системы:

var DirName : string;

procedure TSimpleThread.Execute;

var r: Cardinal;

fn : THandle;

begin fn := True, repeat r := if r = then if not then break;

until Terminated;

end;

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

procedure TObject);

var dir : string;

begin if then begin Editl.Text := dir;

DirName := dir;

end;

end;

procedure var SearchRec: TSearchRec;

begin faAnyFile, SearchRec);

repeat Глава 29. Потоки и процессы until <> 0;

end;

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

Локальные данные потока Интересная проблема возникает, если в приложении будет несколько оди наковых потоков. Как избежать совместного использования одних и тех же переменных несколькими потоками? Первое, что приходит на ум, — доба вить и использовать поля объекта — потомка TThread, которые можно доба вить при его создании. Каждый поток соответствует отдельному экземпляру объекта, и их данные пересекаться не будут. (Кстати, это одно из больших удобств использования класса TThread.) Но есть функции API, которые знать не знают об объектах Delphi и их полях и свойствах. Для поддержки разделения данных между потоками на нижнем уровне в язык Object Pascal введена специальная директива — threadvar, которая отличается от дирек тивы описания переменных var тем, что применяется только к локальным данным потока. Следующее описание:

Var Integer;

threadvar data2: Integer;

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

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

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

730 Часть VII. Технологии программирования Пример такого ресурса — общий блок в файле, отображаемом в память.

Поскольку этот ресурс имеет имя, можно сделать его уникальным именно для вашего приложения:

var UniqueMapping : THandle;

FirstWindow : THandle;

begin UniqueMapping := nil, 0, 32,'MyMap');

if UniqueMapping = 0 then begin Halt;

end else if GetLastError = then begin FirstWindow := 0, nil);

if FirstWindowOO then Halt;

end;

// Нет других копий — продолжение Примерно такие строки нужно вставить в начало текста проекта до созда ния форм. Блок совместно используемой памяти выделяется в системном страничном файле (об этом говорит первый параметр, равный 1, см. опи сание функции CreateFileMapping). имя — МуМар. Если при создании бло ка будет получен код ошибки ЭТО свидетельствует о наличии работающей копии приложения. В этом случае приложение пере ключает фокус на главную форму другого экземпляра и завершается;

в про тивном случае процесс инициализации продолжается.

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

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

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

Если вы обращаетесь к полям или методам объектов VCL, делайте это только посредством метода "пересинхронизируйте" ваше приложение, а не то оно будет работать как один единственный поток. Избыточно синхронизированное прило жение теряет все преимущества от наличия нескольких потоков, т. к. они будут постоянно останавливаться и ждать синхронизации.

Потоки предоставляют изящное решение некоторых сегодняшних проблем программирования;

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

ГЛАВА Многомерное представление данных Помимо стандартных компонентов отображения данных в VCL Delphi име ются дополнительные компоненты, которые позволяют представлять дан ные в виде кросстаба. При этом заставить работать кросстаб с двумя и более полями почти так же просто, как и обычный компонент TDBGrid. Эти ком поненты расположены на странице Decision Cube Палитры компонентов.

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

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

для чего необходим кросстаб;

особенности запросов для многомерного представления;

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

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

Создать подобную двумерную структуру отображения данных при помощи обычных компонентов со страницы Data Controls Палитры компонентов очень непросто и хлопотно.

Глава 30. Многомерное представление данных 1997 1998 Geo Tech Inc. 18470.00 — Corp. 120000.00 3400.80 93773220. Corporation — 7349.50 76300. 30.1. Пример кросстаба В общем случае горизонтальную и вертикальную структуры кросстаба могут составлять несколько полей одновременно, которые сгруппированы относи тельно более общих полей.

Pages:     | 1 |   ...   | 7 | 8 || 10 |



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

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