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

Свойства диалогтық терезес

Уровень записи диалогтық терезе

Чтобы записать музыкальный или речевой фрагмент, надо запустить программу Звукозапись, активизировать диалоговое окно Уровень, выбрать устройство-источник звука,

Процессті тоқтату үшін Стоп батырмасын басу жеткілікті.

 

5.4. Видеороликтер мен анимацияны қарап шығу

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

MediaPlayer1 компонентінің қасиеттерінің мәні

	Қаситет	Мән
	Name	MediaPlayer1
	FileName	delphi.avi
	DeviceType	dtAVIVideo
	AutoOpen	True
	Display	Panel1
	Visible	False

Листинг:

uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Label1: TLabel; Panel1: TPanelButton1: TButtonMediaPlayer1: TMediaPlayer; procedure ButtonlClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations ) public

{ Public declarations } end;

var

Form1: TForm1 ;