Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






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 Файлды корзинаға алып тастау  

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

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

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


.

MediaPlayer компоненті


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

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

5.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;







Date: 2015-07-01; view: 530; Нарушение авторских прав



mydocx.ru - 2015-2024 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию