WWW.DISSERS.RU

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

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

Pages:     | 1 |   ...   | 2 | 3 || 5 | 6 |   ...   | 11 |

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

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

begin fn := FindFirstChangeNotificationtpChar(DirName),True, FILE_NOTIFY_CHANGE_FILE_NAME);

repeat r := WaitForSingleObject(fn,2000);

if r = WAIT_OBJECT_0 then Forml.UpdateList;

if not FindNextChangeNotification(fn) then break;

until Terminated;

FindcioseChangeNotification(fn);

end;

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

procedure TForml.ButtonlClick(Sender: TObject);

var dir : string;

begin if SelectDirectory(dir,[],0) then begin Edit1.Text := dir;

DirName := dir;

end;

end;

procedure TForml.UpdateList;

var SearchRec: TSearchRec;

220 Часть II. Интерфейс и логика приложения begin ListBoxl.Clear;

FindFirst(Editl.Text+'\*.*', faAnyFile, SearchRec);

repeat ListBoxl.Items.Add(SearchRec.Name);

until FindNext(SearchRec) <> 0;

FindClose(SearchRec);

end;

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

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

Вообще говоря, в 32-разрядной Windows под "памятью" подразумевается не только оперативная память (ОЗУ), но также и память, резервируемая опе рационной системой на жестком диске. Этот вид памяти называется вирту альной памятью. Код и данные отображаются на жесткий диск посредством страничной системы (paging system) подкачки. Страничная система исполь зует для отображения страничный файл (win386.swp в Windows 95/98 и pagefile.sys в Windows NT). Необходимый фрагмент виртуальной памяти пе реносится из страничного файла в ОЗУ и, таким образом, становится доступным.

А что, если так же поступить и с любым другим файлом и сделать его частью адресного пространства? В Win32 это возможно. Для выделения фрагмента памяти должен быть создан специальный системный объект Win32, называемый отображаемым файлом. Этот объект "знает", как соотнести файл, находящийся на жестком диске, с памятью, адресуемой процессами.

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

Создание и использование объектов файлового отображения осуществляется посредством функций Windows API. Этих функций три:

CreateFileMapping MapViewOfFile UnMapViewOfFile Отображаемый файл создается операционной системой при вызове функ ции CreateFileMapping. Этот объект поддерживает соответствие между со Глава 9. Файлы и устройства ввода/вывода держимым файла и адресным пространством процесса, использующего этот файл. Функция CreateFiieMapping имеет шесть параметров:

function CreateFiieMapping(hFile: THandle;

lpFileMappingAttributes:

PSecurityAttributes;

flProtect, dwMaximumSizeHigh, dwMaximumSizeLow:

DWORD;

lpName: PChar): THandle;

Первый параметр имеет тип THandle. Он должен соответствовать дескрипто ру уже открытого при помощи функции CreateFiie файла. Если значение параметра hFile равно $FFFFFFFF, TO ЭТО приводит к связыванию объекта файлового отображения со страничным файлом операционной системы.

Второй параметр — указатель на запись типа TSecurityAttributes. При от сутствии требований к защите данных в Windows NT значение этого пара метра всегда равно nil. Третий параметр имеет тип DWORD. ОН определяет атрибут защиты. Если при помощи отображаемого файла вы планируете совместное использование данных, третьему параметру следует присвоить значение PAGE_READWRITE.

Четвертый и пятый параметры также имеют тип DWORD. Когда выполняется функция CreateFiieMapping, значение типа DWORD четвертого параметра сдви гается влево на четыре байта и затем объединяется со значением пятого па раметра посредством операции and. Проще говоря, значения объединяются в одно 64-разрядное число, равное объему памяти, выделяемой объекту файлового отображения из страничного файла операционной системы. По скольку вы вряд ли попытаетесь осуществить выделение более чем 4 Гбайт данных, то значение четвертого параметра всегда должно быть равно нулю.

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

Шестой параметр имеет тип PChar и представляет собой имя объекта файло вого отображения.

Функция CreateFiieMapping возвращает значение типа THandle. В случае ус пешного завершения возвращаемое функцией значение представляет собой дескриптор созданного объекта файлового отображения. В случае возникно вения какой-либо ошибки возвращаемое значение будет равно 0.

Следующая задача — спроецировать данные файла в адресное пространство нашего процесса. Этой цели служит функция MapviewOfFiie. Функция MapviewOf File имеет пять параметров:

function MapViewOfFile(hFileMappingObject: THandle;

dwDesiredAccess:

DWORD;

dwFileOffsetHigh, dwFileOffsetLow, dwNumberOfBytesToMap: DWORD):

Pointer;

Первый параметр имеет тип THandle. Его значением должен быть дескрип тор созданного объекта файлового отображения — тот, который возвращает 222 Часть II. Интерфейс и логика приложения функция createFileMapping. Второй параметр определяет режим доступа к ф а й л у : FILE_MAP_WRITE, FILE_MAP_READ ИЛИ FILE_MAP_ALL_ACCESS.

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

Пятый (и последний) параметр функции MapViewOfFile, как и предыдущие параметры, имеет тип DWORD. ОН используется для определения (в байтах) количества данных объекта файлового отображения, которые надо отобра зить в процесс (сделать доступными для вас). Для достижения наших целей это значение должно быть установлено в нуль, что означает автоматическое отображение в процессе всех данных, выделенных перед этим функцией CreateFileMapping.

Значение, возвращаемое функцией MapViewOfFile, имеет тип "указатель".

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

Следующий фрагмент кода демонстрирует вызов функции MapViewOfFile:

var hMappedFile: THandle;

pSharedBuf: PChar;

begin hMappedFile := CreateFileMapping (FHandle, nil, PAGE_READWRITE, 0, 0, ' SharedBlock') ;

' if (hMappedFile = 0) then ShowMessage('Mapping error!') else begin pSharedBuf := MapViewOfFile(hMappedFile, FILE_MAP_ALL_ACCESS, 0, 0, 0 ) ;

if (pSharedBuf = nil) then ShowMessage ('MapView error');

end;

end;

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

Последние две функции, имеющие отношение к объекту файлового отобра жения, называются UnMapViewOfFile И CloseHandle. Функция UnMapViewOfFile делает то, что подразумевает ее название. Она прекращает отображение Глава 9. Файлы и устройства ввода/вывода в адресное пространство процесса того файла, который перед этим был ото бражен При П М Щ ФУНКЦИИ MapViewOfFile. ФуНКЦИЯ CloseHandle Закрыва ОО И ет дескриптор объекта файлового отображения, возвращаемый функцией CreateFileMapping.

ФуНКЦИЯ UnMapViewOfFile Должна вызываться перед функцией CloseHandle.

Функции UnMapViewOfFile передает единственный параметр типа указатель:

procedure TClientForm.FormDestroy(Sender: TObject);

begin UnMapViewOfFile(pSharedBuf);

CloseHandle(hFileMapObj);

end;

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

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

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

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

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

ГЛАВА 1 Использование графики "Одно изображение стоит тысячи слов", — говорил древнекитайский импе ратор Сун;

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

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

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

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

Обязательным для любого объекта, связанного с графикой в Delphi, являет ся событие:

property OnChange: TNotifyEvent;

Его обработчик вызывается всякий раз, когда меняются какие-то характери стики объекта, влияющие на его внешний вид.

Глава 10. Использование графики Класс TFont Класс инкапсулирует шрифт Windows. В Delphi допускаются только гори зонтально расположенные шрифты. В конструкторе объекта по умолчанию принимается шрифт System, цвета ciwindowText и размером 10 пунктов.

Свойства класса приведены в табл. 10.1.

Таблица 10.1. Свойства класса TFont Свойство Описание Содержит дескриптор шрифта property Handle: HFont;

Содержит имя (начертание) шрифта, на property Name: TFontName;

пример, Arial Содержит стиль (особенности начертания) property Style: TFontStyles;

шрифта: соответственно жирный, курсив, TFontStyle = (fsBold, fsltalic, подчеркнутый и перечеркнутый fsUnderline, fsStrikeOut);

TFontStyles = set of TFontStyle;

Определяет цвет шрифта property Color: TColor;

TColor = -(COLOR_ENDCOLORS + 1)..$2FFFFFF;

Содержит номер набора символов шрифта.

property Charset: TFontCharset TFontCharset = 0..255;

По умолчанию равно 1 (DEFAULT_CHARSET).

Для вывода символов кириллицы требуется RUSSIAN CHARSET Определяет способ установки ширины property Pitch: TFontPitch;

символов шрифта. Значение fpFixed со TFontPitch = (fpDefault, ответствует моноширинным шрифтам;

fpVariable, fpFixed);

f p V a r i a b l e — шрифтам с переменной ши риной символа. Установка f p D e f a u l t оз начает принятие того способа, который определен начертанием Содержит значение высоты шрифта в пик property Height: Integer;

селах Определяет число точек на дюйм. Перво property PixelsPerlnch: Integer;

начально равно числу точек на дюйм в кон тексте экрана. Программист не должен изменять это свойство, т. к. оно использу ется системой для приведения изображе ния на экране и на принтере к одному виду Содержит размер шрифта в пунктах (как property Size: Integer;

принято в Windows). Это свойство связано с Height соотношением:

Font.Size := -Font.Height*72/ Font.PixelsPerlnch 8 Зак. 226 Часть II. Интерфейс и логика приложения Установка этих свойств вручную, как правило, не нужна. Если вы хотите изменить шрифт для какого-то компонента, воспользуйтесь компонентом TFontDiaiog. В нем можно и поменять свойства, и сразу увидеть получив шийся результат на тестовой надписи;

потом выбранный шрифт присваива ется свойству Font нужного компонента:

if FontDialogl.Execute then Editl.Font := FontDialogl.Font;

С Примечание ^ Если вы хотите, не закрывая диалог, увидеть результат применения шрифта на вашем тексте, включите опцию fdApplyButton в свойстве Options объекта TFontDiaiog и напишите для него обработчик события OnApply. При этом в диалоговом окне появится кнопка Apply, по нажатии которой (событие OnApply) можно изменить параметры шрифта.

Класс ТРеп Этот класс инкапсулирует свойства пера GDI Windows. В конструкторе по умолчанию создается непрерывное (pssoiid) черное перо шириной в один пиксел. Свойства класса приведены в табл. 10.2.

Таблица 10.2. Свойства класса ТРеп Свойство Описание property Handle: HPen;

Содержит дескриптор пера property Color: TColor;

Определяет цвет пера property Mode: TPenMode;

Содержит идентификатор одной из TPenMode = (pirBlack, pmWhite, растровых операций, которые оп pmNop, pmNot, pmCopy, pmNotCopy, ределяют взаимодействие пера с pmMergePenNot, pmMaskPenNot, поверхностью. Эти операции соот pnMergeNotPen, prrMaskNotPen, pirMerge, ветствуют стандартным, опреде pmNotMerge, pmMask, pmNotMask, pmXor, ленным В Windows pmNotXor);

property S t y l e : TPenStyle;

Определяет стиль линии, рисуемой TPenStyle = (psSolid, psDash, psDot, пером. Соответствующие стили psDashDot, psDashDotDot, psClear, также определены в Windows psInsideFrame);

property Width: I n t e g e r ;

Содержит значение толщины пера в пикселах К сожалению, пунктирные и штрихпунктирные линии (стили psDash, psDot, psDashDot, psDashDotDot) могут быть установлены только для линий единич Глава 10. Использование графики ной толщины. Более толстые линии должны быть сплошными — такое ог раничение существует в Windows.

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

Класс TBrush Этот класс инкапсулирует свойства кисти — инструмента для заливки облас тей. Когда создается экземпляр этого класса, первоначально используется белая сплошная (styie=bsSoiid) кисть. Свойства класса приведены в табл. 10.3.

Таблица 10.3. Свойства класса TBrush Свойство Описание Содержит дескриптор кисти property Handle: HBrush;

Определяет цвет кисти property Color: TColor;

property Style: TBrushStyle;

Определяет стиль кисти (фактура закраски) TBrushStyle = (bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross);

Содержит битовую карту, определенную поль property Bitmap: TBitmap;

зователем для закраски поверхностей. Если это свойство определено, то свойства Color и s t y l e недействительны Шрифт, перо и кисть не могут использоваться самостоятельно. Они явля ются составными частями специального класса, который и будет сейчас рассмотрен.

Класс TCanvas Этот класс — сердцевина графической подсистемы Delphi. Он объединяет в себе и "холст" (контекст конкретного устройства GDI), и "рабочие инст рументы" (перо, кисть, шрифт), и даже "подмастерьев" (набор функций по рисованию типовых геометрических фигур). Будем называть его канвой.

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

Читатели, знакомые с графикой Windows, узнают в TCanvas объектно ориентированную надстройку над контекстом устройства Windows (Device Context, DC). Дескриптор устройства, над которым "построена" канва, мо жет быть востребован для различных низкоуровневых операций. Он задает ся свойством:

property Handle: HDC;

Для рисования канва включает в себя шрифт, перо и кисть:

property Font: TFont;

property Pen: TPen;

property Brush: TBrush;

Кроме того, можно рисовать и поточечно, получив доступ к каждому пик селу. Значение свойства:

property Pixels[X, Y: Integer]: TColor;

соответствует цвету точки с координатами X, Y.

Необходимость отрисовывать каждую точку возникает нередко. Однако, ес ли нужно модифицировать все или хотя бы многие точки изображения, свойство Pixels надо сразу отбросить — настолько оно неэффективно. Го раздо быстрее редактировать изображение при помощи свойства scanLine объекта TBitmap;

об этом рассказано ниже.

Канва содержит методы-надстройки над всеми основными функциями рисования GDI Windows и свойства, которые приведены в табл. 10. и 10.5. При их рассмотрении имейте в виду, что все геометрические фигуры рисуются текущим пером. Те из них, которые можно закрашивать, закра шиваются с помощью текущей кисти. Кисть и перо при этом имеют теку щий цвет.

Таблица 10.4. Методы класса TCanvas Метод Описание procedure Arc (XI, Y I, X2, Метод рисует сегмент эллипса. Эллипс определя Y2, ХЗ, Y3, Х4, Y4: ется описывающим прямоугольником (Х1, Y1)— Integer) ;

(Х2, Y2);

его размеры должны лежать в диапа зоне от 2 до 32 767 точек.

Начальная точка сегмента лежит на пересече нии эллипса и луча, проведенного из его центра через точку (ХЗ, Y3). Конечная точка сегмента лежит на пересечении эллипса и луча, прове денного из его центра через точку (Х4, Y4). Сег мент рисуется против часовой стрелки Глава 10. Использование графики Таблица 10.4 (продолжение) Метод Описание Рисует хорду и заливает отсекаемую ею часть procedure Chord(XI, Yl, X2, эллипса. Эллипс, начальная и конечная точки Y2, ХЗ, Y3, Х4, Y4:

определяются, как в методе Arc Integer);

Рисует и закрашивает эллипс, вписанный в procedure Ellipse(XI, Yl, X2, прямоугольник (Х1, Y1) — (Х2, Y2) Y2: I n t e g e r ) ;

Проводит линию текущим пером из текущей procedure LineTo(X, Y:

точки в (X, Y) Integer) ;

Перемещает текущее положение пера (свойст procedure MoveTo во PenPos) в точку (X, Y) (X, Y: Integer) ;

Производит специальное копирование. Прямо procedure BrushCopy(const угольник Source из битовой карты Bitmap ко Dest: TRect;

Bitmap:

TBitmap;

const Source: пируется в прямоугольник Dest на канве;

при TRect;

Color: TColor);

этом цвет Color заменяется на цвет текущей кисти (Brush.Color).

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

Bitmap.TransparentColor) Производит копирование прямоугольника procedure CopyRect(const Source из канвы Canvas в прямоугольник Dest Dest: TRect;

Canvas:

в области самого объекта TCanvas;

const Source:

TRect);

Производит заливку прямоугольника (текущей procedure FillRect(const кистью) Rect: TRect);

Осуществляет рисование контура прямоуголь procedure FrameRect(const ника цветом текущей кисти (без заполнения) Rect: TRect);

Осуществляет рисование графического объек procedure Draw(X, Y: Integer;

та Graphic (точнее, вызов метода его рисова Graphic: Tgraphic);

ния) в области с верхним левым углом (X, Y) Осуществляет рисование объекта Graphic в procedure StretchDraw(const заданном прямоугольнике Rect. Если их раз Rect: TRect;

Graphic:

меры не совпадают, Graphic масштабируется TGraphic);

Производит отрисовку прямоугольной рамки из procedure DrawFocusRect(const точек (как на элементе, имеющем фокус вво Rect: TRect);

да). Поскольку метод использует логическую операцию XOR (исключающее ИЛИ), повторный вызов для того же прямоугольника приводит изображение к начальному виду Часть //. Интерфейс и логика приложения Таблица 10.4 (окончание) Описание Метод Производит заливку области текущей кистью.

procedure FloodFill(X, Y:

Процесс начинается с точки (X, Y). Если режим Integer;

Color: TColor;

FillStyle равен fsSurface, то он продолжа FillStyle: TfillStyle);

ется до тех пор, пока есть соседние точки с TFillStyle = (fsSurface, цветом Color. В режиме fsBorder закрашива fsBorder);

ние, наоборот, прекращается при выходе на границу с цветом Color Рисует сектор эллипса, описываемого прямо procedure Pie(XI, Yl, X2, Y2, угольником (Х1, Y1) — (Х2, Y2). Стороны секто X3, Y3, X4, Y4: Integer);

ра лежат на лучах, проходящих из центра эл липса через точки (ХЗ, Y3) и (Х4, Y4) Строит многоугольник, используя массив коор procedure Polygon(const динат точек Points. При этом последняя точка Points: array of TPoint);

соединяется с первой и внутренняя область закрашивается Строит ломаную линию, используя массив ко procedure Polyline(const ординат точек Points Points: array of TPoint);

Строит кривую Безье (кубический сплайн), ис procedure PolyBezier(const пользуя массив координат точек Points Points: array of TPoint);

Строит кривую Безье (кубический сплайн), ис procedure PolyBezierTo(const пользуя массив координат точек Points. Теку Points: array of TPoint);

щая точка используется в качестве первой Рисует прямоугольник с верхним левым углом procedure Rectangle(XI, Yl, в (Х1, Y1) и нижним правым в (Х2, Y2) X2, Y2: Integer);

Рисует прямоугольник с закругленными угла procedure RoundRect(XI, Yl, ми. Координаты вершин — те же, что и в методе X2, Y2, X3, Y3: Integer);

Rectangle. Закругления рисуются как сегмен ты эллипса с размерами осей по горизонтали и вертикали ХЗ и Y Задает высоту строки Text в пикселах function TextHeight(const Text: string): Integer;

Задает ширину строки Text в пикселах function TextWidth(const Text: string): Integer;

Производит вывод строки Text. Левый верхний procedure TextOut(X, Y:

угол помещается в точку канвы (X, Y) Integer;

const Text:

string);

Производит вывод текста с отсечением. Как и procedure TextRect(Rect:

в TextOut, строка Text выводится с позиции TRect;

X, Y: Integer;

(X, Y);

при этом часть текста, лежащая вне пре const Text: string);

делов прямоугольника Rect, отсекается и не будет видна Глава 10. Использование графики Таблица 10.5. Свойствакласса TCanvas Свойство Описание p r o p e r t y ClipRect: TRect;

Определяет область отсечения канвы. То, что при рисовании попадает за пределы этого прямо угольника, не будет изображено. Свойство доступ но только для чтения — его значение переустанав ливается системой в контексте устройства, с кото рым связана канва p r o p e r t y PenPos: TPoint;

Содержит текущую позицию пера канвы (изменя ется посредством метода MoveTo) Метод procedure Refresh;

сбрасывает текущие шрифт, перо и кисть, заменяя их на стандартные, за имствованные из установок Windows (BLACK_PEN, HOLLOW_BRUSH, SYSTEM_FONT).

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

property OnChange: TNotifyEvent;

property OnChanging: TNotifyEvent;

Эти события возникают при изменении свойств и вызове методов TCanvas, меняющих вид канвы (т. е. при любом рисовании. В методе MoveTo, напри мер, они не возникают). Отличие их в том, что событие OnChanging вызывает ся до начала изменений, а событие OnChange — после их завершения.

Идентификатор (код) растровой операции при копировании прямоугольных блоков содержится в свойстве property CopyMode: TCopyMode;

TCopyMode = Longint;

и определяет правило сочетания пикселов, копируемых на канву, с ее теку щим содержимым. При этом можно создавать разные изобразительные эффекты. В Delphi определены следующие константы кодов: cmBlackness, cmDstlnvert, cmMergeCopy, cinMeгдеPaint, cmNotSrcCopy, cmNotSrcErase, cmPatCopy, cmPatlnvert, cmPatPaint, cmSrcAnd, cmSrcCopy, cmSrcErase, cmSrcInvert, cmSrcPaint, cmWhiteness.

Все они стандартно определены в Windows, и подробное их описание можно найти в документации по GDI. Значением свойства CopyMode по умолчанию является cmSrcCopy — копирование пикселов источника поверх существующих.

Из возможностей, появившихся в классе TCanvas, следует отметить под держку рисования кривых (полиномов) Безье. Эта возможность впервые Часть II. Интерфейс и логика приложения появилась в API Windows NT. Для построения одной кривой нужны мини мум четыре точки — начальная, конечная и две опорные. По ним будет по строена кривая второго порядка. Если задан массив точек, они используют ся для построения последовательных кривых, причем последняя точка од ной кривой является первой для следующей кривой.

Хорошей иллюстрацией использования объекта TCanvas может служить при мер GraphEx, поставляемый вместе с Delphi (папка \Demos\Doc\GraphEx).

Есть только одно "но" — он приводится в неизменном виде, начиная с вер сии Delphi 1.0. Поэтому сделаем часть работы за программистов Borland.

В нашем примере модернизированы Панели инструментов — они выполне ны на компонентах TTooiBar и TControiBar;

добавлена поддержка файлов JPEG;

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

