Дельфидегі мультимедия


Жоспар

Ι Кіріспе

1. 1 Кіріспе . . . 3

II Негізгі бөлім

2. 1 Мультимедия деген не? . . . 3

2. 2 Дельфидегі мультимедия . . . 4

2. 3 TMediaPlayer компоненті . . . 4

2. 4 Animate компоннті . . . 7

2. 5 Анимациялық мысал . . . 11

III Есеп

3. 1 Берілгені . . . 15

3. 2 Алгоритмі . . . 16

3. 3 Листингі . . . 18

3. 4 Нәтижесі . . . 19

IV Қорытынды . . . 20

V Қолданылған әдебиеттер . . . 21

Кіріспе

Delphi бағдарламасына дыбыс, бейне және әуен сынды мультимедиялық нысаналарды жеңіл және қарапайым еңгізуге болады. Берілген сабақта Delphi

кіріктірілген TmediaPlayer компонентін қолдана отырып айтылғанды қалай жасауға болатыны қарастырылады. Бағдарламадағы осы компонантті басқару толығымен қаралады және ағымды жағдайы туралы ақпарат алынады.

Мультимедиа деген не?

Бұның не екендігі жайлы тура баламасы жоқ. Дегенмен, қазіргі жағдайда мүмкіндігінше жалпы анықтама беру және «мультимедия» - бұл барлық анимациялық формаға, компьютерде қолданылатын дыбыс, бейнеге қатысты термин деген дұрыс.

Осындай жалпы анықтама бере отырып, бұл сабақта біз көптеген мультимедияға жолығамыз. Ол өзіне :

1. Microsoft's Video for Windows (AVI) форматындағы бейнені көрсету

2. MIDI и WAVE файлындағы әуен мен дыбысты шығару енгізеді.

System Палитры Компонент Delphi бетінде орналасқан TmediaPlay компонентіне инкапсулданған методттармен Microsoft Multimedia Extensions үшін Windows (MMSYSTEM. DLL) динамикалық библиотека арқылы бұл есепті шешуге болады.

Мультимедиадағы файлдардардың ойнауы үшін кейбір құралдардың және бағдарламалық қамтамасыз етілуі қажет. Сонымен бірге:

Wavе, Midi дыбыстын шығару үшін дыбыстық карта және драйверін орнату керек.

Ал 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 компоненті қалыпта.

Компонентті екі ржимде қолдануға болады. Біріншіден, басқару панелі әртүрлі орындаушы көмегімен жүзеге асатын қолданушы дыбысты орындайтын көмегімен жүзеге асатын қолданушы дыбысты орындататын батырманың интерфейсімен басқара алады. Екіншіден, компоненттің өзіне көрінбейтін етіп, және дыбысты орындауды оның әдісімен басқаруға болады

Батырма
Әректеті
Батырма: Play
Әректеті: Дыбысты орындау, қосу
Батырма: Pause
Әректеті: Орындалып жатқан дыбысты, әуенді уақытша тоқтату
Батырма: Stop
Әректеті: Дыбысты тоқтатау
Батырма: Next
Әректеті: Келесі әуенге өту
Батырма: Prev
Әректеті: Алдандағы әуенге өту
Батырма: Step
Әректеті: Қадам жасау, кадрлардың ретін алға жылжытады
Батырма: Back
Әректеті: Соңына өту, кадрлардың ретін артқа жылжытады
Батырма: Record
Әректеті: Бұл жазба болып келеді. Қолданушы өз қалауымен дыбыс жаза алады
Батырма: Eject
Әректеті: Орнатуға жүктелген обьектіні босату

Play, Pause, Sop, Next, Previous, Step, Back, Record, Eject

Үнсіз оператор операцияларын жүзеге асыратын әрбір батырмаға медиаплеер сәйкес келетін әдістер бар.

Медиаплеермен жұмыс жасайтын мультимедияның орналасу типі DevicType қасиетімен анықталады. Егер мультимедиа дыбысты орындалу обьектісі файлда болса, онда файлдың аты Filename қасиетімен беріледі. DevicType үнсіз қасиеті dtAutoSelect деген мағынаға ие.

