Дипломдық жұмыс Тақырыбы: " Delphi программалау ортасында графикалық компоненттерді пайдалану әдістемесі "

.

MediaPlayer компоненті

MediaPlayer компонентінің батырмалары

	Батырма	Белгіленуі	Атқаратын қызметі
	Шығару	btPlay	Дыбыс немесе аудионы шығару
	Пауза	btPause	Шығаруды уақытша тоқтату
	Стоп	btStop	Шығаруды тоқтату
	Келесі	btNext	Келесі кадрге көшу
	Алдыңғы	btPrev	Алдыңғы кадрге көшу
	Қадам	btStep	Келесі дыбыстық фрагментке көшу, мысалы CD-дегі келесі әнге көшу
	Назад	btBack	Алдыңғы дыбыстық фрагментке көшу, мысалы CD-дегі алдыңғы әнге көшу
	Жазу	btRecord	Жазу
	Ашу/Жабу	btEject	Компьютердің CD-дисководын ашу немесе жабу

2.3. Дыбысты шығару

Дыбыстық фрагменттер 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

  Листинг:

unit WinSound_; 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;

var DoDefault: Boolean); private

{ Private declarations } public

{ Public declarations } end;

const

SOUNDPATCH='с:\winnt\media\';

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);

var

SearchRec: TSearchRec;

begin

Form1.MediaPlayer1.Play ;

if FindFirst(SOUNDPATCH+'*.wav', faAnyFile, SearchRec) =0 then

begin

Form1.ListBox1.Items.Add(SearchRec.Name) ;

while (FindNext(SearchRec) = 0) do

Form1.ListBox1.Items.Add(SearchRec.Name);

end;

end;
procedure TForm1.ListBoxlClick(Sender: TObject);

begin
Label2.Caption:=ListBox1.Items[ListBox1.itemlndex];
procedure TForm1.MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;

var DoDefault: Boolean); begin

if (Button = btPlay) and (Label2.Caption <> '') then

begin
with MediaPlayerl do begin

FileName:=SOUNDPATCH+Label2.Caption;

Open;

end;

end;

end;

end.

Дыбысты жазу

Дыбыстық фрагментті алу үшін Windows-тың құрамындағы Звукозапись программасын пайдалануға болады. Ол үшін Пуск | Программы | Стандартные | Развлечения | Звукозапись командаларын таңдак керек.

Звукозапись

программасының диалогтық терезесі

WAV-файл келесі түрде құрылады. Алдымен дыбыстың қайнар көзін анықтау керек. Ол үшін Параметры менюінен Свойства командасын алып Регулятор громкости таңдау керек. Сонан соң Запись айырғышын таңдап Отображаемые регуляторы громкости тізіміндегі керекті сигналдарды орнату үшін жалаушаларды таңдау керек. Енді дыбысты жазуға көшуге болады.

жүктеу/скачать 1,06 Mb.

Достарыңызбен бөлісу: