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

Жоспар

Ι Кіріспе

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 картасын және драйверін орнату керек.
Егер бұл Медиаплеер басқа форматтар енгізгесі келетін болса, онда оған керекті Кодектер орнатуы қажет.
Қолданылған әдебиеттер:
1) А.Я Архангельский - Программирование в Delphi7
2) Зубов - Справочник программиста.
3) Шумаков - в среде Delphi
4) А.Горев, С.Макашарипов, Р.Ахаян. Эффективная работа в среде Delphi
        
        Жоспар
Ι Кіріспе
1.1
Кіріспе.....................................................................
................................3
II Негізгі бөлім
2.1 Мультимедия деген
не?.........................................................................
3
2.2 Дельфидегі
мультимедия.................................................................
......4
2.3 TMediaPlayer
компоненті..................................................................
.....4
2.4 Animate
компоннті...................................................................
...............7
2.5 ... ... ... ... дыбыс, бейне және әуен сынды мультимедиялық
нысаналарды жеңіл және қарапайым еңгізуге болады. Берілген ... ... ... ... ... ... айтылғанды қалай
жасауға болатыны қарастырылады. Бағдарламадағы осы компонантті басқару
толығымен қаралады және ағымды жағдайы ... ... ... ... ... не ... жайлы тура баламасы жоқ. Дегенмен, қазіргі жағдайда
мүмкіндігінше жалпы анықтама беру және «мультимедия» - бұл ... ... ... ... ... ... қатысты термин
деген дұрыс.
Осындай жалпы анықтама бере ... бұл ... біз ... ... Ол ... :
1. ... Video for Windows (AVI) ... бейнені көрсету
2.MIDI и WAVE файлындағы әуен мен дыбысты шығару енгізеді.
System Палитры ... Delphi ... ... ... ... ... ... Multimedia Extensions үшін Windows
(MMSYSTEM.DLL) динамикалық библиотека ... бұл ... ... болады.
Мультимедиадағы файлдардардың ойнауы үшін кейбір құралдардың және
бағдарламалық қамтамасыз етілуі қажет. Сонымен бірге:
Wavе, Midi ... ... үшін ... карта және драйверін орнату
керек.
Ал AVI Windows 3.1-та (немесе WFW) шығару үшін ПО Microsoft Video
картасын және ... ... ... бұл ... ... форматтар енгізгесі келетін болса, онда оған
керекті Кодектер орнатуы қажет.
Delphi мультимедиа
Мультимедианың бағдарламаларына негізгі мүмкіндікке рұқсат беретін Delphi
TmediaPlayer ... бар. ... ... ... өте ... ... ... тіпті жаңа бастаған программистер көрсетілетін
классикалық "Hello World" жазуынан гөрі өздерінің бірінші ... ... ... әуен ... болады.
Қолданудың қарапайымдылығын екі түрлі қабылдауға болады:
● Бір жағынан- ол әр кімге мультимедиалық қосымша құруға ... ... ... ... ... ... жүзеге аспағаны байқалады.
Егер сіз төменгі сатыдағы функцияны қолданғыңыз келсе Delphi ... ... ... сабақта компоненттің жұмысы кезіндегі ішкі ... ... Бар ... ол ... ... деп ... құрылған және аталған Media control Interface (MCI) ... ... ... ... Бұл кіші ... кең ... мультимедиа құрылымына қарапайым рұқсат береді.
Сонымен TmediaPlayer жұмысы интуитивті ұғымды.
TmediaPlayer компоненті
Алдымен жаңа жоба ... ... ... ... TmediaPlayer компонентін
(System Палитра беті) қалыпқа отырғызамыз, ол 1 ... ... ... ... компоненті қалыпта.
Компонентті екі ржимде қолдануға болады. Біріншіден, басқару панелі
әртүрлі орындаушы көмегімен жүзеге асатын қолданушы дыбысты орындайтын
көмегімен ... ... ... ... ... ... ... алады. Екіншіден, компоненттің өзіне көрінбейтін
етіп, және дыбысты орындауды оның әдісімен басқаруға болады
|Батырма ... |
| Play ... ... қосу |
| Pause ... жатқан дыбысты, әуенді уақытша тоқтату |
| Stop ... ... |
| Next ... ... өту |
| Prev ... ... өту |
| Step ... ... ... ретін алға жылжытады |
| Back ... өту, ... ... ... ... |
| Record |Бұл ... болып келеді. Қолданушы өз қалауымен дыбыс |
| ... ... |
| Eject ... ... ... ... ... Pause, Sop, Next, Previous, Step, Back, Record, Eject
Үнсіз оператор операцияларын жүзеге ... ... ... сәйкес келетін әдістер бар.
Медиаплеермен жұмыс жасайтын мультимедияның орналасу типі DevicType
қасиетімен анықталады. Егер мультимедиа дыбысты орындалу ... ... онда ... аты Filename ... ... ... ... dtAutoSelect деген мағынаға ие.
MediaPlayer-дің тағы бір қасиеті – AutoOpen. Егер ол true ... ... ... көрсетілген қосымшаны орындау процесі ол
орнатылған уақыттан бастап автоматты түрде медиаплеер орнатуды ... ... ... панелі сияқты TmediaPlayer компоненті кнопкамен жабдықталған.
Магнитафондағыдай бұл ... ... ... және т.б. кнопкалары
бар.
Компоненттерді қалыпқа ... сіз ... ... ... бар ... байқайсыз (2 сурет.) Екі рет басыңыз.
2 сурет: Нысана Инспекторындағы TmediaPlayer қасиет
Бұл қасиетте және кеңейтілген AVI, WAV немесе MID файл атын ... ... ... ... AVI ... Осыдан кейін True Auto Open
құрылымын орнату керек.
Осы қадамдарды орындағаннан ... ... ... ... ... ... “шығару” жасыл кнопкасын басыңыз. Сіз
бейнероликті немесе ... ... Егер бұл ... ... қате туралы
хабарлама болса, онда оның екі нұсқасы бар:
1. Сіз файлға қате ат енгіздіңіз.
2. Windows ... ... ... ... Бұл ... ... жоқтығын немесе қажетті драйверлердің ... Control ... ... ... ... және ... ... ету мультимедиа бойынша барлық кітаптарда келтіріледі (
Sound Blaster).
AVI, WAV ... MID ... жай ғана ... ... ... бір ... компонентінің қасиеті- Display. Бастапқыда ол
толтырылмаған және бейне ... ... ... ... роликті
көрсету үшін экран ретінде панельді ... ... ... Tpanel
компонентін орналастырып, Caption қалпынан мәтінді алып тасталады. Одан
ары TmediaPlayer үшін Panel тізіміндегі Display ... ... ... ... жіберіп “көрсету” кнопкасын басады.
3 сурет: Панелдегі AVI-ді ... ең ... ... ... үшін қолданушыға жеңіл жол көрсетіледі. Бұл
қолданушыға қатты диск немесе CD-ROM-ға рұқсат беріледі және ... ... және ... ... ... ... ... компоненттің бар екендігін
пайдаланушыдан жасыруы мүмкін. Ол ... ... ... (Ойнату) және
бейнені пайдаланушы көзіне қамқорлық жасайды. ... ... ... бір ... ... мүмкін. Мысалы: Экранда кестені көрсету Wav
файлына жазылған түсініктемемен жүргізілуі мүмкін ... ... ... бар ... ... білмейді. Ол фондық
тәртіп(Режимде) жұмыс жасайды.
Ол үшін компонент (Visible =False) ... ... ... ... ... біз ... ... мысал түрінде қарастырамыз.
Жаңа форма жасаңыз (File | New ... Оған ... ... тағы ... ... ... TFileListBox,
TDirectoryListBox, TDriveComboBox, TfilterComboBox бұл файлды алу ... FileList бұл үшін ... және ... ... Ал DirList қасиетінде DriveComboBox1-ге ... Filter ... ... ... ... ... көрсету керек.
AVI File(*.avi)|*.avi
WAVE File (*.wav)|*.wav
MIDI file (*.MID)|*.mid
Жобаны сақтаңыз, оны жіберіңіз, керекті файлыңызды таңдап оған 2 ... ... ... ... ... ... ... басқа
терезеде ойнату керек.
Бұған дейін айтылғандай. Бейнероликті форманың ішінде ойнатуға
болады, мысалы ... ... ... ... ... оған
TPanel-ін қосайық. Display қасиетінде MediaPlayer1 үшін Tpanel1 ... Tpanel1 ... Caption ... ... бос ... ... = 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;
Animate компоненті
Animate ... Windows ... ... ... ... ... ... береді(файлдық көшірменің типі, файлдарды іздеу ... ... ... файл .avi - Audio Video ... Бұл файлдар
биттік матрицалардың ізбасарлық кадрын көрсетеді. Олар дыбыстық ... ғана ... ... ... орындалатын бейне мынадай екі қасиеттің бірімен беріледі
FileName немесе Common Avi.FileName проектілеу процесінде және ... ... атын ... беру ... ... CommonAVI қасиеті Windows-тағы ... ... ... ... береді. Бұл қасит төмендегідей жүзеге асады:
Type TCommonAVI= (aviNone, ... ... ... File, ... aviEmptyRecycle, aviDeleteFile);
Propery CommoneAVI:CommanAVI;
TCommonAVI типі Windows-та алдын ала анықталған файлдарды көшіру,
файлдарды іздеу, файлдарды ... және т.б. ... ... анықтайды. Олардың әрқайсысының мағынасын текстік ... ... ... ... ... мәселен, тең aviCopyFile
деп. Бұл файлдық көшірмені стандартты бйнелеуге сәйкес келеді. ... ... ... ... ... ... қайталануы
санын береді. Егер ол 0-ге тең ... ... ... онда Stop ... ... орындау үсті-үстіне қайталанады. Бұл әдіс ... OnStop ... ... мысалы, бейнені өшіруге
–көрінбейтіндей етіп ... үшін ... ... ... 0-ден үлкен мән берсек, онда клиптің
қайталануы санын анықтайды. Animate ... Active ... ... өзгертеміз. Сонда бейнені орындау жүзеге асып, клип сан ... ... кадр ... көре ... Ол үшін ... ... жақ батырмасын басыңыз және шыққан ... ... ... ... PreviousFrame(алдындағы кадр) бөлімін таңдаңыз. Бұл ... ... ... ... ... егер сіз ... толығымен дыбысты
орындалуын қаламасаңыз. Клиптің фрагмент дыбысты орындау үшін StartFrame-
дыбысты орындалудың бастапқы кадры, және ... ... ... кадры қасиеттерін орындау керек.
Төменде көрсетілгендей клиптың фрагментін дыбысты орындатуды
Play ... ... ... ... ... клиптің берілген ізбасар әдісін FromFrame-нан ToFrame-ға дейін
кірсе, дыбысты орындалу бір рет Count қайталанады. Егер FromFrame=1, ... ... ... ... ... ToFrame ... кем
болмау керек және FrameCount(тек оқуға арналған қасиет) қасиетімен
анықталатын және ... ... ... сан ... ... ... болмауы керек . Егер Count=0 болса, онда stop әдісі орындалмайнша
дыбысты орындалу қайталана береді.
Play –ң ... ... ... тең, StopFrame ToFrame-ге
тең, Repetition Count-ке және true болатын Active-тың келесі орнатуына ... ... ... ... ... ашу және жабу дыбысты орындалудың
басы мен аяғын генерирлейтін OnClose OnOpen OnStart және OnStop оқиғалары
қарастырылған.
Енді Animate ... ... ... ... қосымша
құрсақ.... Осы қосымшада Animate компонентінің Visible қасиетін false-қа
өзгертсек. Бұл файлдарды ... ... ... және т.б. оқиғалары болған
кезде бейнелер шығу үшін қажет. Текстік ... ... ... ... ену ... басу арқылы мультипликация лы орындалатын ... және ... ... ... ... ... ... дейін орындалу үшін
Repetitions қасиетін 0-ге тең деп беру ... Active ... ... Сол ... ... ... ... пайда болу үшін AutoSize
қасиетін false-қа, ал Center қасиетін ... ... ... ... ең ... ол, ... ... кадрлап
бейнелеуге болады.
unit ShowAVI_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Animate1: TAnimate; // компонент ... TButton; // ... ... TButton; // ... ... TButton; // ... кадр
RadioButton1: TRadioButton; // просмотр всей анимации
RadioButton2: TRadioButton; // по кадровый просмотр
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ... ... ... ... ... ... Private ... }
public
{ Public declarations }
end;
var
Form1: TForm1; // форма
CFrame: integer; // номер отображаемого кадра
// в режиме ... ... ... к следующему кадру
procedure TForm1.Button2Click(Sender: TObject);
begin
if CFrame = 1 then Button2.Enabled := True;
if CFrame < Animate1.FrameCount then
begin
CFrame := CFrame + ... ... ... := ... := ... := ... CFrame = Animate1.FrameCount // текущий кадр - последний
then Button2.Enabled:=False;
end;
end;
// к предыдущему кадру
procedure TForm1.Button3Click(Sender: TObject);
begin
if CFrame = Animate1.FrameCount
then Button2.Enabled := ... CFrame > 1 ... := CFrame - ... ... ... := CFrame;
Animate1.StopFrame := CFrame;
Animate1.Active := True;
if CFrame = 1 // текущий кадр - первый
then Form1.Button3.Enabled := ... ... ... ... всей ... TForm1.RadioButton1Click(Sender: TObject);
begin
Button1.Enabled:=True; // доступна кнопка Пуск
// сделать недоступными кнопки покадрового просмотра
Form1.Button3.Enabled:=False;
Form1.Button2.Enabled:=False;
end;
// активизация режима ... ... ... TObject);
begin
Button2.Enabled:=True; // кнопка Следующий кадр доступна
Button3.Enabled:=False; // ... ... кадр ... ... ... кнопку Пуск - вывод всей анимации
Button1.Enabled:=False;
end;
// пуск и остановка просмотра ... ... ... ... = False // в данный момент анимация не выводиться
then begin
Animate1.StartFrame:=1; // вывод с ... // по ... ... // ... ... // ... ... берілгені
Delphi программалай тілінде Медиаплеермен анимация, дыбыс, әуен және
бейнелерді (видеоролик) ойнату. Жаңа жобаның бетіне керекті компоненттерді
орналастырып, Приойгрователь секілді ... құру ... ... біз жаңа жоба ... ... ... ... қадамымыз, ол компоненттерді Форма бетіне дұрыс орналастыру.
1) Animate- компонентін орналастырып, ... ... ... Panel - Керекті батырмаларды орналастыру үшін.
3) OpenDialog - ... ... ... алу үшін.
4) BitBtn1 - Stop батырмалары болып келкді
5) BitBtn2 - Play ... ... ... BitBtn3 - Open батырмалары болып келкді
Қойлған компоненттер осы бейнеде болып келеді. Компоненттердің қасиетін
келесі терезеде көруге болады.
Open Dialog Animate ... ... ... ... Variants, Classes, Graphics, Controls,
Forms,
Dialogs, MPlayer, ExtCtrls, ComCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Animate1: TAnimate;
Panel1: TPanel;
OpenDialog1: TOpenDialog;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure ... ... ... ... BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Math;
{$R *.dfm}
procedure TForm1.BitBtn2Click(Sender: ... ... ... ... ... OpenDialog1.Execute Then begin
Animate1.FileName:=OpenDialog1.FileName;
BitBtn2.Enabled:=true
end; end; end.
Нәтижеі
Жұмысты біткен соң F9 (Run) ... ... ... ... ... болады.
Қорытынды:
Қорытындылай келетін болсақ, Жалпы Delphi программалау тілінде
көптеген ... бар ... ... ... Бұл ... құруы
өт қызықты және оңай болып келді, ... ... Delphi ... ... ... ... бар. Ал ... сіз Delphi –де
мультимедияны жалғастыратын болсаңыз, келесі Delphi 8, Delphi 9 ... ... көп ... ... ... Интернет жүйесінде де жариялауға болады.
Және дайын программаларды сатуға болады. Тағы қызықты жағдайы ... ... Explorer ... ... Оның ... ... ... Соған қарамастан басқа программалау тілінде Мультимедиа
мүмкіндіктері жеткілікті.
Қолданылған ... А.Я ... - ... в ... Зубов - Справочник программиста.
3) Шумаков - в среде Delphi
4) А.Горев, С.Макашарипов, Р.Ахаян. ... ... в ... Delphi

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 18 бет
Бұл жұмыстың бағасы: 400 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Delphi дің мультимедиялық мүмкіндіктері12 бет
Delphi-дің мультимедиалық мүмкіндіктері15 бет
Delphi-дің мультимедиалық мүмкіндіктері туралы12 бет
Delphi программалау ортасында Қазақстан туралы мәліметтер қорын даярлау 51 бет
Delphі ортасында жұмыс істеу технологиясы80 бет
WEBbrowser компонентін қолданып бағдарлама құру16 бет
Баға және калькуляция6 бет
Евро валютасы6 бет
Жылжымайтын мүліктер агентігі20 бет
Мемлекеттік егемендік туралы декларация5 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь