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 |
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:= True;
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;
IfCFrame > 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);
Begin
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.
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;
procedure FormActivate(Sender: TObject);
procedure ListBoxlClick(Sender: TObject);
procedure MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;
