VarDoDefault: Boolean); private

{ Private declarations } public

{ Public declarations } end;

const

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

Var

Form1: TForm1;

Implementation

{$R *.DFM}

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

procedureTForm1.ListBoxlClick(Sender: TObject);

Begin

Label2.Caption:=ListBox1.Items[ListBox1.itemlndex];

procedureTForm1.MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;

VarDoDefault: Boolean); begin

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

Begin

WithMediaPlayerl do begin

FileName:=SOUNDPATCH+Label2.Caption;

Open;

end;

end;

end;

End.



Дыбысты жазу

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

VarDoDefault: Boolean); private - student2.ru

Звукозапись

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

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

VarDoDefault: Boolean); private - student2.ru

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

VarDoDefault: Boolean); private - student2.ru

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

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

VarDoDefault: Boolean); private - student2.ru

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

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

VarDoDefault: Boolean); private - student2.ru

VarDoDefault: Boolean); private - student2.ru

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; procedureButtonlClick(Sender: TObject);

procedureFormCreate(Sender: TObject);

Private

{ Private declarations )public

{ Public declarations } end;

Var

Form1: TForm1 ;

Implementation

($R *.DFM}

procedureTForm1.ButtonlClick(Sender: TObject);

Begin

MediaPlayer1.Play;

end;

procedureTForm1.FormCreate(Sender: TObject);

Begin

MediaPlayer1.DisplayRect:=Rect(0,0,60,60);

end;

End.

Анимацияны құру

Мысал:

VarDoDefault: Boolean); private - student2.ru

Дельфи храмының эскизі

VarDoDefault: Boolean); private - student2.ru

VarDoDefault: Boolean); private - student2.ru

VarDoDefault: Boolean); private - student2.ru



VarDoDefault: Boolean); private - student2.ru

VarDoDefault: Boolean); private - student2.ru

VarDoDefault: Boolean); private - student2.ru

VarDoDefault: Boolean); private - student2.ru

7 ...

VarDoDefault: Boolean); private - student2.ru

Бұл есепті шешу үшін Macromedia Flash 5 программасын қолдануға болады.

VarDoDefault: Boolean); private - student2.ru

Movie терезесі

VarDoDefault: Boolean); private - student2.ru

Movie Propertiesтерезесіндегі мінездемелер

Бірінші кадрды жәй ғана салу керек. Ол үшін : қарындаш, өшіргіш сияқты стандартты құралдарды пайдаланса жеткілікті. .

Келесі кадрды құру үшін Insertменюінен Keyframeкомандасын таңдау керек.Нәтижесінде алдыңғы кадрге келесі кадр қосылады. Енді екінші кадрды салуға болады. Тура осылайша келесі кадрлер құрылады.

Шығарылатын анимация дыбыспен байланысуы үшін алдыменен сәйкес дыбыстық файлды қолдануға мүмкіншілік алк керек. Ол үшін FileменюіненImportкомандасын таңдап алу керек те оны дыбыстық файлдың проектіне қосу керек.:

VarDoDefault: Boolean); private - student2.ru

Наши рекомендации