Лабораторная работа № 35 Тема: Использование компонент Animate, MediaPlayer

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

Мультимедиа-возможности Delphi

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

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

• Animate — обеспечивает вывод простой анимации (подобной той, которую видит пользователь во время копирования файлов);

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

Компонент Animate

Компонент Animate, значок которого находится на вкладке Win32 (рис. 11.1), позволяет воспроизводить простую анимацию, кадры которой находятся в AVI-файле.

 Значок компонента Animate

Компонент Delphi MediaPlayer (мультимедийный проигрыватель) расположен на странице System Палитры компонентов. Он предназначен для проигрывание аудио и видео файлов.

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

Компонент MediaPlayer  имеет следующие кнопки, перечислим их слева на право:

• Воспроизведение (Play),

• Пауза (Pause);

• Стоп, остановка (Stop);

• переход к следующему клипу, дорожке (Next);

• переход к предыдущему клипу, дорожке (Prev);

• переход на несколько фрагментов вперед (Step);

• переход на несколько фрагментов назад (Back);

• режим записи (Record);

• извлечение диска (Eject).

За видимость кнопок на компоненте отвечает свойство VisibleButtons. По умолчанию все кнопки видимы. Проще всего установить набор видимых кнопок в Инспекторе объектов. Но можно сделать так чтобы установки задавались программно (задаем видимость кнопок воспроизведение и остановки):

MediaPlayer1.VisibleButtons := [btPlay, btStop];

Задание:

Разработать приложение с использованием компонента Animate, способное воспроизводить стандартную анимацию Windows и AVI-файлы. На форме разместить компоненты:

• Animate;

• MainMenu;

• Opendialog.

Главное меню формы должно содержать следующие пункты: Файл, Старт, Выход.

Пункт меню Файл должен содержать два пункта: Открыть AVI-файл, Стандартная анимация Windows.

Подпункт Стандартная анимация Windows должен иметь собственные подпункты, названные в соответствии с возможными значениями свойства CommonAvi. Названия этих подпунктов можно увидеть на рисунке 1.

Компонент Opendialog должен обеспечивать открытие с диска файла видеозаписи в формате AVI при выборе пункта меню Файл/ Открыть AVI-файл. В диалоговом окне должны отображаться только файлы с расширением AVI.

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

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

Примерный вид формы приведен на рисунке 1.

Лабораторная работа №36

Тема: Создание таблиц базы данных и установка параметров таблиц.

Создание приложения для работы с таблицей базы данных

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

Краткие сведения:

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

В Delphi проблема передачи в программу информации о месте нахождения файлов базы данных решается путем использования псевдонима базы данных. Псевдоним (Alias) — это короткое имя, поставленное в соответствие реальному, полному имени каталога базы данных. Например, псевдонимом каталога C:\data\spetersburg может быть имя Peterburg. Программа работы с базой данных для доступа к данным использует не реальное имя, а псевдоним.

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

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

База данных — это набор файлов (таблиц), в которых находится информация. Как правило, база данных состоит из нескольких таблиц, которые размещают в одном каталоге. Каталог для новой базы данных создается обычным образом, например, при помощи Проводника. Таблицу можно создать, воспользовавшись входящей в состав Delphi утилитой Borland Database Desktop или организовав SQL-запрос к серверу базы данных.

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

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

1. Создание каталога.

2. Создание псевдонима.

3. Создание таблиц.

Задание: создать базу данных Вариант 1.

Автоматизация складского учета в продуктовом магазине. Структура описания базы данных sklad

Назначение поля Наименование товара Единица измерения Цена за ед. изм. (в руб.) Остаток на начало дня Поступило на склад за день Отгружено со склада за день

Вариант 2.

Автоматизация задач кадрового учета работников предприятия. В базе данных kadr имеются сведения о работниках предприятия. Структура записи базы данных Назначение поля Табельный номер работника Фамилия имя отчество Дата рождения Образование Специальность Должность Необходимо выдать справки следующей формы:

Вариант 3.

Автоматизация услуг туристического агентства. В базе данных Tur имеются сведения о маршрутах и путевках. Наименования маршрута Длительность (в днях) Дата начала маршрута Вид транспорта Условия проживания Условия питания Цена за одну путевку (в руб) Количество путевок

Вариант 4.

Автоматизация бронирования мест в кассах Аэрофлота.В базе данных Bilet имеются сведения о рейсах Аэрофлота. Назначение поля Номер рейса Пункт вылета Пункт назначения Дата вылета Тип самолета Количество свободных мест в бизнес классе Цена билета в бизнес классе (в руб) Количество свободных мест в I классе Цена билета в I классе (в руб)

Вариант 5.

Автоматизация контроля за ходом выполнения графика работ. Назначение поля Наименование работы по плану Ответственный исполнитель Дата начала по плану Дата завершения по плану Дата начала по факту Дата завершения по факту Отставание в днях (опережения в днях) (+/-) от плана D N 2 Справка о незавершенных работах на начало (дату).

Вариант 6.

Создание информационно-справочной системы "Налогоплательщик". Система предусматривает учет совокупного годового дохода по физическим лицам. Структура записи базы данных Doxod Назначение поля Ф.И.О. налогоплательщика

Адрес местожительства Дата рождения Место получения дохода Сумма дохода Сумма учитываемых налогов

Вариант 8.