Privire de ansamblu asupra
Ce este multimedia?
Multimedia în Delphi
Componenta TMediaPlayer
Două tipuri de programe care utilizează multimedia
Exemplu de program cu multimedia ex11.zip
Ce este multimedia?
Având în vedere o definiție generală, trebuie spus că în această lecție avem de-a face cu un subset de multimedia care include.
2. Redarea sunetelor și a muzicii din fișierele MIDI și WAVE.
Această sarcină poate fi realizată utilizând Microsoft extensii multimedia dinamice bibliotecă link-ul pentru Windows (MMSYSTEM.DLL), metode care sunt încapsulate în componenta TMediaPlay, situat pe paleta de sistem pagina Delphi Component.
Pentru a reda fișiere media, este posibil să aveți nevoie de hardware și software. Deci, pentru a reda sunete aveți nevoie de o placă de sunet. Pentru a reda AVI pe Windows 3.1 (sau WFW), trebuie să instalați Microsoft Video.
Multimedia în Delphi
Simplitatea utilizării poate fi percepută în două moduri.
· Pe de o parte, permite oricui să creeze aplicații multimedia.
· Pe de altă parte, se poate constata că nu toate caracteristicile sunt implementate în componentă. Dacă doriți să utilizați funcții de nivel inferior, va trebui să săturați destul de adânc folosind limba Delphi.
Această lecție nu acoperă detaliile apelurilor pentru funcțiile multimedia interne când componenta este în execuție. Tot ce trebuie să știți - este că componenta se numește TMediaPlayer, și oferă acces la un set de rutine, create de Microsoft și numit Control Media Interface (MCI). Aceste rutine oferă programatorului acces ușor la o gamă largă de dispozitive multimedia. De fapt, lucrul cu TMediaPlayer este intuitiv și evident.
Componenta TMediaPlayer
În primul rând, să creăm un nou proiect. apoi plasați componenta TMediaPlayer (pagina System Palette) pe formular, așa cum se arată în Figura 1.
Fig.1. Componenta TMediaPlayer din formular.
Componenta TMediaPlayer este proiectată ca un panou de control al dispozitivului cu butoane. Ca pe un magnetofon, există butoane "play", "rewind", "record" etc.
Plasând componenta în formular, veți vedea că Inspectorul de obiecte conține proprietatea "FileName" (vezi Fig.2). dublu-clic
Fig.2. Proprietățile TMediaPlayer în inspectorul de obiecte
pe această proprietate și selectați numele fișierului cu extensia AVI, WAV sau
MID. În Figura 2, fișierul AVI DELPHI.AVI este selectat. Apoi, trebuie să setați proprietatea AutoOpen la True.
Figura 3. Redarea fișierului AVI pe panou.
Două tipuri de programe multimedia
· Uneori este necesar să le oferim utilizatorilor o modalitate simplă de a juca cea mai largă gamă de fișiere posibile. Acest lucru înseamnă că va trebui să oferiți utilizatorului accesul la hard disk sau CD-ROM și apoi să îl permiteți să selecteze și să redea fișierul corespunzător. În acest caz, TMediaPlayer este de obicei localizat pe formular. oferind posibilitatea de a controla redarea.
Exemple de programe multimedia
În această prelegere vom examina un exemplu de construire a unei aplicații cu multimedia de primul tip. Creați un nou proiect (File | New Project). Plasați TMediaPlayer pe formular; plasa componente TFileListBox, TDirectoryListBox, TDriveComboBox, TFilterComboBox pentru a selecta fișierul. Proprietatea Filelist pentru DirectoryListBox 1 și 1 FilterComboBox pus FileListBox 1. Insula Sf. Dirlist pentru DriveComboBox 1 pune DirectoryListBox 1. Insula Sf. Filtru pentru FilterComboBox 1 selectați extensiile de fișier necesare.
Să faceți dublu clic pe FileListBox 1 fișierul selectat va fi redat. În handlerul de evenimente OnDblClick pentru FileListBox 1, specificați
cu MediaPlayer1 face
Aspectul formei este prezentat în Fig.
Figura 4. Vederea inițială a proiectului
Salvați proiectul, porniți-l, selectați fișierul dorit și faceți dublu clic pe el. MediaPlayer ar trebui să redea acest fișier într-o fereastră separată.
și St. BevelOuter = bvNone. Pentru a comuta la redarea din fereastra panoului - puneți T C heckBox pe formular și pe handler-ul evenimentului OnClick pentru acesta, scrieți-l jos.
procedura TForm1.CheckBox1Click (expeditor: TObject);
cu MediaPlayer1 să înceapă
if FileName = '' apoi Exit;
dacă CheckBox1.Checked atunci
În timpul executării programului poate fi necesară pentru a afișa starea curentă a obiectului MediaPlayer și al rolei (timpul scurs de la începutul redării, lungimea video). Pentru aceasta, obiectul TMediaPlayer are proprietățile și evenimentele corespunzătoare. Lungime, Poziția, OnNotify și altele. Să adăugăm un proiect indicator de progres (TGauge), care se va afișa ca procent, cât de mult timp a trecut (a se vedea. Figura 6). Puteți utiliza temporizatorul pentru a actualiza indicatorul. Plasați obiectul TTimer pe formular. setați-l la Interval = 100 (100 milisecunde). În procesarea evenimentului, evenimentul OnTimer trebuie scris.
procedura TForm1.Timer1Timer (expeditor: TObject);
cu MediaPlayer1 face
dacă FileName<>„“ Atunci
Porniți proiectul, selectați fișierul (AVI) și faceți dublu clic cu mouse-ul. La redarea unui clip, indicatorul de progres trebuie să afișeze procentajul corespunzător timpului scurs (vezi figura 6).
Fig. 6: Aplicație completă pentru redarea fișierelor AVI, WAV și MDI.
Stiati ca diagrama de clase, diagrama de clase - o metodologie de proiectare orientate-obiect, destinat să reprezinte structura statică a unui model de sistem în ceea ce privește clasele de programare orientate-obiect.
ȘTIRI ALE FORUMULUI
Cavalerii teoriei eterului
Articole similare
Trimiteți-le prietenilor: