МАЗМҰНЫ
I. КІРІСПЕ ….2
II. НЕГІЗГІ БӨЛІМ
2.1 Delphi-дің мультимедиалық мүмкіндіктері 3
2.2 Animate компоненті……………………………………………..3
2.3. Animate компоненттінің қасиеттері…………………………..........5
2.4. Анимация құру………………………………………………………6
III. ЕСЕП
3.1. Есептің берілгені……………………………………………………8
3.2. Есептің алгоритімі………………………………………………….8
3.3. Порограмма листингі........................................................................11
IV.ҚОРЫТЫНДЫ.....................................................................................16
V.ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР......................................................17
I. КІРІСПЕ
Ақпараттық коммуникациялық технологиялардың қарқынмен дамып, күнделікті
Менің курстық жұмысымда Delphi-дің мультимедиалық мүмкіндіктер
II. НЕГІЗГІ БӨЛІМ
2.1. Delphi-дің мультимедиалық мүмкіндіктері
Қазіргі замндағы көптеген Windows ортасында
Delphi-ортасында мультимедиялық программалар жасау үшін екі
Animate — Жәй анимацияны шығаруға мүмкіндік
MediaPlayer —Аса қиын есептерді шығаруға мүмкіндік
2.2 Animate компоненті
Animate компоненті Windows стандартты видео клипін
Дыбысты орындалатын бейне мынадай екі қасиеттің
FileName немесе Common Avi.FileName проектілеу процесінде
Ал CommonAVI қасиеті Windows-тағы стандартты мультипликацияны
Type TCommonAVI=(aviNone, aviFindFile, aviFileComputer, aviCopyFile, aviCopy
Propery CommoneAVI:CommanAVI;
TCommonAVI типі Windows-та алдын ала анықталған
Ал әзірге CommonAVI-дің мағынасын орнатсақ, мәселен,
Егер Repetitions қасиетіне 0-ден үлкен мән
Орындалған бейнені кадр бойынша көре аласыз.
Төменде көрсетілгендей клиптың фрагментін дыбысты орындатуды
Play арқылы жүзеге асыруға болады.
Procedure Play(FormFrame6ToFrame:word;Count:integer);
Кадрлық клиптің берілген ізбасар әдісін FromFrame-нан
Play –ң орындалуы StartFrame FormFrame-ге тең,
Animate компонентінде компонентті ашу және жабу
Енді Animate компонентің мүмкіндіктерін көрсететін текстік
Сондықтан, дыбысты орындалу соңына дейін орындалу
2.3. Animate компоненттінің қасиеттері
Animate компоненттінің Win32 (1-сурет.) қосымшасында орналасқан.Ол
1-Сурет. Animate компоненттінің белгісі
Десе де, AVI-файлында орналасқан анимацияны дыбыстық,эфект
Animate компоненті формаға әдеттегідей орнатылады.Қосқаннан кейін
1-кесте. Animate компоненттінің қасиеттері
Қасиет Анықтамасы
Name Компонент аты. Компонент қасиетіне кіру
FileName Компонент көмегімен бейнеленетін анимация орналасқан
StartFrame Анимация бейнесі басталатын кадр номері
stopFrame Анимация бейнесі аяқталатын кадр номері
Activate Анимация кадрларын бейнелеу прцесін екпінді
Color Анимация өтетін компонент фонының түсі
Transparent Анимацияны бейнелеу кезінде «мөлдір» түсті
Repetitions Анимация бейнесін қайталау мөлшері
Animate компаненті теқ қана AVI-файлдарын ұйымдастыру
2.4. Анимация құру
Анимациялық (AVI-файла) файлды құруды мысалға алайық.
2-Сурет. Дельфийский храмамның эскизі
1
2
3
4
5
6
7
...
37
3-Сурет. Дельфийски храмының суретінің салынуының
III. ЕСЕП
3.1. Есептің берілгені
Animate компанентін қолданып жоба құру. Animate
3.2. Есептің алгоритімі
Программа листингінде көрсетілген текст, Animate компанентін
4-Сурет. Сводка батырмасында AVI-файлы жайлы
5-Сурет. Программа формасы Анимация көру
Формаға программа құрғаннан кейін анимацияның
2-кесте. Animate1 компонентінің қасиетінің түсінігі
Қасиет Түсінігі
FileName bart.avi
Active False
Transparent True
Button1 кнопкасы анимацияны қозғалту үшін және
3.3. Порограмма листингі
Листинг. Animate компоненттін қолдану.
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
if CFrame < Animate1.FrameCount then begin
CFrame := CFrame + 1;
// вывести кадр
Animate1.StartFrame := CFrame;
Animate1.StopFrame := CFrame;
Animate1.Active := True;
if CFrame = Animatel.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 TForml.RadioButtonlClick(Sender: TObject);
ттиьбор
Buttonl.Enabled:=True; //доступна кнопка Пуск
// сделать недоступными кнопки покадрового просмотра
Form1.Button3.Enabled:=False ;
Form1.Button2.Enabled:=False;
end;
// активизация режима покадрового просмотра
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Button2.Enabled:=True; // кнопка Следующий кадр доступна
Buttons.Enabled:=False; // кнопка Предыдущий кадр недоступна
// сделать недоступной кнопку Пуск —
Buttonl.Enabled:=False; end;
// пуск и остановка просмотра анимации
procedure TForm1.ButtonlClick(Sender: TObject);
begin
if Animate1.Active = False // в
then begin
Animate1.StartFrame:=l; // вывод с первого
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.
Animate компоненті қолданушыға өзінің программасында стандартты
.
3-кесте. СomonAVi қасиетінің мағынасы анимацияны анықтайды
Анықтамасы Анимация Процесс
aviCopyFiles Файлды
AviDeleteFile Файлды
өшіру
aviRecycleFile Файлды корзйнадан
IV.ҚОРЫТЫНДЫ
Қорыта келгенде, мен осы курстық жұмысымды
Delphi-дің мультимедиалық бейнелеулерді жасуға мүмкіндіктер береді.Біз
Delphi көптеген есептерді шешуге, кестелері, графиктері,
Менің курстық жұмысымда Delphi-дің мультимедиалық мүмкіндіктер
Тоқсан ауыз сөздің тобықтай түйінін айтатын
V.ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
С.И.Бобровский. Delphi7) Баженова.И.Ю - Delphi7
Сухарев.М.В. основы Delphi профессиональный подход
А.Я.Архангельский программирование в Delphi7
Вирт Н. Алгоритмы и структуры данных
Гринзоу Лу. Философия программирования для Windows
Зелковиц М., Шоу А., Гэннон Дж.
Практическое руководство по программированию / Пер.
Фокс Дж. Программное обеспечение и его
Язык компьютера. Пер. с англ, под
2