ПЕРЕЛІК ДИСЦИПЛІН:
  • Адміністративне право
  • Арбітражний процес
  • Архітектура
  • Астрологія
  • Астрономія
  • Банківська справа
  • Безпека життєдіяльності
  • Біографії
  • Біологія
  • Біологія і хімія
  • Ботаніка та сільське гос-во
  • Бухгалтерський облік і аудит
  • Валютні відносини
  • Ветеринарія
  • Військова кафедра
  • Географія
  • Геодезія
  • Геологія
  • Етика
  • Держава і право
  • Цивільне право і процес
  • Діловодство
  • Гроші та кредит
  • Природничі науки
  • Журналістика
  • Екологія
  • Видавнича справа та поліграфія
  • Інвестиції
  • Іноземна мова
  • Інформатика
  • Інформатика, програмування
  • Юрист по наследству
  • Історичні особистості
  • Історія
  • Історія техніки
  • Кибернетика
  • Комунікації і зв'язок
  • Комп'ютерні науки
  • Косметологія
  • Короткий зміст творів
  • Криміналістика
  • Кримінологія
  • Криптология
  • Кулінарія
  • Культура і мистецтво
  • Культурологія
  • Російська література
  • Література і російська мова
  • Логіка
  • Логістика
  • Маркетинг
  • Математика
  • Медицина, здоров'я
  • Медичні науки
  • Міжнародне публічне право
  • Міжнародне приватне право
  • Міжнародні відносини
  • Менеджмент
  • Металургія
  • Москвоведение
  • Мовознавство
  • Музика
  • Муніципальне право
  • Податки, оподаткування
  •  
    Бесплатные рефераты
     

     

     

     

     

     

         
     
    Засоби створення мультимедійних додатків
         

     

    Інформатика, програмування

    Засоби створення мультимедійних додатків

    Зміст

    Огляд

    Що таке мультимедіа

    Мультимедіа в Delphi

    Компонент TMediaPlayer

    Два види програм, що використовують мультимедіа

    Приклад програми з мультимедіа

    Огляд     Delphi дозволяє легко і просто включати в       програму такі мультимедійні об'єкти, як звуки, відео і музику. У       даному уроці обговорюється, як це зробити, використовуючи вбудований в Delphi       компонент TMediaPlayer. Докладно розглядаються управління цим       компонентом у програмі та отримання інформації про поточний стан.    Що таке мультимедіа   Точного визначення, що ж це таке, немає. Але в       даний момент і в даному місці, напевно, краще дати по-можливості       найбільш загальне визначення і сказати, що "мультимедіа" - це термін       що відноситься до майже всім формам анімації, звуків, відео, які       використовуються на комп'ютері.  

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

    1. Показ відео у форматі Microsoft's Video for Windows (AVI).

    2. Відтворення звуків і музики з MIDI і WAVE файлів.

    Дану задачу можна виконати за допомогою динамічної бібліотеки Microsoft Multimedia Extensions для Windows (MMSYSTEM.DLL), методи якої інкапсульовані в компоненті TMediaPlay, що знаходиться на сторінці System Палітри Компонент Delphi.

    Для програвання мультимедійних файлів може бути потрібно наявність деякого обладнання та програмного забезпечення. Так для відтворення звуків потрібна звукова карта. Для відтворення AVI в Windows 3.1 (або WFW) потрібно встановити ПО Microsoft Video.      Мультимедіа в Delphi   У Delphi є компонент TMediaPlayer, який       дає Вам доступ до всіх основних можливостей програмування мультимедіа.       Цей компонент дуже простий у використанні. Фактично, він настільки       простий, що багатьом починаючим програмістам буде простіше створити свою       першу програму, програвати відео або музику, ніж показує       класичну напис "Hello World".  

    Простоту використання можна сприймати двояко:

    · З одного боку - це дає можливість будь-якому створювати мультимедіа програми.

    · З іншого боку, можна виявити, що в компоненті реалізовані не всі можливості. Якщо ви захочете використовувати низькорівневі функції, то доведеться копатися досить глибоко, використовуючи мову Delphi.

    У цьому уроці не описуються подробиці внутрішніх викликів мультимедійних функцій при роботі компонента. Все що потрібно знати - це те, що компонент називається TMediaPlayer, і що він дає доступ до набору підпрограм, створених Microsoft і званих Media Control Interface (MCI). Ці підпрограми дають програмісту простий доступ до широкого кола пристроїв мультимедіа. Власне робота з TMediaPlayer інтуїтивно зрозуміла і очевидна.      Компонент TMediaPlayer  

    Для початку давайте створимо новий проект, потім помістимо компонент TMediaPlayer (стор. System Палітри) на форму, як показано на рис.1.

    Рис.1: Компонент TMediaPlayer на формі.

    Компонент TMediaPlayer оформлений, як панель управління пристроєм з кнопками. Як і на магнітофоні, тут є кнопки "відтворення", "Перемотування", "запис" та ін

    Помістивши компонент на форму, Ви побачите, що Інспектор Об'єктів містить властивість "FileName" (див. рис.2). Клацніть двічі

    Рис.2: Властивості TMediaPlayer в інспектор об'єктів

    на цю властивість і виберіть ім'я файлу з розширенням AVI, WAV або

    MID. На рис.2 обраний AVI файл DELPHI.AVI. Далі потрібно встановити властивість AutoOpen в True.

    Після виконання цих кроків програма готова до запуску. Запустивши програму, натисніть зелену кнопку "відтворення" (крайня зліва) і Ви побачите відеоролик (якщо вибрали AVI) або почуєте звук (якщо вибрали WAV або MID). Якщо цього не сталося або з'явилося повідомлення про помилку, то можливі два варіанти:     Ви ввели неправильне ім'я файлу.     Ви не налаштували правильним чином мультимедіа в Windows. Це      означає, що або у Вас немає відповідного "заліза", або не      встановлені потрібні драйвери. Встановлення і налагодження драйверів проводиться      в Control Panel, вимоги до "заліза" приводяться в будь-якій книзі по      мультимедіа (потрібна звукова карта, наприклад сумісна з Sound Blaster).

    Отже, Ви маєте можливість програвати AVI, MIDI і WAVE файли просто вказуючи ім'я файлу.

    Ще одна важлива властивість компонента TMediaPlayer - Display. Спочатку воно не заповнено і відео відтворюється в окремому віконці. Однак, як екрану для показу ролика можна використовувати, наприклад, панель. На форму потрібно помістити компонент TPanel, прибрати текст з св-ва Caption. Далі, для TMediaPlayer, у властивості Display вибрати зі списку Panel1. Після цього треба запустити програму і натиснути кнопку "відтворення" (див. рис.3)

    Рис.3: Відтворення AVI на панелі.                    Два види програм мультимедіа    · Іноді доводиться надавати користувачам        простий шлях для програвання максимально широкого кола файлів. Це        означає, що Вам потрібно буде дати користувачеві доступ до жорсткого диска        або CD-ROM, і потім дозволити йому вибрати та відтворити відповідний        файл. У цьому випадку, на формі звичайно розташовується TMediaPlayer,        що надає можливість управління відтворенням.     

    · Іноді програміст може захотіти приховати від користувача існування компонента TMediaPlayer. Тобто, відтворити звук або відео без того, щоб користувач дбав про їх джерелі. Зокрема, звук може бути частиною презентації. Наприклад, показ якого-небудь графіка на екрані може супроводжуватися поясненням, записаним в WAV файл. Протягом презентації користувач навіть не знає про існування TMediaPlayer. Він працює у фоновому режимі. Для цього компонент робиться невидимим (Visible = False) і управляється програмно.          Приклад програми з мультимедіа     

    У цьому розділі ми розглянемо приклад побудови програми з мультимедіа першого типу. Створіть новий проект (File | New Project). Помістіть TMediaPlayer на форму; помістіть компоненти TFileListBox, TDirectoryListBox, TDriveComboBox, TFilterComboBox для вибору файлу. У властивості FileList для DirectoryListBox1 і FilterComboBox1 поставте FileListBox1. У св-ве DirList для DriveComboBox1 поставте DirectoryListBox1. У св-ве Filter для FilterComboBox1 вкажіть необхідні розширення файлів:

    AVI File (*. avi) | *. avi

    WAVE File (*. wav) | *. wav

    MIDI file (*. MID) | *. mid

    Хай по подвійному кліку мишкою в FileListBox1 вибраний файл буде відтворюватися. У обробнику події OnDblClick для FileListBox1 вкажіть

    Procedure TForm1.FileListBox1DblClick (Sender: TObject);

    begin

    with MediaPlayer1 do

    begin

    Close;

    FileName: = FileListBox1.FileName;

    Open;

    Play;

    end;

    end;

    Зовнішній вигляд форми представлений на мал.4

    Рис.4: Початковий вигляд проекту

    Збережіть проект, запустіть його, виберіть потрібний файл і двічі клацніть на нього мишкою. MediaPlayer повинен відтворити це фото в окремому вікні.

    Як вже говорилося вище, відеоролик можна відтворювати всередині форми, наприклад, на панелі. Давайте трохи модифікуємо проект і додамо туди панель TPanel (див. рис.5). У св-ве Display для MediaPlayer1 вкажіть Panel1. Потрібно прибрати напис з панелі (Caption)

    і св-во BevelOuter = bvNone. Щоб перемикатися при відтворенні з вікна на панель - помістіть TСheckBox на форму і в обробнику події OnClick для нього запишіть:

    procedure TForm1.CheckBox1Click (Sender: TObject);

    var

    Start_From: Longint;

    begin

    with MediaPlayer1 do begin

    if FileName =''then Exit;

    Start_From: = Position;

    Close;

    Panel1.Refresh;

    if CheckBox1.Checked then

    Display: = Panel1

    else

    Display: = NIL;

    Open;

    Position: = Start_From;

    Play;

    end;

    end;

    Запустіть проект і відтворіть відеоролик. Поклацувати мишкою на CheckBox.

    · · Рис.5: Додана панель для відтворення відео і перемикач вікно/панель.

    Під час виконання програми може бути потрібно відобразити поточний стан об'єкта MediaPlayer і самого ролика (час, що минув з початку відтворення, довжину ролика). Для цього в об'єкта TMediaPlayer є відповідні властивості та події: Length, Position, OnNotify та ін Давайте додамо в проект прогрес-індикатор (TGauge), що відобразить у відсотках, скільки минуло часу (див. рис.6). Для оновлення показань індикатора можна скористатися таймером. Помістіть на форму об'єкт TTimer, встановіть для нього Interval = 100 (100 мілісекунд). У обробнику події OnTimer потрібно записати:

    procedure TForm1.Timer1Timer (Sender: TObject);

    begin

    with MediaPlayer1 do

    if FileName''then

    Gauge1.Progress: = Round (100 * Position/Length);

    end;

    Запустіть проект, виберіть файл (AVI) і клацніть на ньому два рази мишкою. При відтворенні ролика прогрес-індикатор повинен відображати відсоток, відповідний пройшов часу (див. рис.6).

    · · Рис.6: Закінчений додаток для відтворення AVI, WAV і MDI файлів.

         
     
         
    Реферат Банк
     
    Рефераты
     
    Бесплатные рефераты
     

     

     

     

     

     

     

     
     
     
      Все права защищены. Reff.net.ua - українські реферати ! DMCA.com Protection Status