MediaPlayer-дің тағы бір қасиеті - AutoOpen. Егер ол true деп орнатылса DevicType қасиетінде көрсетілген қосымшаны орындау процесі ол орнатылған уақыттан бастап автоматты түрде медиаплеер орнатуды орнатуды және ашуға тырысады.

Басқару панелі сияқты TmediaPlayer компоненті кнопкамен жабдықталған. Магнитафондағыдай бұл жердеде «шығару», «айналдыру» және т. б. кнопкалары бар.

Компоненттерді қалыпқа орналастырып, сіз нысана инспекторының «FileName» қаситеті бар екендігін байқайсыз (2 сурет. ) Екі рет басыңыз.

2 сурет: Нысана Инспекторындағы TmediaPlayer қасиет

Бұл қасиетте және кеңейтілген AVI, WAV немесе MID файл атын таңдаңыз. 2-суретте DELPHI. AVI. файлындағы AVI таңдалды. Осыдан кейін True Auto Open құрылымын орнату керек.

Осы қадамдарды орындағаннан кейін бағдарлама қолдануға дайын. Бағдарламаны жібергеннен кейін “шығару” жасыл кнопкасын басыңыз. Сіз бейнероликті немесе дыбыс естисіз. Егер бұл болмаса немесе қате туралы хабарлама болса, онда оның екі нұсқасы бар:

  1. Сіз файлға қате ат енгіздіңіз.
  2. Windows мультимедиа дұрыс күйіне келтірілмеген. Бұл cізде сәйкес «темірдің» жоқтығын немесе қажетті драйверлердің орнатылмағанын білдіреді. Control Panelдегі драйвелердің күйін келтіру және орнату, «темірге» талап ету мультимедиа бойынша барлық кітаптарда келтіріледі ( Sound Blaster) .

AVI, WAV немесе MID файлын жай ғана көрсетіп ойнатуға мүмкіндігіңіз бар.

Тағы бір TmediaPlayer компонентінің қасиеті- Display. Бастапқыда ол толтырылмаған және бейне бөлек терезеде көрсетілген. Дегенмен роликті көрсету үшін экран ретінде панельді қолдануға болады. Қалыпқа Tpanel компонентін орналастырып, Caption қалпынан мәтінді алып тасталады. Одан ары TmediaPlayer үшін Panel тізіміндегі Display құрылымын таңдайды. Осыдан кейін бағдарламаны жіберіп “көрсету” кнопкасын басады.

3 сурет: Панелдегі AVI-ді көрсету.

Кейде ең үлкен файлды ойнату үшін қолданушыға жеңіл жол көрсетіледі. Бұл қолданушыға қатты диск немесе CD-ROM-ға рұқсат беріледі және Қажетті файлды көрсетуге және таңдауға мүмкіндік береді.

Кейде программист 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

Жобаны сақтаңыз, оны жіберіңіз, керекті файлыңызды таңдап оған 2 рет тышқан батырмасымен басыңыз MediaPlayer компонеті міндетті түрде басқа терезеде ойнату керек.

Бұған дейін айтылғандай. Бейнероликті форманың ішінде ойнатуға болады, мысалы панельдің үстінде. Проекті кішкене модификациялап, оған TPanel-ін қосайық. Display қасиетінде MediaPlayer1 үшін Tpanel1 көрсетуі керек. Tpanel1 компонентінің Caption деген қасиетін бос қалдырамыз және BevelOuter = bvNone қасттері де бос болады. Ойнап жатқат күйінде труден панельге қосылу үшін TСheckBox формаға орналастырыңыз және де OnClick оқиғаны өндушіге 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;

Animate компоненті

Animate компоненті Windows стандартты видео клипін формада дыбысты орындауға мүмкіндік береді(файлдық көшірменің типі, файлдарды іздеу және т. б) және үнсіз видео файл . avi - Audio Video Interleaved. Бұл файлдар биттік матрицалардың ізбасарлық кадрын көрсетеді. Олар дыбыстық Avi клиптерін ғана дыбысты орындай алады.

Дыбысты орындалатын бейне мынадай екі қасиеттің бірімен беріледі

FileName немесе Common Avi. FileName проектілеу процесінде және дыбысты орындалатын файлдың атын программалау беру мүмкіндігіне ие.

Ал CommonAVI қасиеті Windows-тағы стандартты мультипликацияны дыбысты орындау мүмкіндігін береді. Бұл қасит төмендегідей жүзеге асады:

Type TCommonAVI= (aviNone, aviFindFile, aviFileComputer, aviCopyFile, aviCopy File, aviRecycleFile, aviEmptyRecycle, aviDeleteFile) ;

Propery CommoneAVI:CommanAVI;

TCommonAVI типі Windows-та алдын ала анықталған файлдарды көшіру, файлдарды іздеу, файлдарды өшіру және т. б. Мультипликациялық типтердің жиынын анықтайды. Олардың әрқайсысының мағынасын текстік қосымшада қарастырамыз.

Ал әзірге CommonAVI-дің мағынасын орнатсақ, мәселен, тең aviCopyFile деп. Бұл файлдық көшірмені стандартты бйнелеуге сәйкес келеді. Animate компонентіндегі Repetitions қасиеті дыбысты орындалатын клиптің қайталануы санын береді. Егер ол 0-ге тең болса (мәңгі үнсіз), онда Stop әдісі орындалғанша дыбысты орындау үсті-үстіне қайталанады. Бұл әдіс орындалу кезінде OnStop оқиғасы генерирленеді. OnStop-ты, мысалы, бейнені өшіруге -көрінбейтіндей етіп жасау үшін қолданылады.

Егер Repetitions қасиетіне 0-ден үлкен мән берсек, онда клиптің қайталануы санын анықтайды. Animate компонентіндегі Active Қасиетін “true” деп өзгертеміз. Сонда бейнені орындау жүзеге асып, клип сан ретінде қайталанады.

Орындалған бейнені кадр бойнша көре аласыз. Ол үшін компонентте тышқанның оң жақ батырмасын басыңыз және шыққан менюден NextFrame (келесі кадр) немесе PreviousFrame(алдындағы кадр) бөлімін таңдаңыз. Бұл сізге клиптің фрагментін таңдауға мүмкіндік берді, егер сіз клиптің толығымен дыбысты орындалуын қаламасаңыз. Клиптің фрагмент дыбысты орындау үшін StartFrame-дыбысты орындалудың бастапқы кадры, және StopFrame дыбысты орындалудың соңғы кадры қасиеттерін орындау керек.

Төменде көрсетілгендей клиптың фрагментін дыбысты орындатуды

Play арқылы жүзеге асыруға болады.

Procedure Play(FormFrame6ToFrame:word; Count:integer) ;

Кадрлық клиптің берілген ізбасар әдісін FromFrame-нан ToFrame-ға дейін кірсе, дыбысты орындалу бір рет Count қайталанады. Егер FromFrame=1, онда дыбысты орындалу бірінші кадрдан басталады. ToFrame FromFrame-нен кем болмау керек және FrameCount(тек оқуға арналған қасиет) қасиетімен анықталатын және клиптегі кадрлардың толық сан мәнін көрсететін мағынадан үлкен болмауы керек . Егер Count=0 болса, онда stop әдісі орындалмайнша дыбысты орындалу қайталана береді.

Play -ң орындалуы StartFrame FormFrame-ге тең, StopFrame ToFrame-ге тең, Repetition Count-ке және true болатын Active-тың келесі орнатуына тең болатын орындалуымен пар.

Animate компонентінде компонентті ашу және жабу дыбысты орындалудың басы мен аяғын генерирлейтін OnClose OnOpen OnStart және OnStop оқиғалары қарастырылған.

Енді Animate компонентің мүмкіндіктерін көрсететін текстік қосымша құрсақ . . . Осы қосымшада Animate компонентінің Visible қасиетін false-қа өзгертсек. Бұл файлдарды көшіру, файлдарды іздеу және т. б. оқиғалары болған кезде бейнелер шығу үшін қажет. Текстік қосымшада дыбысты орындауды тоқтату және ену батырмасын басу арқылы мультипликация лы орындалатын оқиғаның басын және аяғын өзгертуге болады.

Сондықтан, дыбысты орындалу соңына дейін орындалу үшін Repetitions қасиетін 0-ге тең деп беру керек. Active қасиетін false-қа орнатамыз. Сол сияқты бейне экранның центрінде пайда болу үшін AutoSize қасиетін false-қа, ал Center қасиетін true-ге орнатамыз.

Анимациялық мысал

Бұл оқиғаның ең қызықтысы ол, Анимацианы тоқтатып, кадрлап бейнелеуге болады.

unit ShowAVI_;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ComCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Animate1: TAnimate; // компонент Animate

Button1: TButton; // кнопка Пуск-Стоп

Button2: TButton; // следующий кадр

Button3: TButton; // предыдущий кадр

RadioButton1: TRadioButton; // просмотр всей анимации

RadioButton2: TRadioButton; // по кадровый просмотр

procedure Button1Click(Sender: TObject) ;

procedure Button2Click(Sender: TObject) ;

procedure Button3Click(Sender: TObject) ;

procedure RadioButton1Click(Sender: TObject) ;

procedure RadioButton2Click(Sender: TObject) ;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; // форма

CFrame: integer; // номер отображаемого кадра

// в режиме покадрового просмотра

implementation

{$R *. DFM}

// к следующему кадру

procedure TForm1. Button2Click(Sender: TObject) ;

begin

if CFrame = 1 then Button2. Enabled := True;

if CFrame < Animate1. FrameCount then

begin

CFrame := CFrame + 1;

// вывести кадр

Animate1. StartFrame := CFrame;

Animate1. StopFrame := CFrame;

Animate1. Active := True;

if CFrame = Animate1. FrameCount // текущий кадр - последний

then Button2. Enabled:=False;

end;

end;

// к предыдущему кадру

procedure TForm1. Button3Click(Sender: TObject) ;

begin

if CFrame = Animate1. FrameCount

then Button2. Enabled := True;

if CFrame > 1 then

begin

CFrame := CFrame - 1;

// вывести кадр

Animate1. StartFrame := CFrame;

Animate1. StopFrame := CFrame;

Animate1. Active := True;

if CFrame = 1 // текущий кадр - первый

then Form1. Button3. Enabled := False;

end;

end;

// активизация режима просмотра всей анимации

procedure TForm1. RadioButton1Click(Sender: TObject) ;

begin

Button1. Enabled:=True; // доступна кнопка Пуск

// сделать недоступными кнопки покадрового просмотра

... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.
Ұқсас жұмыстар
Delphi бағдарламасын қолданып мәліметтер қорын құру
StaticText,Label,Pаnel компоненттерінде мәтіннің жазылуы
Сократ, білім және білімсіздік туралы
Мультимедияның аппараттық құралдары
Қолданбалы мультимедиялық бағдарлама
Мультимедиалық технологиялар арқылы оқушылардың креативтігін дамыту
Сабақ – оқу процесін ұйымдастырудың ең тиімді формасы
Жалпы биология курсын оқытуда мультимедия құралдарын қолдану әдістемесі
Мультимедиялық қосымшалардың мүмкіндігі
Шетел тілін оқытуда мультимедиялық құралдарын қолдану
Пәндер



Реферат Курстық жұмыс Диплом Материал Диссертация Практика Презентация Сабақ жоспары Мақал-мәтелдер 1‑10 бет 11‑20 бет 21‑30 бет 31‑60 бет 61+ бет Негізгі Бет саны Қосымша Іздеу Ештеңе табылмады :( Соңғы қаралған жұмыстар Қаралған жұмыстар табылмады Тапсырыс Антиплагиат Қаралған жұмыстар kz