|> Ga h x v. 7 rpE Fl E i ie dt s\оп Be Le RnRt Be er n ode et z i uc i -a DII] On (10.1.4 теперьr n (9,главная форма примера GraphEx ri: 4,4Так C выглядит g 0 ) ' uet 14 6) i :

Рис.

Где же найти ту канву, на которой предстоит рисовать? Во-первых, ею Снабжены все ПОТОМКИ классов TGraphicControl И TCustomControl, Т. е. ПОЧТИ все визуальные компоненты из Палитры компонентов;

в том числе и фор ма. Во-вторых, канву имеет растровая картинка (класс TBitmap);

вы можете писать и рисовать не на пустом месте, а на готовом изображении (об этом см. ниже в разд. "Класс TBitmap" данной главы). Но иногда нужно рисовать и прямо на экране. В этом случае придется прибегнуть к использованию Глава 10. Использование графики функций API. Функция GetDC возвращает контекст устройства заданного окна, если ей передается параметр 0 — то всего экрана:

ScreenCanvas := TCanvas.Create;

ScreenCanvas.Handle := GetDC(0);

// Рисование на ScreenCanvas ReleaseDC(0, ScreenCanvas.Handle);

ScreenCanvas.Free;

Пример необходимости рисования на экране — программы сохранения экрана (Screen savers).

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

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

КлассTGraphic Канва, перо, кисть и шрифт нужны, чтобы нарисовать свою картинку. Что бы загрузить готовую, необходимы объекты, "понимающие" графические форматы Windows.

Абстрактный класс TGraphic является родительским для трех видов изобра жений, общепринятых в графике Windows — значка (компонент Ticon), ме тафайла (компонент TMetafile) И растровой КарТИНКИ (компонент TBitmap).

Четвертым потомком TGraphic является TJPEGimage — сжатая растровая кар тинка в формате JPEG.

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

Метод:

procedure Assign(Source: TPersistent);

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

Загрузку и выгрузку графики в поток осуществляют методы:

procedure LoadFromStream(Stream: TStream);

procedure SaveToStream(Stream: TStream);

а загрузку и выгрузку в файл — методы:

procedure LoadFromFile(const Filename: string);

procedure SaveToFile(const Filename: string);

234 Часть II. Интерфейс и логика приложения Эти методы создают соответствующий файловый поток и затем вызывают методы LoadFromStream/SaveToStream.

Два метода осуществляют взаимодействие с буфером обмена Windows:

procedure LoadFromClipboardFormat(AFormat: Word;

AData: THandle;

APalette: HPALETTE);

procedure SaveToClipboardFormat(var AFormat: Word;

var AData: THandle;

var APalette: HPALETTE);

Здесь AFormat — ИСПОЛЬЗуеМЫЙ графический формат;

AData И APalette — данные и палитра (если она требуется). Потомок должен иметь свой формат представления в буфере обмена и уметь обрабатывать данные, представлен ные в нем.

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

Чтобы скрасить пользователю ожидание, программист может обработать событие OnProgress!

type TProgressStage = (psStarting, psRunning, psEnding);

TProgressEvent = procedure (Sender: TObject;

Stage: TProgressStage;

PercentDone: Byte;

RedrawNow: Boolean;

const R: TRect;

const Msg: string) of object;

property OnProgress: TProgressEvent;

Оно вызывается графическими объектами во время длительных операций.

Параметр stage означает стадию процесса (начало/протекание/завершение), a PercentDone — процент сделанной работы. Сразу оговоримся, что не все из тех объектов, которые будут нами описаны, вызывают обработчик события OnProgress.

Свойство:

property Empty: Boolean;

устанавливается в значение True, если графический объект пуст (в него не загружены данные).

Высота и ширина графического объекта задаются свойствами:

property Height: Integer;

property Width: Integer;

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

Наконец,свойство:

property Modified: Boolean;

показывает, модифицировался ли данный графический объект. Это свойст во устанавливается в значение True внутри обработчика события onChange.

Глава 10. Использование графики Многие графические объекты при отрисовке должны быть прозрачными.

Одни из них прозрачны всегда (значок, метафайл), другие — в зависимости от значения свойства property Transparent: Boolean;

Класс TPicture Это класс-надстройка над TGraphic, точнее — над его потомками. Он имеет поле Graphic, которое может содержать объекты классов TBitmap, Ticon, TMetafile и TJPEGimage. Предназначение класса TPicture — управлять вызо вами соответствующих методов, скрывая при этом хлопоты с определением типа графического объекта и детали его реализации.

Кроме того, на уровне TPicture определены возможности регистрации и использования других — определенных пользователем — классов графиче ских объектов, порожденных от TGraphic. Доступ к графическому объекту осуществляется посредством свойства:

property Graphic: TGraphic;

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

property Bitmap: TBitmap;

property Icon: Ticon;

property Metafile: TMetafile;

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

Imagel.Picture.LoadFromFile('myicon.ico');

//Создан и загружен объект класса Ticon MyBitmap := Imagel.Picture.Bitmap;

// прежний Ticon уничтожается Если же вы описали свой класс (допустим, TGiFimage), то к его методам и свойствам следует обращаться так:

(Graphic as TGIFImage).MyProperty := MyValue;

Перечислим остальные методы и свойства.

• procedure LoadFromFile(const Filename: string);

Анализирует расширение имени файла FiieName и если оно известно (за регистрировано), то создается объект нужного класса и вызывается его метод LoadFromFile. В противном случае возникает исключительная си туация EinvaiidGraphic. Стандартными расширениями являются ico, wmf 236 Часть II. Интерфейс и логика приложения (emf) и bmp. Если подключить к приложению модуль JPEG.PAS, то можно будет загрузить и файлы с расширениями jpg и jpeg.

П procedure SaveToFile(const Filename: string);

Сохраняет графику в файле, вызывая соответствующий метод объекта Graphic.

П procedure LoadFromClipboardFormat(AFormat: Word;

AData: THandle;

APalette: HPALETTE);

Во многом аналогичен методу LoadFromFiie. Если формат AFormat най ден среди зарегистрированных, то AData и APalette передаются для загрузки методу соответствующего объекта. Изначально зарегистри рованных форматов три: битовое изображение CF_BITMAP, метафайлы CF_METAFILEPICT И CF_ENHMETAFILE.

П p r o c e d u r e SaveToClipboardFormat(var AFormat: Word;

v a r AData: THandle;

v a r A P a l e t t e : HPALETTE);

Сохраняет фафику в буфере обмена, вызывая метод объекта Graphic.

О procedure Assign(Source: TPersistent);

Метод Assign переписан таким образом, чтобы присваиваемый объект мог принадлежать как классу TPicture, так и TGraphic или любого его по томка. Кроме того, он может быть равен nil — в этом случае поле Graphic очищается с удалением прежнего объекта.

П class function SupportsClipboardFormat(AFormat: Word): Boolean;

Метод класса возвращает значение True, если формат AFormat поддержи вается классом TPicture (зарегистрирован в системе). Напомним, что методы класса можно вызывать через ссылку на класс без создания экземпляра объекта.

• class procedure RegisterFileFormat(const AExtension, ADescription:

string;

AGraphicClass: TGraphicClass);

class procedure RegisterClipboardFormac(AFormat: Word;

AGraphicClass:

TGraphicClass);

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

C property Width: Integer;

J property Height: Integer;

Ширина и высота картинки. Значения этого свойства всегда те же, что и У Объекта ИЗ СВОЙСТВа G r a p h i c.

Все три разновидности графических объектов имеют свои системы кэширо вания. Это означает, что на один реально существующий в системе (и за Глава 10. Использование графики нимающий долю ресурсов!) дескриптор могут одновременно ссылаться не сколько объектов. Реализуется такое связывание через метод Assign. Выра жение:

Iconl.Assign(Icon2) ;

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

Более простым является кэширование для классов Ticon и TMetaf ile, кото рые умеют только отображать себя и не предназначены для редактирования (создатели Delphi считают, что дескриптор графического объекта дается программисту не для того, чтобы "ковыряться" в нем на уровне двоичных кодов). Гораздо сложнее устроен механизм кэширования для канала TBitmap, который имеет свою канву для рисования.

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

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

Кого-то может удивить отсутствие объявленных методов рисования, вроде метода Draw для классов Ticon, TMetafiie и TBitmap. Объяснение простое — в процессе рисования они играют пассивную роль;

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

Рассмотрим предопределенные графические классы.

КлассTMetafiie Инкапсулирует свойства метафайла Windows. С появлением Windows к стандартному метафайлу (формат WMF) добавился расширенный (формат EMF), обладающий расширенными возможностями. Соответственно в объ екте TMetafiie имеется свойство property Enhanced: Boolean;

Внутреннее представление метафайла всегда новое (EMF), и устанавливать свойство Enhanced в значение False следует только для обеспечения совмес тимости со старыми программами.

В классе TMetafiie перекрываются методы Assign, LoadFromStream, SaveToStream, LoadFromClipboardFormat, SaveToClipboardFormat. В буфер об 238 Часть II. Интерфейс и логика приложения мена объект помещает свое содержимое в формате CF_ENHMETAFILE. ПОМИМО общих, класс имеет следующие свойства:

• дескриптор метафайла property Handle: HMETAFILE;

• свойство property inch: Word. Число точек на дюйм в координатной системе метафайла. Связано с установленным режимом отображения;

• свойства property MMHeight: Integer;

property MMWidth: Integer;

это настоящие высота и ширина метафайла в единицах, равных 0,01 мм.

Свойства Height и width задаются в пикселах;

П в метафайл можно добавить свою палитру:

property Palette: HPalette;

• вы можете увековечить себя, установив два свойства метафайла:

property Description: string;

property CreatedBy: string;

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

Класс Tlcon Этот класс инкапсулирует значок Windows.

Не пытайтесь изменить размеры значка — они по определению постоянны (и равны GetSystemMetrics(SMCXICON) И GetSystemMetrics(SM_CYICON)), И При попытке присвоить новые значения возникает исключительная ситуация EinvalidGraphicOperation. Значок нельзя также читать и писать в буфер об мена, т. к. в Windows нет соответствующего формата.

Свойство Transparent для значка всегда равно значению True. Изменить его нельзя — значки прозрачны также по определению.

В ЭО Т М классе перекрываются методы класса TGraphic: Assign, LoadFromStream и SaveToStream. Дополнительно также определены:

• property Handle: HICON;

— Дескриптор ЗНЭЧКа;

• function ReleaseHandle: HICON;

— метод "отдает" дескриптор — ВОЗВра щает его значение, обнуляя ссылку на него в объекте.

Класс TBitmap Класс TBitmap является основой растровой графики в Delphi. В первых вер сиях среды этот класс соответствовал битовой карте, зависимой от устрой Глава 10. Использование графики ства (Device Dependent Bitmap, DDB). Этот формат хорош для деловой гра фики — отображения небольших картинок с малой глубиной цвета, напри мер, на кнопках. Формат DDB появился во времена первых версий Windows, когда еще не было графических ускорителей и кое-где еще пом нили о EGA. Поэтому и форматы хранения были привязаны к определен ным видеорежимам.

Со временем аппаратура совершенствовалась, росло и количество поддер живаемых видеорежимов. Появились режимы High Color (15—16 бит на точку) и True Color (24 бита на точку). Все это привело к тому, что картин ка стала храниться в аппаратно-независимом формате (Device Independent Bitmap, DIB), а проблемы ее быстрого отображения легли на аппаратуру и драйверы.

За формат битовой карты — DIB или DDB — отвечает свойство:

type TBitmapHandleType = (bmDIB, bmDDB);

property HandleType: TBitmapHandleType;

По умолчанию устанавливается режим bmDIB. Впрочем, можно заставить приложение, написанное на Delphi, вернуться к старому типу. Для этого нужно установить глобальную переменную DDBsOnly (модуль GRAPHICS.PAS) в значение True. Впрочем, необходимость этого сомнительна. Все новые видеокарты и драйверы к ним, а также графические интерфейсы (такие, как DirectX) оптимизированы для использования DIB.

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

TPixelFormat = (pfDevice, pflbit, pf4bit, pf8bit, pfl5bit, pfl6bit, pf24bit, pf32bit, pfCustom);

property PixelFormat: TPixelFormat;

Режим pfDevice соответствует битовой карте DDB. Глубина цвета в 1, 4 и бит на пиксел — традиционная и предусматривает наличие у изображения палитры. Другие режимы заботятся о хранении непосредственных яркостей точек в каждом из трех основных цветов — красном (R), зеленом (G) и си нем (В). Разрядность 15 бит соответствует распределению бит 5-5- (RGB555), 16 бит — RGB 565, 24 бит — RGB888. Режим 32 бит похож на 24-битный, но в нем дополнительно добавлен четвертый канал (альфа канал), содержащий дополнительную информацию о прозрачности каждой точки. Режим pfcustom предназначен для реализации программистом собст венных графических конструкций. В стандартном классе TBitmap установка свойства PixelFormat в режим pfcustom приведет к ошибке — поэтому ис пользовать его нужно только в написанных вами потомках TBitmap.

Битовая карта является одним из видов ресурсов. Естественно, что класс TBitmap поддерживает загрузку из ресурсов приложения:

240 Часть II. Интерфейс и логика приложения procedure LoadFromResourcelD(Instance: THandle;

ResID: Integer);

procedure LoadFromResourceName(Instance: THandle;

const ResName: string);

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

Канва битовой карты доступна через свойство:

property Canvas: TCanvas;

С ее помощью можно рисовать на поверхности растрового изображения.

Обратите внимание, что никакие другие потомки TGraphic канвы не имеют.

Дескрипторы битовой карты и ее палитры доступны как свойства:

property Handle: HBITMAP;

property Palette: HPALETTE;

Имея дело с классом TBitmap, учитывайте, что принцип "один объект — один дескриптор" из-за наличия механизма кэширования неверен. Два метода:

function ReleaseHandle: HBITMAP;

function ReleasePalette: HPALETTE;

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

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

П procedure Dormant — выгружает изображение в поток и уничтожает деск рипторы битовой карты и палитры;

CJ procedure Freeimage — "освобождающий" дескриптор битовой карты для дальнейшего использования и внесения изменений. Это означает, что если на данный дескриптор есть ссылки, то он дублируется;

поток очищается.

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

property Monochrome: Boolean;

Значение True соответствует монохромной битовой карте. При его измене нии происходит преобразование содержимого к требуемому виду.

За прозрачность битовой карты отвечают следующие свойства:

property TransparentColor: TColor;

type TTransparentMode = (tmAuto, tmFixed);

property TransparentMode: TTransparentMode;

Глава 10. Использование графики Если свойство TransparentMode установлено в режим tmAuto, то за прозрач ный (фоновый) принимается цвет верхнего левого пиксела. В противном случае этот цвет берется из свойства Transparentcoior.

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

procedure Mask(Transparentcoior: TColor);

property MaskHandle: HBitmap;

function ReleaseMaskHandle: HBitmap;

Наконец, последним по счету будет рассмотрено очень важное свойство би товой карты TBitmap. Если формат ее хранения — DIB, то есть возможность получить доступ к данным самой битовой карты:

property ScanLine[Row: Integer]: Pointer;

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

поэтому не удивляйтесь, если с ростом параметра Row значение свойства уменьшается.

Внутри строки данные упорядочены в соответствии с форматом (pixeiFormat). Для формата pf8bit все просто — каждый байт в строке соот ветствует одному пикселу. Для форматов pf I5bit и pf I6bit пикселу соответ ствуют два байта (в этих 16 битах упакованы данные о трех каналах), pf24bit — три байта (по байту на канал).

Примерно так может выглядеть обработчик события onMouseMove, выводя щий на панель состояния информацию о яркости в данной точке (подразу мевается, что формат битовой карты — 8 или 24 бита):

procedure TMainForm.ImageIMouseMove(Sender: TObject;

Shift: TShiftState;

X, Y: I n t e g e r ) ;

begin if not Assigned(Imagel.Picture.Bitmap) then Exit;

with Imagel. Picture.Bitmap, do case PixeiFormat of pf8bit: Statusbarl. SimpleText := FormatCx: %d y: %d b: %d',[x, y, pByteArray(ScanLine[y])л[x] ]);

pf24bit: Statusbarl. SimpleText := FormatCx: %d y: %d R: %d,G: %d, B: %d\ [x,y, pByteArray(ScanLine[y])л[3*х], pByteArray(ScanLine[у])A[ 3*x+l], л pByteArray(ScanLine[у]) [ 3*x+2]]);

