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



бет5/10
Дата31.01.2018
өлшемі1,06 Mb.
#36890
түріДиплом
1   2   3   4   5   6   7   8   9   10


2.2. MediaPlayer компоненті

MediaPlayer компонентінің белгісі System парағында орналасқан. Ол видеороликтерді, дыбысты және ды быспен байланысқан анимацияны шығаруға мүмкіндік береді.



MediaPlayer компонентінің белгісі



.

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   2   3   4   5   6   7   8   9   10




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет