Ι Кіріспе
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