end;

242 Часть II. Интерфейс и логика приложения Само значение свойства scanLine изменить нельзя (оно доступно только для чтения). Но можно изменить данные, на которые оно указывает. Вот так можно получить негатив 24-битной картинки:

Var l i n e : pByteArray;

For i : = 0 to Imagel.Picture.Bitmap.Height — 1 do Begin Line := Imagel.Picture.Bitmap.ScanLine[i];

For j : = 0 to Imagel.Picture.Bitmap.Width * 3 - 1 do LineA[j] := 255 - L i n e A [ j ] ;

End;

Если вы хотите решать более серьезные задачи — на уровне профессио нальных средств — на помощь может прийти библиотека обработки изо бражений фирмы Intel (Intel Image Processing Library). Этот набор инстру ментов позволяет разработчику включать в программы алгоритмы обработки изображений, написанные и оптимизированные специально для процессо ров фирмы Intel. Библиотека является свободно распространяемой, и по следняя ее версия располагается на Web-сайте фирмы. Интерфейсы к функ циям библиотеки для Delphi разработаны авторами этой книги и вместе с примерами находятся на прилагаемой к книге дискете.

) ( Примечание В Delphi можно столкнуться с "тезкой" рассматриваемого объекта — структурой TBitmap, описанной в файле WINDOWS.PAS. Поскольку обе они относятся к одной и той же предметной области, часто возникают коллизии, приводящие к ошибкам. Напомним, чтобы отличить структуры-синонимы, следует использо вать имя модуля, в котором они описаны. Поэтому если в вашей программе есть модули Windows и Graphics, то описывайте и употребляйте типы Windows.TBitmap И Graphics.TBitmap.

В состав Windows входят карточные игры (точнее, пасьянсы), которые чер пают ресурсы из динамической библиотеки cards.dll. Если вы откроете эту библиотеку в редакторе ресурсов, то увидите там изображения всех пятиде сяти двух карт и десятка вариантов их рубашек (оборотных сторон). Ис пользуем эту возможность для рисования карт. Так загружается битовая карта для рубашки:

var CardsDll : THandle;

BackBitmap : Graphics.TBitmap;

initialization CardsDll := LoadLibraryEx('cards.dll',0, LOAD_LIBRARY_AS_DATAFILE);

BackBitmap := Graphics.TBitmap.Create;

BackBitmap.LoadFromResourcelD(CardsDll, 64) ;

Глава 10. Использование графики finalization BackBitmap.Free;

FreeLibrary(CardsDll);

end.

Примечание В Windows 95/98 эта динамическая библиотека — 16-разрядная, и работать так, как описано, не будет. Используйте библиотеку Cards.dll из состава Windows NT, 2000.

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

При показе карты, в зависимости от того, открыта она или закрыта, отрисо вывается О И ИЗ Объектов TBitmap:

ДН if Known then // карта открыта Canvas.StretchDraw(ClientRect, FaceBitmap) else Canvas.StretchDraw(ClientRect,BackBitmap) end;

Графический формат JPEG.

КлассTJPEGImage В 1988 году был принят первый международный стандарт сжатия непод вижных изображений. Он был назван по имени группы, которая над ним работала — JPEG (Joint Photographic Expert Group). Дело в том, что стан дартные архиваторы (ZIP, ARJ) и традиционные алгоритмы сжатия в фор матах GIF, TIFF и PCX не могут достаточно сильно сжать полутоновую или цветную картинку (типа фотографии) — максимум в 2—3 раза. Применен ный в JPEG алгоритм позволяет достичь сжатия в десятки раз — правда, при этом изображение подвергается необратимому искажению, и из него пропадает часть деталей. Бессмысленно (и вредно!) подвергать хранению в формате JPEG чертежи, рисунки, а также любые изображения с малым числом градаций — он предназначен именно для изображений фотографи ческого качества.

Поддержка формата JPEG реализована в Delphi посредством класса TJPEGImage, КОТОРЫЙ ЯВЛЯеТСЯ ПОТОМКОМ Класса TGraphic.

( ) ^Примечание Название TJPEGImage не совсем удачное. К Timage этот класс не имеет ни ма лейшего отношения. Скорее, это "двоюродный брат" класса TBitmap.

К такому объекту предъявляются двоякие требования. С одной стороны, он должен поддерживать сжатие данных для записи на диск. С другой — рас 244 Часть II. Интерфейс и логика приложения пакованные данные в формате DIB, чтобы по требованию системы отрисо вать их. Поэтому объект класса TJPEGimage может хранить оба вида данных, а также производить их взаимные преобразования, т. е. сжатие и распаков ку. Для этого в нем предусмотрены методы:

procedure Compress;

procedure DIBNeeded;

procedure JPEGNeeded;

Рекомендуется вызывать метод DIBNeeded заранее, перед отрисовкой картин ки — это ускорит процесс ее вывода на экран.

Кроме того, полезно использовать метод Assign, который позволяет помес тить в класс TJPEGimage объект TBitmap и наоборот:

MyJPEGImage.Assign(MyBitmap) ;

MyBitmap.Assign(MyJPEGImage);

При этом происходит преобразование форматов.

Свойства TJPEGimage можно условно разделить на две группы: используемые при сжатии и при распаковке.

Важнейшим из свойств, нужных при сжатии, является CompressionQuality:

type TJPEGQualityRange = 1..100;

property CompressionQuality: TJPEGQualityRange;

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

( Примечание ^ Заранее предсказать размер сжатого файла нельзя — разные картинки сжима ются по-разному, даже при одном значении CompressionQuality.

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

Кроме CompressionQuality, на качество отображения может повлиять и свойство type TJPEGPerformance = (jpBestQuality, jpBestSpeed);

property Performance: TJPEGPerformance;

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

Глава 10. Использование графики Как и у класса TBitmap, у TjPEGimage есть свойство type TJPEGPixelFormat = (jf24Bit, jf8Bit);

property PixelFormat: TJPEGPixelForm;

Для рассматриваемого объекта возможных значений всего два— jf8bit и jf24bit. По умолчанию используется 24-битный формат. Если информация о цвете не нужна, то можно установить свойство Grayscale в значение True — в этом случае изображение будет записано (или распаковано) в по лутоновом виде (256 оттенков серого).

Свойства ProgressiveEncoding И ProgressiveDisplay определяют способ ПО каза изображения при распаковке. Первое из них отвечает за порядок записи в файл сжатых компонентов. Если ProgressiveEncoding установлено В значение True, начинает играть роль С О С В ProgressiveDisplay. От его В ЙТО значения зависит, будет ли показываться изображение по мере распаковки (при значении True), либо будет сначала полностью распаковано, а потом показано (при значении False).

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

type TJPEGScale = (jsFullSize, jsHalf, jsQuarter, jsEighth);

property Scale: TJPEGScale;

Искушенные в графике специалисты зададут вопрос: зачем оно? Ведь мож но прочитать изображение, а затем уменьшить его масштаб стандартными способами? Представление информации в файлах JPEG таково, что можно достаточно просто извлечь изображение сразу в нужном масштабе. Таким образом достигается двойной выигрыш — на времени распаковки и на вре мени отображения.

( Примечание ^ Печать растровых изображений может вызвать проблемы при согласовании его размеров с размерами листа принтера и его разрешением. Большую часть из них можно снять, изучив пример, поставляемый с Delphi — jpegProj. Он нахо дится не в папке \Demos, как обычно, а в папке Help\Examples\Jpeg.

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

Компонент Tlmage Этот компонент служит надстройкой над классом TPicture и замыкает всю иерархию графических объектов VCL. Именно на его поверхности и будут отображаться графические объекты, содержащиеся в свойстве:

property Picture: TPicture;

246 Часть II. Интерфейс и логика приложения В качестве канвы компонента (свойство canvas) используется канва объекта из свойства picture.Graphic, но только если поле Graphic ссылается на объ ект класса TBitmap. Если это не так, то попытка обращения к свойству вы зовет исключительную ситуацию EinvaiidOperation, т. к. рисовать на мета файле или значке нельзя.

Следующие три свойства определяют, как именно графический объект рас полагается в клиентской области компонента:

• property AutoSize: Boolean;

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

• property Stretch: Boolean;

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

В ЙТО • property Center: Boolean;

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

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

Программу для просмотра изображений в среде Delphi можно создать бук вально "в три счета":

1. Поместите на форму следующие компоненты: область прокрутки TScroliBox, на нее — компонент Timage (их верхние левые углы должны совпадать), любую кнопку (например, TButton) и диалог открытия фай лов TOpenPictureDialog.

2. Подключите к главному модулю создаваемого приложения модуль JPEG (в предложении uses);

свойство AutoSize компонента Timage установите в значение True.

3. Дважды щелкните мышью на кнопке. В появившемся обработчике собы тия Onclick напишите такой код:

procedure TForml.BitBtnlClick(Sender: TObject);

begin OpenPictureDialogl.Filter := GraphicFilter(TGraphic);

if OpenPictureDialogl.Execute then Imagel.Picture.LoadFromFile{OpenPictureDialogl.FileName);

end;

Глава 10. Использование графики Приложение готово. Обратите внимание на роль полиморфизма в методе LoadFromFile — по расширению файла определяется его формат и в зависи мости от этого создается нужный графический объект.

Использование диалогов для загрузки и сохранения графических файлов Для удобства открытия картинок существует пара компонентов-диалогов:

TOpenPictureDialog И TSavePictureDialog.

Список форматов открываемых файлов определяется свойством Filter.

Можно, как в случае со стандартными диалогами TOpenDialog или TSaveDialog, сформировать их вручную с помощью редактора свойства Filter. Можно поступить проще, воспользовавшись готовыми средствами.

Для удобства формирования строк графических фильтров существуют три специальные функции:

• function GraphicFilter(GraphicClass: TGraphicClass): string;

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

'All (*.jpg;

*.jpeg;

*.bmp;

*.ico;

*.emf;

*.wmf)|*.jpg;

*.jpeg;

*.bmp;

*.ico;

*.emf;

*.wmf|JPEG Image File (*.jpg)|*.jpglJPEG Image File (*.jpeg)I*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)I*.ico|Enhanced Metafiles (. m ) I *.emf|Metafiles (. m ) I *.wmf' *ef *wf Формат JPEG появляется в перечне, если в приложении используется модуль с тем же названием — JPEG. В приводимом ниже примере воз никла необходимость совместить фильтры только для классов TBitmap и TJPEGimage, которые не являются предками друг друга. В этом случае получившиеся строки нужно соединить, использовав символ конкате нации "|":

S := GraphicFilter(TBitmap)+'|'+GraphicFilter(TJpeglmage) О function GraphicExtension(GraphicClass: TGraphicClass): string;

Возвращает расширение файла, формат которого соответствует графиче скому классу GraphicClass. Так, если передать в качестве параметра класс TBitmap, то функция вернет строку 'ВМР1;

• function GraphicFileMask(GraphicClass: TGraphicClass): string;

Эта функция возвращает перечень расширений файлов с форматами — потомками GraphicClass, перечисленных через точку с запятой.

Часть II. Интерфейс и логика приложения Для диалогов предусмотрено несколько событий, которые программист мо жет обработать самостоятельно. Первые три — достаточно тривиальные:

OnShow, oncanciose и OnCiose. Нужно предостеречь программиста: по чьему то недосмотру последние два вызываются только в случае нормального за вершения диалога (нажатием кнопки Open или Save), а если завершить диа лог нажатием кнопки Cancel или "крестика" на заголовке диалога, то управ ления они не получат.

Другие три события связаны с изменениями, которые осуществляет пользо ватель во время выбора нужного файла. Они происходят в момент измене ния формата открываемого файла (событие OnTypeChange), изменения теку щей папки (OnFolderChange) И текущего файла (OnSelectionChange).

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

Поступим так и мы, предусмотрев настройку при сохранении файлов фор мата JPEG. Для этого будет использовано событие OnTypeChange компонента TSavePictureDiaiog. Для события нужно проверить значение свойства Filterindex. Если оно больше 1 (т. е. выбраны файлы формата JPEG), нуж но увеличить высоту окна диалога и разместить на нем дополнительные Компоненты: флажок, соответствующий С О С В ProgressiveEncoding, И В ЙТУ редактор свойства compressionQuaiity (рис. 10.2). Если тип файла снова по менялся и стал равным 1, нужно эти компоненты убрать.

•Picture: • Look да |ЩЗ Desktop i ^Му Computer j § My Network Places (None)' "Open ::

File name::

: Cancel :

Files of lype: ':= '/;

Bitmaps f.bmp) Рис. 10.2. Внешний вид модифицированного компонента T S a v e P i c t u r e D i a i o g Глава 10. Использование графики Поможет нам в этом внимательное изучение исходных кодов диалогов, на ходящихся в модуле EXTDLGS.PAS. Программисты Borland пошли по пути модернизации внешнего вида стандартных диалогов, добавив к ним справа панель для отображения внешнего вида открываемых (записываемых) кар тинок. Можно пойти дальше и добавить таким же образом и свои элементы управления.

Приводимый ниже пример ModifDlg — усовершенствованная программа просмотра и сохранения файлов растровой графики, к которым относятся файлы форматов JPEG и BMP. Чтобы исключить метафайлы и значки (*.wmf, *.emf, *.ico), соответствующим образом настраиваются фильтры в диалогах открытия и сохранения.

Для изменения размеров диалогового окна нужно отыскать среди входящих в его состав компонентов панель PicturePanei (так назвали ее разработчики Borland) и увеличить ее высоту. Следует также поменять и размеры роди тельских окон. Поскольку они не являются компонентами Delphi (стан дартные диалоги являются составными частями Windows) для этой цели ис пользуются фуНКЦИИ API GetWindowRect И SetWindowPos.

Обратите также внимание, что при загрузке используется событие OnProgress класса TGraphic. В его обработчике информация об объеме про деланной работы отображается на компоненте ProgressBari. Для маленьких картинок обработчик вызывается только в начале и в конце операции, пользователь ничего не заметит. Зато при загрузке большого изображения он будет спокоен, видя, что процесс загрузки идет и машина не зависла.

j Листинг 10.1. Исходный текст главного модуля программы ModifDlg unit mainUnit;

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

type TForml = class(TForm) SavePictureDialogl: TSavePictureDialog;

OpenPictureDialogl: TOpenPictureDialog;

ScrollBoxl: TScrollBox;

Image1: T Image;

ProgressBari: TProgressBar;

OpenBitBtn: TBitBtn;

SaveBitBtn: TBitBtn;

250 Часть II. Интерфейс и логика приложения procedure SavePictureDialoglTypeChange(Sender: TObject);

procedure ImagelProgress(Sender: TObject;

Stage: TProgressStage;

PercentDone: Byte;

RedrawNow: Boolean;

const R: TRect;

const Msg: String);

procedure SavePictureDialoglClose(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SavePictureDialoglShow(Sender: TObject);

procedure OpenBitBtnClick(Sender: TObject);

procedure SaveBitBtnClick(Sender: TObject);

private public end;

var Forml: TForml;

implementation {$R *.DFM) uses jpeg;

const DeltaH : Integer = 80;

var Quality : TJpegQualityRange;

ProgressiveEnc : Boolean;

procedure TForml.OpenBitBtnClick(Sender: TObject);

begin if OpenPictureDialogl.Execute then Image1.Picture.LoadFromFile(OpenPictureDialogl.FileName);

end;

procedure TForml.SaveBitBtnClick(Sender: TObject);

var ji : TJpeglmage;

begin if SavePictureDialogl.Execute then begin ji := TJpeglmage.Create;

ji.CompressionQuality := Quality;

ji.ProgressiveEncoding := ProgressiveEnc;

ji.Assign(Image1.Picture.Bitmap);

ji.SaveToFile(SavePictureDialogl.FileName);

ji.Free;

end;

end;

procedure TForml.SavePictureDialoglTypeChange(Sender: TObject);

var ParentHandle:THandle;

wRect:TRect;

Глава 10. Использование графики PicPanel,PaintPanel:TPanel;

JEdit : TEdit;

Expanded : boolean;

begin With Sender as TSavePictureDialog do begin PicPanel := (FindComponent('PicturePanel') as TPanel);

if not Assigned(PicPanel) then Exit;

ParentHandle:=GetParent(Handle);

PaintPanel:=(FindComponent('PaintPanel') as TPanel);

PaintPanel.Align := alNone;

Expanded := FindComponent('JLabel') <> nil;

if Filterlndex >1 then begin if not Expanded then begin GetWindowRect(ParentHandle,WRect);

SetWindowPos(ParentHandle,0,0,0,WRect.Right-WRect.Left, WRect.Bottom-WRect.Top+DeltaH,SWP_NOMOVE+SWP_NOZORDER);

GetWindowRect(Handle,WRect);

SetWindowPos(handle,0,0,0,WRect.Right-WRect.Left, WRect.Bottom-WRect.Top+DeltaH,SWP_NOMOVE+SWP_NOZORDER);

Expanded:=True;

PicPanel.Height := PicPanel.Height+DeltaH;

if FindComponent('JLabel')=nil then with TLabel.Create(Sender as TSavePictureDialog) do begin Parent := PicPanel;

Name := 'JLabel';

Caption := 'Quality';

Left := 5;

Height := 25;

Top := PaintPanel.Top+PaintPanel.Height+5;

end;

if FindComponent('JEdit')=nil then begin JEdit := TEdit.Create(Sender as TSavePictureDialog);

with JEdit do begin Parent := PicPanel;

Name:='JEdit';

Text := '75';

Left:=50;

Width := 50;

Height := 25;

252 Часть II. Интерфейс и логика приложения Тор := PaintPanel.Top+PaintPanel.Height+5;

end;

end;

if FindComponent('JUpDown')=nil then with TUpDown.Create(Sender as TSavePictureDialog) do begin Parent := PicPanel;

Name:='JUpDown';

Associate := JEdit;

Increment := 5;

Min := 1;

Max := 100;

Position := 75;

end;

if FindComponent('JCheck')=nil then with TCheckBox.Create(Sender as TSavePictureDialog) do begin Name:='JCheck';

Caption:='Progressive Encoding';

Parent:=PicPanel;

Left:=5;

Width := PicPanel.Width - 10;

Height:=25;

Top := PaintPanel.Top+PaintPanel.Height+35;

end;

end;

end else SavePictureDialoglClose(Sender);

end;

end;

procedure TForml.ImagelProgress(Sender: TObject;

Stage: TProgressStage;

PercentDone: Byte;

RedrawNow: Boolean;

const R: TRect;

const Msg: String);

begin case Stage of psStarting: begin Progressbarl.Position := 0;

Progressbarl.Max := 100;

end;

psEnding: begin Progressbarl.Position := 0;

end;

Глава 10. Использование графики psRunning: begin Progressbarl.Position := PercentDone;

end;

end;

end;

procedure TForml.SavePictureDialoglClose(Sender: TObject);

var PicPanel : TPanel;

ParentHandle : THandle;

WRect : TRect;

begin With Sender as TSavePictureDialog do begin PicPanel := (FindComponent('PicturePanel') as TPanel);

if not Assigned!PicPanel) then Exit;

ParentHandle:=GetParent(Handle);

if ParentHandle=O then Exit;

if FindComponent('JLabel')onil then begin FindComponent('JLabel').Free;

FindComponent('JEdit').Free;

ProgressiveEnc := (FindComponent('JCheck') as TCheckBox).Checked;

FindComponent('JCheck').Free;

Quality := (FindComponent('JUpDown') as TUpDown).Position;

FindComponent('JUpDown').Free;

PicPanel.Height:=PicPanel.Height-DeltaH;

GetWindowRect(Handle,WRect);

SetWindowPos(Handle,0,0,0,WRect.Right-WRect.Left, WRect.Bottom-WRect.Top-DeltaH,SWP_NOMOVE+SWP_NOZORDER);

GetWindowRect(ParentHandle,WRect);

SetWindowPos(ParentHandle,0,0,0,WRect.Right-WRect.Left, WRect.Bottom-WRect.Top-DeltaH,SWP_NOMOVE+SWP_NOZORDER);

Filterlndex := 1;

end;

end;

end;

procedure TForml.FormCreate(Sender: TObj ect);

var s: string;

begin s :=GraphicFilter(TBitmap)+'I'+GraphicFilter(TJpeglmage);

OpenPictureDialogl.Filter := s;

SavePictureDialogl.Filter := s;

end;

254 Часть II. Интерфейс и логика приложения procedure TForml.SavePictureDialoglShow(Sender: TObject);

begin with Sender as TSavePictureDialog do begin if FindComponent('JLabel')onil then begin Filterlndex := 2;

SavePictureDialoglTypeChange(Sender);

end;

end;

end;

end.

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

Класс TCIipboard Класс TCIipboard предоставляет программисту интерфейс с буфером (пап кой) обмена (Clipboard) Windows. При включении в проект модуля CLIPBRD.PAS глобальный объект clipboard создается автоматически и дос тупен приложению в течение всего времени его работы.

Методы открытия и закрытия буфера обмена:

procedure Open;

procedure Close;

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

Очистка содержимого буфера (для всех форматов) производится вызовом метода:

procedure Clear;

О доступных форматах можно узнать, пользуясь следующими свойствами и методами:

О property FormatCount: Integer;

Содержит число форматов в буфере на данный момент.

Глава 10. Использование графики О property Formats[Index: Integer]: Word;

Содержит их полный список.

d function HasFormat(Format: Word): Boolean.

Проверяет, содержится ли в данный момент формат Format.

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

Через вызов метода procedure Assign(Source: TPersistent) ;

в буфер обмена помещаются данные классов TGraphic, точнее, его потомков — классов TBitmap (формат CF_BITMAP) и TMetafile (CF_ENHMETAFILE), а также данные класса TPicture. Данные класса Ticon не имеют своего формата и с классом TCiipboard несовместимы.

Допустимо и обратное: в TCiipboard есть специальные (скрытые) методы ДЛЯ Присваивания СОДерЖИМОГО Объектам КЛаССОВ TPicture, TBitmap И TMetafile. Допустимы выражения вида:

MyImage.Picture.Assign(Clipboard);

Clipboard.Assign(MyImage.Picture);

Для работы с текстом предназначены методы:

П function GetTextBuf(Buffer: PChar;

BufSize: Integer): Integer;

Читает текст из буфера обмена в буфер Buffer, длина которого ограниче на значением BufSize. Функция возвращает истинную длину прочитан ного текста.

• procedure SetTextBuf(Buffer: PChar);

Помещает текст из Buffer в буфер обмена в формате CFJTEXT.

Впрочем, можно поступить проще. Свойство property AsText: string;

соответствует содержимому буфера обмена в текстовом формате CFJTEXT (приведенному к типу string). При отсутствии в буфере данных этого фор мата возвращается пустая строка.

Методы:

function GetAsHandle(Format: Word): THandle;

procedure SetAsHandle(Format: Word;

Value: THandle);

соответственно читают и пишут данные в буфер в заданном формате Format.

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

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

function GetComponent(Owner, Parent: TComponent): TComponent;

procedure SetComponent(Component: TComponent);

Они используются составными частями среды Delphi.

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

Курсор приложения, общий для всех форм, доступен через свойство property Cursor: TCursor;

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

Screen.Cursor := crHourglass;

try {Calculations...} finally Screen.Cursor := crDefault;

end;

Имеется список всех курсоров. Получить дескриптор курсора с индексом index можно при помощи свойства:

property Cursors[Index: Integer]: HCURSOR;

Напомним, что индексы зарегистрированных курсоров лежат в диапазоне ОТ -22 (crSizeAll) ДО 0 (crDefault).

Рассмотренный ниже фрагмент кода при инициализации формы заносит имена всех зарегистрированных в системе курсоров в список ListBoxi.

Затем при выборе элемента списка устанавливается соответствующий ему курсор:

procedure TForml.FormCreate(Sender: TObject);

type TGetStrFunc = function(const Value: string): Integer of object;

Глава 10. Использование графики var CursorNames: TStringList;

AddValue: TGetStrFunc;

begin CursorNames := TStringList.Create;

AddValue := CursorNames.Add;

GetCursorValues(TGetStrProc(AddValue));

ListBoxl.Items.Assign(CursorNames);

end;

procedure TForml.ListBoxlClick(Sender: TObject);

begin Screen.Cursor := StringToCursor(ListBoxl.Items[ListBoxl.Itemlndex]);

end;

СПИСОК курсоров, функции GetCursorValues, StringToCursor И некоторые другие содержатся в модуле CONTROLS.PAS.

Имена всех установленных в системе шрифтов помещаются в список, опре деленный в свойстве property Fonts: TStrings;

Компонент сообщает неизменяемые свойства экрана (в данном видеорежи ме). Его размеры в пикселах определены в свойствах property Height: Integer;

property Width: Integer;

8 последних версиях ОС Microsoft имеется поддержка отображения на не скольких мониторах одновременно. Для этой цели предусмотрены свойства property MonitorCount: Integer;

property Monitors[Index: Integer]: TMonitor;

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

property DesktopLeft: Integer;

property DesktopTop: Integer;

property DesktopWidth: Integer;

property DesktopHeight: Integer;

Все координаты отсчитываются от верхнего левого угла первого монитора.

Если монитор один, значения этих свойств совпадают с Left, Top, width и Height.

9 Зак. 258 Часть II. Интерфейс и логика приложения Примечание С исходными текстами Delphi 5 поставляется модуль MULTIMON.PAS, содер жащий прототипы структур и функций Windows 98, 2000 для работы со многими мониторами.

Число точек на дюйм дисплея содержится в свойстве property PixelsPerlnch: Integer;

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

property Forms[Index: Integer]: TForm;

property FormCount: Integer;

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

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

property ActiveControl: TWinControl;

property ActiveForm: TForm;

При их изменении генерируются, соответственно, события property OnActiveControlChange: TNotifyEvent;

property OnActiveFormChange: TNotifyEvent;

Хотя и "некстати", расскажем здесь о свойстве property DefaultKbLayout: HKL;

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

Сначала следует прочитать список имеющихся в системе раскладок и уста новить нужную:

var RusLayout, EngLayout : THandle;

procedure TMainForm.FormCreate(Sender: TObject);

var Layouts : array[0..7] of THandle;

i,n : Integer;

begin // Считывание раскладок RusLayout := 0;

EngLayout := 0;

Глава 10. Использование графики n := GetKeyboardLayoutList(High(Layouts)+1, Layouts);

if n>0 then for i:=0 t o n-1 do if LoWord(Layouts[i]) and $FF = L N _ U S A A G R S I N then RusLayout := Layouts[i] e l s e if LoWord(Layouts[i]) and $FF = LANGJSNGLISH then EngLayout := Layouts[i];

/'/ Если есть, включим русскую if RusLayoutoO then ActivateKeyboardLayout(RusLayout, 0 ) ;

end;

Затем при входе в определенное поле (компонент редактирования данных) и выходе из него можно программно сменить раскладку:

procedure TMainForm.EditDocSerEnter(Sender: TObject);

begin if EngLayoutoO then ActivateKeyboardLayout(EngLayout,0);

end;

procedure TMainForm.EditDocSerExit(Sender: TObject);

begin if RusLayoutoO then ActivateKeyboardLayout(RusLayout,0);

end;

Вывод графики с использованием отображаемых файлов Спору нет — объект TBitmap удобен и универсален. Программисты Borland шагают в ногу с разработчиками графического API Windows, и исходный код модуля GRAPHICS.PAS от версии к версии совершенствуется. Но в ря де случаев возможностей, предоставляемых стандартным компонентом, не достаточно. Один из таких случаев — работа с большими и очень большими изображениями (до сотен Мбайт). С ними приходится иметь дело в поли графии, медицине, при обработке изображений дистанционного зондирова ния Земли из космоса и т. п. Здесь класс TBitmap не подходит, т. к. запра шивает для хранения и преобразования картинки слишком много ресурсов.

Что делать? На помощь следует призвать Windows API, поддерживающий файлы, отображаемые в память (Memory Mapped Files). У них много полез ных свойств, но здесь важно только одно из них. При создании битовой карты Windows распределяет для нее часть виртуального адресного про странства. А оно не безгранично — для выделения 50—100 Мбайт может не хватить размеров файла подкачки, не говоря уже об ОЗУ. Но можно напря мую отобразить файл в виртуальную память, сделав его частью виртуального адресного пространства. В этом случае нашему файлу с изображением будет 260 Часть II. Интерфейс и логика приложения просто выделен диапазон адресов, которые можно использовать для после дующей работы.

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

Var Memory: pByteArray;

ее : Integer;

procedure TForml.OpenlClick(Sender: TObject);

var i: integer;

bmFile : pBitmapFileHeader;

bmlnfo : pBitmapInfoHeader;

begin if not OpenDialogl.execute then Exit;

