Microsoft Windows-тың дыбыстары программасының формасы
Animate компоненті
Animate компоненті Win32парағында орналасқан,ол кадрлары AVI-файлында орналасқандар үшін анимацияны шығаруға мүмкіндік береді.
Animate компонентінің белгісі
Animate компоненті формаға әдеттегідей қосылады. Компонентті формаға орналастырғаннан кейін оның қасиеттерін қою керек:
Animate компонентінің қасиеттері
| Қасиет | Қызметі | ||
| Name | Компоненттің аты. | ||
| FileName | Компоненттің көмегі арқылы бейнеленетін анимация орналасқан AVI-файлының аты. | ||
| StartFrame | Анимацияның бейнеленуі басталатын кадрдың нөмірі | ||
| stopFrame | Анимацияның бейнеленуі аяқталатын кадрдың нөмірі | ||
| Activate | Анимация кадрларының бейнелену процессінің активтену белгісі | ||
| Color | Анимация іске қосылатын компоненттің фонының түсі | ||
| Repetitions | Анимацияның қайталану саны | ||
Чтобы увидеть, что находиться в AVI-файлда не нәрсе бар екендігін көру үшін Windows-тан қажетті буманы ашып AVI-файлын көрсетіп жанама менюден Свойствакомандасын таңдап алу керек:
Келесі программа Animate компонентінің қолдануына мысал келтірілген:
Animate1 компонентінің қасиеттері
| Қасиеттер | Мәні | ||
| FileName | bart.avi | ||
| Active | False | ||
| Transparent | True |
unitShowAVI_;
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;
// әр кадр бойынша қарап шығу
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
procedureButton3Click(Sender: TObject);
procedureRadioButton1Click(Sender: TObject);
procedureRadioButton2Click(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations )
end;
varForm1: TForm1; // форма
CFrame: integer;
implementation{$R *.DFM}
procedureTForm1.Button2Click(Sender: TObject);
Begin
ifCFrame = 1 then
Button2.Enabled := True;
If CFrame < Animate1.FrameCount then begin
CFrame := CFrame + 1;
Animate1.StartFrame := CFrame;
Animate1.StopFrame := CFrame;
Animate1.Active := True;
ifCFrame = Animatel.FrameCount
thenButton2.Enabled:=False;
end;
end;
procedureTForm1.Button3Click(Sender: TObject);
Begin
if CFrame = Animate1.FrameCount
thenButton2.Enabled := True;
IfCFrame > 1 then begin
CFrame := CFrame — 1;
Animate1.StartFrame := CFrame;
Animate1.StopFrame := CFrame;
Animate1.Active := True;
ifCFrame = 1 // текущий кадр — первый
thenForm1.Button3.Enabled := False;
end;
end;
procedureTForml.RadioButtonlClick(Sender: TObject);
Begin
Buttonl.Enabled:=True;
Form1.Button3.Enabled:=False ;
Form1.Button2.Enabled:=False;
end;
procedureTForm1.RadioButton2Click(Sender:TObject);
Begin
Button2.Enabled:=True;
Buttons.Enabled:=False
Buttonl.Enabled:=False; end;
procedureTForm1.ButtonlClick(Sender: TObject);
Begin
ifAnimate1.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.
comonAVi қасиетінің мәндері анимацияны анықтайды
| Мән | Анимация | Процесс | ||
| АviCopyFiles | 
| Файлды көшіру | ||
| AviDeleteFile | 
| Файлды алып тастау | ||
| aviRecycleFile | 
| Файлды корзинаға алып тастау |
MediaPlayer компоненті
MediaPlayer компонентінің белгісі Systemпарағында орналасқан.Ол видеороликтерді, дыбысты және ды быспен байланысқан анимацияны шығаруға мүмкіндік береді.
MediaPlayer компонентінің белгісі
.
MediaPlayer компоненті
MediaPlayer компонентінің батырмалары
| Батырма | Белгіленуі | Атқаратын қызметі | ||
| Шығару | btPlay | Дыбыс немесе аудионы шығару | ||
| Пауза | btPause | Шығаруды уақытша тоқтату | ||
| Стоп | btStop | Шығаруды тоқтату | ||
| Келесі | btNext | Келесі кадрге көшу | ||
| Алдыңғы | btPrev | Алдыңғы кадрге көшу | ||
| Қадам | btStep | Келесі дыбыстық фрагментке көшу, мысалы CD-дегі келесі әнге көшу | ||
| Назад | btBack | Алдыңғы дыбыстық фрагментке көшу, мысалы CD-дегі алдыңғы әнге көшу | ||
| Жазу | btRecord | Жазу | ||
| Ашу/Жабу | btEject | Компьютердің CD-дисководын ашу немесе жабу |
Дыбысты шығару
Дыбыстық фрагменттер WAV кеңейтілуі бар файлдарда орналасқан. Мысалы, C:\Winnt\Media каталогында Windows стандартты дыбыстары бар файлдарды табуға болады.
Келесі программа WAV-файлдарда орналасқан дыбыстық фрагменттерді шығару үшін ediaPiayer компонентін пайдалану мүмкіндігін көрсетеді.
Microsoft Windows-тың дыбыстары программасының формасы
MediaPlayer1 компонентінің қасиеттерінің мәндері
| Компонент | Мәні | ||
| DeviceType | DtAutoSelect | ||
| FileName | C:\Winnt\Media\3вук Microsoft.wav | ||
| AutoOpen | True | ||
| VisibleButtons . btNext | False | ||
| VisibleButtons .btPrev | False | ||
| VisibleButtons . btStep | False | ||
| VisibleButtons . btBack | False | ||
| VisibleButtons . btRecord | False | ||
| VisibleButtons .btEject | False | ||
Листинг:
UnitWinSound_; interface
Uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;
Type
TForm1 = class(TForm)
MediaPlayerl: TMediaPlayer; // медиаплеер
Label1: TLabel;
ListBox1: TListBox;
Label2: TLabel;
procedureFormActivate(Sender: TObject);
procedureListBoxlClick(Sender: TObject);
procedureMediaPlayerlClick(Sender: TObject; Button: TMPBtnType;