Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Высокоуровневые методы информатики и программир...docx
Скачиваний:
25
Добавлен:
12.11.2019
Размер:
6.53 Mб
Скачать

2 .3.10.2. Мультимедийный проигрыватель (MediaPlayer)

Компонент (панель System) пред­наз­начен для воспроизведения му­зы­кальных и видеоклипов MCI.

Специфичные свойства (первые четыре свойства первоочередные)

DeviceType, FileName ‑ источник воспроизведения: тип устройства или файл с указанным именем (DeviceType=dtAutoSelect).

Display ‑ имя объекта (обычно панель), в котором демонстрируется видео.

AutoOpen ‑ автоматическое открытие устройства.

AutoEnabled ‑ автоматическое управление своими кнопками.

AutoRewind ‑ автоматическая перемотка в начало.

ColoredButtons ‑ выбор кнопок управления проигрывателя.

StartPos, EndPos ‑ начало и конец клипа (в кадрах, интервалах времени).

Error, ErrorMessage ‑ код и описание ошибки при воспроизведении.

Frames ‑ число условных кадров, пропускаемых при прогонах.

Length ‑ длина клипа в условных единицах.

TimeFormat ‑ значение условной единицы.

Position ‑ текущая позиция в файле в условных единицах.

Специфичные методы

Open, Close, Eject ‑ открыть, закрыть, отсоединить устройство MCI.

Back/Step ‑ пропустить назад/вперед условных единиц, заданных в Frames.

Next/Previous ‑ перейти к началу следующей/предыдущей дорожки.

Play/Stop, Pause/Resume ‑ начать/прекратить, приостановить/продолжить.

Rewind, StartRecording ‑ перемотка в начало, начало записи.

Save ‑ сохранить клип в файле, указанном в FileName.

2 .3.10.3. Анимация avi (Animation)

Компонент (панель Win32) воспроизводит клип в формате AVI без воспроизведения звука.

Специфичные свойства

CommonAVIисточник воспроизведения: aviNone (файл, указанный в свойстве FileName), aviFindFolder/File/Computer (поиск папки/ файла/ компьютера), aviCopyFiles/File (копирование файлов/файла),aviRecycleFile (перемещение файла в корзину), aviEmptyRecycle (очистка корзины), aviDeleteFile (удаление файла).

FileName ‑ файл‑источник воспроизведения при CommomAVI=aviNone.

Active, Open ‑ разрешает, открывает воспроизведение.

FrameCount, FrameWidth, FrameHeight ‑ номер, ширина и высота кадра.

Repetitions ‑ число повторений клипа (0 ‑ повторение пока Active=True).

StartFrame, StopFrame ‑ номер начального и конечного кадра (отсчет с 1).

Timers ‑ синхронизация по таймеру.

Специфичные методы

Play(N1,N2,N3) ‑ вывод клипа N3 раза, начиная с кадра N1 по N2.

Reset ‑ восстановление исходного состояния: Open=True, Active=False.

Seek(N), Stop ‑ пропускает, не показывая, кадр под номером N; прекратить.

2.3.11. Стандартные диалоги

Компоненты стандартных диалогов Windows находятся на панели Dialogs. После размещения диалога на форме осуществляется его вызов методом Execute из соответствующего обработчика события (например, выбора пункта меню). Метод возвращает значение True при выходе из диа­лога по кнопке OK. Введенные в диалоге параметры используются далее в программе пользователя. События OnShow и OnClose возникают при первом открытии диалога и при его закрытии соответственно.

Диалоги‑шаблоны можно выбрать командой File/New/Dialogs.

2 .3.11.1. Открытие и сохранение файла (OpenDialog, SaveDialog)

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

Специфичные свойства

FileName/Files ‑ маршрут поиска и имя выбранного файла/файлов.

Filter ‑ фильтр с именами и масками отбора имен файлов через символ “|”, формируемый редактором в колонках: Filter Name (имя маски, например, “Текстовые файлы”), Filter (маска выбора, например, “*.TXT”).

FilterIndex ‑ номер текущей маски (отсчет с 1).

InitialDir/DefaultExt ‑ начальный каталог/расширение по умолчанию.

Options ‑ набор флажков с режимами работы диалога: ofReadOnly (только чтение), ofOverWritePrompt/ofCreatePrompt (подтверждение на перезапись / создание нового файла), ofHideReadOnly (убрать переключатель на чте­ние), ofChangeDir (не менять каталог), ofShowHelp (кнопка Help), ofNo­­Validate (запрет контроля имени файла), ofAllowMultiDate (мно­жествен­ный вы­бор файлов), ofExtensionDifferent (ввод расширения, отлич­ного от умал­чиваемого), ofPath/FileMustExist (существующие ката­ло­ги / фай­лы), of­Share­Awar (можно выбирать файлы, занятые другими прог­рам­ма­ми), ofNo­ReadOnlyReturn (запрет выбора только читаемых файлов), ofTest­FileCreate (запрет проверки доступности диска), ofNetworkButton (нет кноп­ки создания сетевого диска), ofNoLongNames (короткие име­на файлов).

FileEditStyle ‑ стиль поля с именем файла: fsComboBox (поле со списком), fsEdit (поле редактирования)

HistoryList, Title ‑ список ранее выбранных файлов, заголовок окна.

Специфичные методы

HistoryList.Add(OpenDialog1.FileName) ‑ сохранить имя файла в списке имен ранее выбранных файлов для поля с именем файла со списком (FileEditStyle=fsComboBox).

GetStaticRect:TRect ‑ возвращает координаты прямоугольника.

Пример выбора имени текстового файла для его открытия:

Procedure TForm1.BitBtn1Click(Sender: TObject); Var F:TextFile; Begin

Opendialog1.FileEditStyle:=fsComboBox; //имя файла в поле со списком

Opendialog1.Filter:='Текстовые файлы|*.TXT'; //выбор текстовых файлов

IF Opendialog1.Execute Then //сохранить имя в списке выбранных файлов

Begin Opendialog1.HistoryList.Add(OpenDialog1.FileName);//сохранить имя

AssignFile(F,OpenDialog1.FileName); End; End;