hf := CreateFile(pChar(OpenDialogl.FileName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);

if hf=INVALID_HANDLE_VALUE then begin ec:=GetLastError;

ShowMessage(' File opening error '+IntTostr(ec));

Exit;

end;

hm := CreateFileMapping(hf, nil, PAGE_READONLY, 0,0,nil);

if hm=0 then begin ShowMessage(' File Mapping error %d',[GetLastError]);

Exit;

end;

pb := MapViewOf File (hm, FILE_MAPREAD, 0,0,0);

if pb=nil then begin ec:=GetLastError;

ShowMessage('Mapping error '+IntTostr(ec)) ;

Exit;

end;

bmFile := pBitmapFileHeader(pb);

if (bmFileA.bfTypeo$4D42) then BEGIN Exit;

END;

Memory:=@(рЬЛ[bmFileA.bfOffBits]);

bmlnfo := 8(pbA[SizeOf(TBitmapFileHeader)]);

Глава 10. Использование графики /S StrLen:=(((bmInfo^.biWidth*bmInfo.biBitCount)+31) div 32)*4;

PaintMe(Self);

end;

В этом коде последовательно получены дескрипторы файла (hf, с использо ванием функции createFile), его отображения в память (hm, с помощью функции createFiieMapping) и указатель на отображенные данные (рь, по средством MapviewofFiie). He будем вдаваться в детали внутренней реализа ции битовой карты — графический формат BMP известен достаточно хоро шо. Отметим только, что результатом проделанных операций являются структура bminfo типа TBitmapinfo, полностью характеризующая битовую карту, и указатель Memory на данные битовой карты. Теперь загруженные данные нужно суметь нарисовать на канве, в данном случае на канве объек та PaintBox. Делается это следующим образом:

procedure TForml.PaintMe(Sender: TObject);

var OldP : hPalette;

i : integer;

begin if Memory=nil then Exit;

OldP := SelectPalette(PaintBox.Canvas.Handle, Palette, False);

RealizePalette(PaintBox.Canvas.Handle);

SetStretchBltMode(PaintBox.Canvas.Handle, STRETCH_DELETESCANS);

case ViewMode of vmStretch:

with bminfo" do StretchDIBits(PaintBox.Canvas.Handle,0,0,PaintBox.Height, PaintBox.Width, 0,0,biWidth,Abs(biHeight), Memory, pBitmapInfо(bminfo)A, DIB_RGB_COLORS, PaintBox.Canvas.CopyMode);

vmlxl:

with bminfoA,PaintBox.ClientRect do i := SetDIBitsToDevice(PaintBox.Canvas.Handle,Left,Top,Right-Left, Bottom-Top, Left,Top,Top,Bottom-top, Memory, pBitmapInfo(bminfo)A, DIB_RGB_COLORS);

vmZoom:

begin with bminfo^,PaintBox.ClientRect do i := StretchDIBits(PaintBox.Canvas.Handle,Left,Top,Right-Left, Bottom-Top, Часть II. Интерфейс и логика приложения O,O,biWidth,Abs(biHeight), л Memory, pBitmapInfo(bminfo), DIB_RGB_COLORS, PaintBox.Canvas.CopyMode);

end;

end;

if (i=0) or (i=GDI_ERROR) then begin ec :=GetLastError;

Forml.Caption := 'Error code '+IntToStr(ec);

end;

SelectPalette(PaintBox.Canvas.Handle, OldP, False);

end;

В зависимости от установленного режима отображения (vmstretch, vmzoom или vmixi) применяются разные функции Win API: stretchDiBits или SetDiBitsToDevice. Выигрыш в скорости работы приложения особенно ощущается, если загружаемые файлы становятся велики и должны разме щаться в файле подкачки. Наше же приложение не использует его и ото бражает данные прямо из файла на экран (рис. 10.3).

Рис. 10.3. Этот снимок с метеорологического спутника имеет размер десятки мегабайт Глава 10. Использование графики Класс TAnimate В заключение — несколько слов для тех, кто хочет применить в своих про граммах анимированные (движущиеся) картинки. Самый простой путь для этого — быстрая смена нескольких последовательных битовых карт. Но, во первых, их еще нужно нарисовать;

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

Этот компонент предназначен для воспроизведения на форме файлов фор мата AVI (audio-video interleaved;

появился впервые с выходом пакета Microsoft Video for Windows).

Альтернативными источниками таких файлов могут послужить:

• файл (с расширением avi). Его имя нужно задать в свойстве:

property FileName: TFileName;

• ресурс Windows. Он может быть задан одним из трех свойств:

property ResHandle: THandle;

property ResID: Integer;

property ResName: string;

Наконец, если вы не запаслись своим AVI-файлом, то можете воспользо ваться готовым, имеющимся в Windows и иллюстрирующим один из проис ходящих в системе процессов. Для этого из списка свойства CommonAVi нуж но выбрать один из вариантов (рис. 10.4).

Рис. 10.4. Так выглядит ролик "перенос файлов" Все эти свойства при своей установке обнуляют прочие альтернативные вари анты. Запуск ролика начинается при установке свойства Active в значение True;

при ЭТОМ показываются кадры, начиная С StartFrame И ДО StopFrame.

Число повторений этой последовательности кадров задается свойством Repetitions;

если вам нужен бесконечный цикл, установите это свойство в 0.

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

264 Часть II. Интерфейс и логика приложения Если свойство Timers равно значению False, показ ролика происходит в от дельном программном потоке и никак не влияет на остальное;

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

Резюме Графика — не самый маленький и не самый простой раздел программиро вания в Windows. Описанные в этой главе объекты Delphi сглаживают мно гие острые углы, но все равно начинающему программисту без синяков и шишек не обойтись. Если у вас есть время и серьезные намерения, посиди те над исходным текстом модуля GRAPHICS.PAS — лучшего пособия для самообразования не найти.

Приложения баз данных Архитектура приложений баз данных Глава 11.

Глава 12. Набор данных Глава 13. Поля и типы данных Глава 14. Механизмы управления данными Глава 15. Компоненты отображения данных •a •m — ГЛАВА 1 Архитектура приложений баз данных Приложение баз данных, как следует уже из его названия, предназначено для взаимодействия с некоторым источником данных — базой данных (БД).

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

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

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

Тем не менее, несмотря на разнообразие реализаций, общая архитектура приложения баз данных остается неизменной.

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

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

Глава 11. Архитектура приложений баз данных Механизм внутреннего представления данных является ядром приложения баз данных. Он обеспечивает хранение полученных данных в приложении и предоставляет их по запросу других частей приложения.

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

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

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

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

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

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

В этой главе рассматриваются общие подходы к разработке приложений баз данных в Delphi, базовые классы и механизмы, которые не изменятся, вы берите ли вы для вашего приложения Borland Database Engine (BDE), Microsoft ActiveX Data Objects (ADO) или dbExpress.

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

268 Часть III. Приложения баз данных Итак, в этой главе рассматриваются следующие вопросы:

• структура приложения баз данных в Delphi;

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

• понятие набора данных и его участие в основных механизмах приложе ния баз данных;

• модуль данных;

• программная реализация частей приложения баз данных (см. рис. 11.1).

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

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

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

В основе любого приложения баз данных лежат наборы данных, которые представляют собой группы записей (их удобно представить в виде таблиц в памяти), переданных из базы данных в приложение для просмотра и ре дактирования. Каждый набор данных инкапсулирован в специальном ком поненте доступа к данным. В VCL Delphi реализован набор базовых клас сов, поддерживающих функциональность наборов данных, и практически идентичные по составу наборы дочерних компонентов для технологий дос тупа к данным. Их общий предок — класс TDataSet. (Подробно наборы дан ных рассмотрены в гл. 12.) Для обеспечения связи набора данных с визуальными компонентами ото бражения данных используется специальный компонент TDataSource. Его роль заключается в управлении потоками данных между набором данных и связанными с ним компонентами отображения данных. Этот компонент обеспечивает передачу данных в визуальные компоненты и возврат резуль татов редактирования в набор данных, отвечает за изменение состояния ви зуальных компонентов при изменении состояния набора данных, передает Глава 11. Архитектура приложений баз данных сигналы управления от пользователя (визуальных компонентов) в набор данных. Компонент TDataSource расположен на странице Data Access Па литры компонентов.

Таким образом, базовый механизм доступа к данным создается триадой компонентов:

• компоненты, инкапсулирующие набор данных (потомки класса TDataSet);

П Компоненты TDataSource;

• визуальные компоненты отображения данных.

Рассмотрим схему взаимодействия этих компонентов в приложении баз данных (рис. 11.1).

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

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

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

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

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

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

Часть III. Приложения баз данных <> Selectionl • И Selectionl В Selection2 ф Selectionl Н Selection3 < < Selectionl ?

и Компоненты отображения данных г тт <омпоненть>i TDataSource f i 1..

."

Компоненты доступа к данным II ПО доступа к данным База данных Рис. 11.1. Механизм доступа к данным приложения баз данных Пользователь при помощи компонентов отображения данных может про сматривать и редактировать данные. Измененные значения сразу же пере даются из элемента управления в набор данных при помощи компонента TDataSource. Затем изменения могут быть переданы в базу данных или от менены.

Глава 11. Архитектура приложений баз данных Теперь, имея общее представление о работе приложения баз данных, перей дем к поэтапному рассмотрению процесса создания такого приложения.

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

Для создания модуля данных можно воспользоваться Репозиторием объек тов или главным меню Delphi. Значок модуля данных Data Module распо ложен на странице New.

Как уже говорилось, модуль данных имеет мало общего со стандартной формой, хотя бы потому, что класс TDataModuie происходит непосредствен но от класса TComponent. У него почти полностью отсутствуют свойства и методы-обработчики событий, ведь от платформы для других невизуальных компонентов почти ничего не требуется, хотя потомки модуля данных, ра ботающие в распределенных приложениях, выполняют весьма важную работу.

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

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

Для создания модуля данных (рис. 11.2) можно воспользоваться Репозито рием объектов или главным меню Delphi. Значок модуля данных Data Module расположен на странице New.

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

unit InterfaceModule;

implementation Часть III. Приложения баз данных uses DataModule;

DataModule.Tablel.Open;

IЪDataModulel ADOConnection!

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

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

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

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

Для создания нового проекта достаточно выбрать команду New Application из меню File или воспользоваться Репозиторием объектов, который откры вается командой New из меню File.

с Примечание Здесь рассматривается простейший вариант создания приложения. В реальных проектах для размещения компонентов доступа к данным следует использовать модуль данных.

Глава 11. Архитектура приложений баз данных Затем на форму нового проекта необходимо перенести компонент, инкапсу лирующий набор данных, и выполнить следующие действия. Последова тельность действий рассмотрим для компонента, инкапсулирующего функ ции таблицы (см. гл. 12).

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

2. Подключить к компоненту таблицу БД. Для этого используется свойство TabieNaroe, доступное в Инспекторе объектов. После выполнения дейст вий первого этапа в списке этого свойства должны появиться имена всех доступных в подключенной базе данных таблиц. После выбора имени таблицы в свойстве TabieName компонент оказывается связанным с ней.

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

Обычно название компонента копирует название таблицы (например, Orders И И OrdTable И И tblOrders).

Л Л 4. Активизировать связь между компонентом и таблицей БД. Для этого ис пользуется свойство Active. Если в Инспекторе объектов присвоить это му свойству значение True, то связь активизируется. Эту операцию мож но выполнить и в исходном коде приложения. Также существует метод Open, который открывает набор данных, и метод close, закрывающий его.

В качестве примера попробуем создать простейшее приложение баз данных, работающее с таблицей COUNTRY.DB из стандартной демонстрационной базы данных DBDEMOS через драйвер процессора Borland Database Engine.

На форму нового проекта необходимо перенести компонент ттаЫе со стра ницы BDE Палитры компонентов- Свойство DatabaseName должно ссылаться на псевдоним DBDEMOS, который создается автоматически при установке Delphi, его можно выбрать из списка свойства DatabaseName. Для свойства TableName необходимо задать имя таблицы "COUNTRY.DB". ЕГО также можно выбрать из списка. Двойной щелчок на свойстве Active в Инспекторе объ ектов присваивает ему значение True. После этого связь компонента с таб лицей активизируется. Свойство Name имеет значение "CountryTabie".

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

274 Часть III. Приложения баз данных \ Листинг 11.1. Секция Implementation главного модуля проекта DemoDBApp | implementation ($R *.DFM} procedure TForml.FormShow(Sender: TObject);

begin try CountryTable.Open;

except ShowMessage('Table open error1) ;

end;

end;

procedure TForml.FormClose(Sender: TObject;

var Action: TCloseAction);

begin CountryTable.Close;

end;

end.

При открытии формы выполняется метод обработчик FormShow. В нем набор данных открывается при помощи метода open. Обратите внимание на ис пользование конструкции try..except, которая обеспечивает корректное завершение при возникновении исключительных ситуаций.

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

В методе-обработчике Formciose, который вызывается при закрытии формы, набор данных закрывается методом close.

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

Поэтому использование свойства является лишним этапом, да и с точки зрения ООП все действия должны выполнять методы объекта, а свойства служат толь ко для представления значений. Свойство A c t i v e сигнализирует о состоянии набора данных.

Настройка компонента TDataSource На втором этапе разработки приложения баз данных необходимо перенести на форму и настроить компонент TDataSource. Он обеспечивает взаимодей ствие набора данных с компонентами отображения данных. Чаще всего Глава 11. Архитектура приложений баз данных одному набору данных соответствует один компонент TDataSource, хотя их может быть несколько.

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

1. Связать набор данных и компонент TDataSource. Для этого используется свойство DataSet компонента TDataSource, доступное через Инспектор объектов. Это указатель на экземпляр компонента доступа к данным.

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

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

В приложении DemoDBApp компонент countrySource связан с компонентом CountryTable. Поэтому СВОЙСТВО DataSet имеет значение CountryTable.

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

Компонент TDataSource имеет ряд полезных свойств и методов.

Итак, связывание с компонентом набора данных выполняет свойство property DataSet: TDataSet;

а определить текущее состояние набора данных можно, использовав свойство type TDataSetState = (dslnactive, dsBrowse, dsEdit, dslnsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, dsInternalCalc);

property State: TDataSetState;

При помощи свойства property Enabled: Boolean;

можно включить или отключить все связанные визуальные компоненты.

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

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

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

276 Часть III. Приложения баз данных Аналогично, метод procedure Edit;

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

Метод function IsLinkedTo(DataSet: TDataSet): Boolean;

возвращает значение True, если компонент, указанный в параметре DataSet, действительно связан с данным компонентом TDatasource.

Метод-обработчик type TDataChangeEvent = procedure(Sender: TObject;

Field: TField) of object;

property OnDataChange: TDataChangeEvent;

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

Метод-обработчик property OnUpdateData: TNotifyEvent;

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

Метод-обработчик property OnStateChange: TNotifyEvent;

вызывается при изменении состояния связанного набора данных (см. гл. 12).

Отображение данных На третьем этапе создания приложения баз данных необходимо разработать пользовательский интерфейс на основе компонентов отображения данных.

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

Компоненты отображения данных должны быть связаны с компонентом TDatasource и через него с компонентом набора данных. Для этого исполь зуется их свойство Datasource. Оно присутствует во всех компонентах ото бражения данных.

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

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

(Подробнее о визуальных компонентах отображения данных см. гл. 15.) Таким образом, для каждого визуального компонента отображения данных необходимо выполнить следующие операции:

1. Связать компонент отображения данных и компонент TDataSource. Для этого используется свойство Datasource, которое должно указывать на экземпляр требуемого компонента TDataSource. Один компонент отобра жения ДаННЫХ МОЖНО СВЯЗатЬ ТОЛЬКО С ОДНИМ КОМПОНеНТОМ TDataSource.

Необходимый компонент можно выбрать в списке свойств в Инспекторе объектов.

2. Задать поле данных. Для этого используется свойство DataFieid типа TFieids. В нем необходимо указать имя поля связанного набора данных.

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

Отдельное место среди компонентов отображения данных занимает компо нент TDBNavigator. Он предназначен для перемещения по записям набора данных.

В Приложении DemoDBApp ИСПОЛЬЗОВаНЫ КОМПОНеНТЫ TDBGrid, TDBNavigator И TDBEdit (рИС. 11.3).

7: Simple D Application B i Рис. 11.3. Главная форма приложения DemoDBApp 278 Часть III. Приложения баз данных Все три компонента отображения данных связаны с компонентом CountrySource типа TDataSource при ПОМОЩИ свойства DataSource.

Компонент TDBEdit отображает данные из поля capital (столица государст ва) и позволяет редактировать их.

Компонент TDBGrid показывает набор данных целиком, данные в ячейках можно редактировать.

Компонент TDBNavigator позволяет перемещаться по записям набора дан ных countryTabie. При этом результат заметен во всех подключенных к на бору данных компонентах отображения данных.

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

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

В основе процесса разработки лежит триада компонентов:

• невизуальные компоненты набора данных;

• НеВИЗуалЬНЫе КОМПОНеНТЫ TDataSource;

• визуальные компоненты отображения данных.

ГЛАВА 1 Набор данных Любое приложение баз данных должно уметь выполнять как минимум две операции. Во-первых, иметь информацию о местонахождении базы данных, подключаться к ней и считывать имеющуюся в таблицах БД информацию.

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

Во-вторых, обеспечивать представление и редактирование полученных дан ных. Множество записей одной или нескольких таблиц, переданные в при ложение в результате активизации компонента доступа к данным, будем называть набором данных. Понятно, что в объектно-ориентированной среде для представления какой-либо группы записей приложение должно исполь зовать возможности некоторого класса. Этот класс должен инкапсулировать набор данных и обладать методами для управления записями и полями.

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

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

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

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

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

Класс TDataSet является базовым классом иерархии, он инкапсулирует абст рактный набор данных и реализует максимально общие методы работы Часть III. Приложения баз данных с ним. В него можно передать записи из таблицы базы данных или строки из обычного текстового файла — набор данных будет функционировать одинаково хорошо.

TDataSet 1 I TBDEDataSet | TCustomSQLDataSet TDBDataSet TSQLDataSet TSQLTable ТТаЫе TSQLQuery TQuery TSQLStoredProc TStoredProc dbExpress BDE I I TIBCustomDataSet TCustomADODataSet TIBDataSet TADODataSet TADOTable TIBTable TADOQuery TIBQuery TIBStoredProc TADOStoredProc InterBase ADO Express Рис. 12.1. Иерархия классов, обеспечивающих функционирование набора данных На основе базового класса реализованы специальные компоненты VCL для различных технологий доступа к данным, которые позволяют разработчику конструировать приложения баз данных, используя одни и те же приемы и настраивая одинаковые свойства.

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

О набор данных, инкапсулированный в классе TDataSet;

• что такое состояния набора данных;

Глава 12. Набор данных О индексы, поля, параметры;

• прототипы компонентов для работы с таблицами, запросами и храни мыми процедурами;

П основные механизмы набора данных, реализованные в классе TDataSet.

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

Этот класс задает структурную основу функционирования набора данных.

Другими словами, это скелет набора данных, к методам которого необходи мо лишь добавить требуемые вызовы соответствующих функций реальных технологий.

При решении наиболее распространенных задач программирования в про цессе создания приложений баз данных класс TDataSet не нужен. Тем не менее знание основных принципов работы набора данных всегда полезно.

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

Набор данных открывается и закрывается свойством property Active: Boolean;

которому соответственно необходимо присвоить значение True или False.

Аналогичные действия выполняют методы procedure Open;

procedure Close;

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

На одну запись вперед и назад перемещают курсор соответственно методы procedure Next;

procedure Prior;

На первую и последнюю запись можно попасть, используя соответственно методы procedure First;

procedure Last;

282 Часть III. Приложения баз данных Признаком того, что достигнута последняя запись набора, является свойство property Eof: Boolean;

которое в этом случае имеет значение True.

Аналогичную функцию для первой записи выполняет свойство property Bof: Boolean;

Перемещение вперед и назад на заданное число записей выполняет метод function MoveBy(Distance: Integer): Integer;

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

Для ускоренного перемещения по набору данных можно отключить все свя занные компоненты отображения данных. Это делается методом procedure DisableControls;

Обратная операция выполняется методом procedure EnableControls;

Общее число записей набора данных возвращает свойство property RecordCount: Integer;

однако использовать его нужно аккуратно, т. к. каждое обращение к этому свойству приводит к обновлению набора данных, что может вызвать про блемы для больших таблиц или сложных запросов. Если вам нужно опреде лить, не является ли набор данных пустым (часто используемая операция), можно использовать метод function IsEmpty: Boolean;

который возвращает значение True, если набор данных пуст, или уже упо минавшиеся свойства if MyTable.Bof and MyTable.Eof then ShowMessage('DataSet is empty );

Номер текущей записи позволяет узнать свойство property RecNo: Integer;

Размер записи в байтах возвращает свойство property RecordSize: Word;

Глава 12. Набор данных Каждая запись набора данных представляет собой совокупность значений полей таблицы. В зависимости от типа компонента и его настройки, число полей в наборе данных может изменяться. И совсем не обязательно набор данных должен содержать все поля таблицы базы данных.

Совокупность полей набора данных инкапсулирует свойство property Fields: TFields;

а все необходимые параметры полей содержатся в свойстве property FieldDefs: TFieldDefs;

Общее число полей набора данных возвращает свойство property FieldCount: Integer;

а общее число полей типа BLOB содержится в свойстве property BlobFieldCount: Integer;

Доступ к значениям полей текущей записи предоставляет свойство property FieldValues[const FieldName: string]: Variant;

default;

где в параметре FieldName задается имя поля.

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

f o r i := 0 to MyTable.FieldCount — 1 do МуТаЫе. F i e l d s [ i ].DiplayFormat : = ' #. # # # ' ;

Иначе, если порядок следования полей и их состав меняется, можно ис пользовать метод function FieldByName(const FieldName: s t r i n g ) : TField;

И делается это следующим образом:

МуТаЫе.FieldByName('VENDORNO').Aslnteger := 1234;

Имя поля, передаваемое в параметре FieldName, не чувствительно к регистру символов.

Метод procedure GetFieldNames(List: TStrings);

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

Более подробная информация о полях и способах работы с ними содержит ся в гл. 13.

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

284 Часть III. Приложения баз данных Но сначала бывает полезно поинтересоваться, можно ли редактировать на бор данных вообще. Это можно сделать при помощи свойства property CanModify: Boolean;

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

Перед началом редактирования набор данных нужно перевести в режим ре дактирования, использовав метод procedure Edit;

Для сохранения сделанных изменений применяется метод procedure Post;

virtual;

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

При необходимости все сделанные после последнего вызова метода Post изменения можно отменить методом procedure Cancel;

virtual;

Новая пустая запись добавляется в конец набора данных методом procedure Append;

Новая пустая запись добавляется на место текущей методом procedure Insert;

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

Внимание!

При использовании методов Append и I n s e r t набор данных переходит в режим редактирования самостоятельно.

Дополнительно, у вас есть возможность добавить или вставить новую запись уже с заполненными полями. Для этого применяются методы procedure AppendRecord(const Values: array of const);

procedure InsertRecord(const Values: array of const);

А делается это примерно так:

МуТаЫе.AppendRecord([2345, 'New customer', '+7(812)4569012', 0, '']);

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

Для существующей записи аналогичным образом можно заполнить все по ля, использовав метод procedure SetFields(const Values: array of const);

Глава 12. Набор данных Текущая запись удаляется методом procedure Delete;

При этом набор данных не выдает никаких предупреждений, а просто дела ет это.

Очистить содержимое всех полей текущей записи может метод procedure ClearFields;

Обратите внимание, что поля становятся пустыми (NULL), а не сбрасыва ются в нулевое значение.

О том, редактировалась ли текущая запись, сообщает свойство property Modified: Boolean;

если оно имеет значение True.

Набор данных можно обновить, не закрывая и не открывая его снова. Для этого применяется метод procedure Refresh;

Однако он сработает только для таблиц и тех запросов, которые нельзя редактировать.

В каждый момент времени набор данных находится в определенном со стоянии (о состояниях см. ниже в этой главе). Свойство type TDataSetState = (dslnactive, dsBrowse, dsEdit, dslnsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, dsInternalCalc, dsOpening);

property State: TDataSetState;

дает информацию о текущем состоянии набора.

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

По паре методов-обработчиков (до и после события) предусмотрено для следующих событий в наборе данных:

• открытие и закрытие набора данных;

• переход в режим редактирования;

• переход в режим вставки новой записи;

П сохранение сделанных изменений;

О отмена сделанных изменений;

• перемещение по записям набора данных;

• обновление набора данных.

286 Часть III. Приложения баз данных Обратите внимание, что помимо методов-обработчиков режима вставки су ществует дополнительный метод property OnNewRecord: TDataSetNotifyEvent;

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

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

Метод-обработчик property OnCalcFields: TDataSetNotifyEvent;

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

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

По умолчанию оно равно значению True и расчет вычисляемых полей про изводится при каждой перерисовке. При значении False метод-обработчик OnCalcFields вызывается только при открытии, переходе в состояние редак тирования и обновлении набора данных.

Все перечисленные выше обработчики имеют одинаковый тип type TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;

И метод-обработчик type TFilterRecordEvent = procedure(DataSet: TDataSet;

var Accept: Boolean) of object;

property OnFilterRecord: TFilterRecordEvent;

вызывается для каждой записи набора данных при свойстве Filtered = True. (Подробнее об этих свойствах и методе-обработчике см. гл. 14.) Помимо перечисленных, класс TDataSet содержит еще много свойств и ме тодов, которые обеспечивают работоспособность многих полезных в прак тическом программировании приложений баз данных функций. Подробно они рассмотрены в гл. 14.

Стандартные компоненты Внимательный читатель заметил, что на рис. 12.1 набор компонентов для каждой из представленных технологий доступа к данным примерно одина ков. Везде есть компонент, инкапсулирующий табличные функции, компо Глава 12. Набор данных нент запроса SQL и компонент хранимой процедуры. И хотя все они имеют разных ближайших предков, тем не менее, функциональность подобных компонентов в различных технологиях почти одинакова.

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

( ^ Примечание Некоторые из описываемых ниже свойств и методов присутствуют не в каждой реализации компонентов.

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

Но в практике программирования работа с таблицами целиком использует ся не так часто. А при работе с серверами баз данных промежуточное ПО, используемых технологий доступа к данным, все равно транслирует запрос на получение табличного набора данных в простейший запрос SQL, на пример:

SELECT * FROM Orders В такой ситуации применение табличных компонентов становится менее эффективным, чем использование запросов.

После соединения с источником данных (процесс подключения для каждой технологии подробно рассматривается в части IV) необходимо задать имя таблицы в свойстве property TableName: String;

Иногда в свойстве таЫеТуре дополнительно задается тип таблицы.

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

Преимуществом табличного компонента является использование индексов, которые ускоряют работу с таблицей. Все индексы, созданные в базе дан ных для таблицы, автоматически загружаются в компонент. Их параметры доступны через свойство property IndexDefs: TIndexDefs;

Подробно класс TIndexDefs рассматривается ниже в этой главе.

288 Часть III. Приложения баз данных При работе с компонентом разработчик имеет возможность управлять ин дексами.

Существующий индекс можно выбрать в Инспекторе объектов в списке свойств property IndexName: String;

или использовать свойство property IndexFieldNames: String;

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

Свойства IndexName И IndexFieldNames нельзя ИСПОЛЬЗОВаТЬ Одновременно.

Число полей, используемых в текущем индексе табличного компонента, возвращает свойство property IndexFieldCount: Integer;

А свойство property IndexFields: [Index: Integer]: TField;

представляет собой индексированный список полей, входящих в текущий индекс:

for i := 0 to MyTable.IndexFieldCount — 1 do MyTable.IndexFields[i].Enabled := False;

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

Метод procedure CreateTable;

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

Метод procedure EmptyTable;

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

Глава 12. Набор данных Метод procedure DeleteTable;

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

Метод type TIndexOption = (ixPrimary, ixUnique, ixDescending, ixCaselnsensitive, ixExpression, ixNonMaintained);

TIndexOptions = set of TIndexOption;

procedure Addlndex(const Name, Fields: String;

Options: TIndexOptions, const DescFields: String='');

добавляет к таблице БД новый индекс. Параметр Name задает имя индекса.

В параметре Fields через точку с запятой определяются имена полей, вхо дящих в индекс;

Параметр DescFields задает описание индекса из констант, объявленных В типе TIndexOption.

Метод procedure Deletelndex(const Name: string);

уничтожает индекс.

Кроме этого, табличные компоненты содержат свойства и методы, описы ваемые в гл. 14.

Компонент запроса Компонент запроса предназначен для создания запроса SQL, подготовки его параметров, передачи запроса на сервер БД и представления результата запроса в наборе данных. При этом набор данных может быть редактируе мым или нет.

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

Например, запрос SELECT * FROM Country редактировать можно. Если же приведенное правило не выполняется, то набор данных можно использовать только для просмотра, и, конечно, воз можности компонентов здесь ни при чем. Куда, к примеру, записывать ре зультаты редактирования записей следующего запроса:

SELECT CustNo, SUM(AmountPaid) FROM Orders GROUP BY CustNo ЮЗак. 290 Часть III. Приложения баз данных Ведь в таком запросе каждая запись есть результат суммирования неизвест ного заранее числа других записей.

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

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

Рассмотрим общие свойства и методы компонентов запросов.

Текст запроса определяется свойством property SQL: TStrings;

Pages:     | 1 |   ...   | 2 | 3 || 5 | 6 |   ...   | 11 |



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

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