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

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;