Delphi-де мультимедия: TMediaPlayer және Animate компоненттерінің теориясы мен практикалық қолданылуы

 Ι Кіріспе 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 бағдарламасына дыбыс, бейне және кіріктірілген TmediaPlayer компонентін қолдана отырып айтылғанды Мультимедиа деген не? Бұның не екендігі жайлы тура баламасы Осындай жалпы анықтама бере отырып, бұл 1. Microsoft's Video for Windows (AVI) 2.MIDI и WAVE файлындағы әуен мен System Палитры Компонент Delphi бетінде орналасқан Мультимедиадағы файлдардардың ойнауы үшін кейбір құралдардың Wavе, Midi дыбыстын шығару үшін дыбыстық Ал AVI Windows 3.1-та Егер бұл Медиаплеер басқа форматтар енгізгесі Delphi мультимедиа Мультимедианың бағдарламаларына негізгі мүмкіндікке рұқсат беретін Қолданудың қарапайымдылығын екі түрлі қабылдауға болады: ● Бір жағынан- ол әр ● Екіншіден, компонентте барлық мүмкіндіктердің жүзеге Бұл сабақта компоненттің жұмысы кезіндегі ішкі TmediaPlayer компоненті Алдымен жаңа жоба құрып алайық, сонан 1- сурет. TmediaPlayer компоненті қалыпта. Компонентті екі ржимде қолдануға болады. Біріншіден, Батырма Әректеті Play Дыбысты орындау, қосу Pause Орындалып жатқан дыбысты, әуенді уақытша Stop Дыбысты тоқтатау Next Келесі әуенге өту Prev Алдандағы әуенге өту Step Қадам жасау, кадрлардың ретін алға Back Соңына өту, кадрлардың ретін артқа Record Бұл жазба болып келеді. Қолданушы Eject Орнатуға жүктелген обьектіні босату Play, Pause, Sop, Next, Previous, Step, Үнсіз оператор операцияларын жүзеге асыратын әрбір Медиаплеермен жұмыс жасайтын мультимедияның орналасу типі MediaPlayer-дің тағы бір қасиеті – AutoOpen. Басқару панелі сияқты TmediaPlayer компоненті кнопкамен Компоненттерді қалыпқа орналастырып, сіз нысана инспекторының 2 сурет: Нысана Инспекторындағы TmediaPlayer қасиет Бұл қасиетте және кеңейтілген AVI, WAV Осы қадамдарды орындағаннан кейін бағдарлама қолдануға Сіз файлға қате ат енгіздіңіз. Windows мультимедиа дұрыс күйіне келтірілмеген. Бұл AVI, WAV немесе MID файлын Тағы бір TmediaPlayer компонентінің қасиеті- Display. 3 сурет: Панелдегі AVI-ді көрсету. Кейде ең үлкен файлды ойнату үшін Кейде программист TmediaPlayer компоненттің бар екендігін Ол үшін компонент (Visible =False) көзге Бұл тарауда біз мультимедияның бірінші мысал Жаңа форма жасаңыз (File | New AVI File(*.avi)|*.avi WAVE File (*.wav)|*.wav MIDI file (*.MID)|*.mid Жобаны сақтаңыз, оны жіберіңіз, керекті файлыңызды Бұған дейін айтылғандай. Бейнероликті форманың 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 стандартты видео клипін Дыбысты орындалатын бейне мынадай екі қасиеттің FileName немесе Common Avi.FileName проектілеу процесінде Ал CommonAVI қасиеті Windows-тағы стандартты мультипликацияны Type TCommonAVI= (aviNone, aviFindFile, aviFileComputer, aviCopyFile, Propery CommoneAVI:CommanAVI; TCommonAVI типі Windows-та алдын ала анықталған Ал әзірге CommonAVI-дің мағынасын орнатсақ, мәселен, Егер Repetitions қасиетіне 0-ден үлкен мән Орындалған бейнені кадр бойнша көре аласыз. Төменде көрсетілгендей клиптың фрагментін дыбысты орындатуды Play арқылы жүзеге асыруға болады. Procedure Play(FormFrame6ToFrame:word;Count:integer); Кадрлық клиптің берілген ізбасар әдісін FromFrame-нан Play –ң орындалуы StartFrame FormFrame-ге тең, Animate компонентінде компонентті ашу және жабу Енді Animate компонентің мүмкіндіктерін көрсететін текстік Сондықтан, дыбысты орындалу соңына дейін орындалу Анимациялық мысал Бұл оқиғаның ең қызықтысы ол, unit ShowAVI_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, 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 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; // доступна кнопка Пуск // сделать недоступными кнопки покадрового просмотра Form1.Button3.Enabled:=False; Form1.Button2.Enabled:=False; end; // активизация режима покадрового просмотра procedure TForm1.RadioButton2Click(Sender: TObject); begin Button2.Enabled:=True; // кнопка Следующий кадр Button3.Enabled:=False; // кнопка Предыдущий кадр недоступна // сделать недоступной кнопку Пуск - Button1.Enabled:=False; end; // пуск и остановка просмотра анимации procedure TForm1.Button1Click(Sender: TObject); begin if Animate1.Active = False // в then begin Animate1.StartFrame:=1; // вывод с первого Animate1.StopFrame:=Animate1.FrameCount; // по последний кадр Animate1.Active:=True; Button1.caption:='Стоп'; RadioButton2.Enabled:=False; end else // анимация отображается begin Animate1.Active:=False; // остановить отображение Button1.caption:='Пуск'; RadioButton2.Enabled:=True; end; end; end. Есептің берілгені Delphi программалай тілінде Медиаплеермен анимация, дыбыс, Алгоритімі Ең бастыс біз жаңа жоба қурамыз.Пуск Келесі қадамымыз, ол компоненттерді Форма бетіне Animate - компонентін орналастырып, керекті қасиетін Panel - Керекті батырмаларды OpenDialog - Керекті файлды таңдап BitBtn1 - Stop батырмалары BitBtn2 - Play батырмалары BitBtn3 - Open батырмалары Қойлған компоненттер осы бейнеде болып келеді. Open Dialog Animate Листинг unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Dialogs, MPlayer, ExtCtrls, ComCtrls, StdCtrls, Buttons; type TForm1 = class(TForm) Animate1: TAnimate; Panel1: TPanel; OpenDialog1: TOpenDialog; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Math; {$R *.dfm} procedure TForm1.BitBtn2Click(Sender: TObject); begin Animate1.Active:=true; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Animate1.Active:=false; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin If OpenDialog1.Execute Then begin Animate1.FileName:=OpenDialog1.FileName; BitBtn2.Enabled:=true end; end; end. Нәтижеі Жұмысты біткен соң F9 (Run) Қорытындылай келетін болсақ, Жалпы Delphi Мультимедиа мүмкіндіктерін Интернет жүйесінде де жариялауға Қолданылған әдебиеттер: А.Я Архангельский - Программирование в Зубов - Справочник программиста. Шумаков - в среде Delphi А.Горев, С.Макашарипов, Р.Ахаян. Эффективная работа в 3