Să luăm în considerare proprietățile de bază:
AutoEnable - setarea automată a butoanelor disponibile și indisponibile în funcție de modul;
AutoOpen - Specifică lansarea automată a player-ului media atunci când începe aplicația;
AutoRewind - Rewind automat. Dacă AutoRewind este setat la true și poziția curentă corespunde cu sfârșitul, înainte de a muta funcția Play sau StartRecording, poziția curentă este mutată la început înainte de redare sau înregistrare. Când AutoRewind este setat la false, derularea trebuie efectuată de utilizator folosind butonul Prev sau metoda software anterior. Dacă valorile sunt setate la StartPos sau EndPos sau dacă dispozitivul utilizează piese, proprietatea AutoRewind nu funcționează;
Afișaj - Definește fereastra utilizată pentru ieșire;
DisplayRect - definește zona de afișare în fereastra specificată de proprietatea Display;
EnabledButtons - Definește butoanele disponibile;
FileName - Specifică numele fișierului care trebuie deschis prin metoda Open sau salvat prin metoda Save;
Poziție - Indică poziția curentă în obiectul încărcat în funcție de formatul TimeFormat. Poziția implicită este la începutul obiectului sau la începutul primei piste;
VisibleButtons - Indică ce butoane media player sunt vizibile. Implicit toate butoanele sunt vizibile. Butoanele care nu sunt listate în setul VisibleButtons din tipul TButtonSet sunt invizibile;
Deci, puneți componenta TMediaPlayer pe formular și specificați un fișier MP3 în proprietatea FileName. Acum începeți aplicația. După cum vedeți, nu se întâmplă nimic și butoanele componentelor sunt inactive. De ce? Pentru că tocmai am arătat calea către dosar. Trebuie încă să fie deschisă. Setați proprietatea AutoOpen la True. Și rulați aplicația din nou. Acum butoanele sunt active. Când apăsați butonul Redare, începe redarea.
Cum de a alege un fișier? Este foarte simplu! Tot ce ai nevoie este doar să schimbi proprietatea FileName programabil. Înainte de a începe să scrieți, trebuie să reprezentați cum va arăta. În acest caz, acesta va arăta astfel: când faceți clic pe butonul din formular (îl vom adăuga mai târziu), apare fereastra de selectare a fișierului. Am selectat fișierul și fișierul selectat este redat.
Adăugați componente TButton și TOpenDialog la formular (în fila Dialoguri din bara de instrumente). Modificați proprietatea Caption a butonului la "Deschidere". Creați un eveniment OnClick (faceți dublu clic pe buton). acolo scriem:
Ce este OpenDialog1.Execute? Acest lucru este același dacă am scris OpenDialog1.Execute = true. Aceasta înseamnă următoarele: când OpenDialog1.Execute este apelat, dialogul de deschidere a fișierului apare și dacă utilizatorul dă clic pe "Cancel" atunci funcția Execute returnează False și dacă fișierul este selectat True. Se pare că, dacă utilizatorul a ales un fișier, calea către el ar trebui să fie scrisă în proprietatea FileName și să deschidă acest fișier. Acum puteți rula programul și încercați să deschideți fișierul.
Dar componenta pare urâtă. Așezați butoanele din formular (TButton). Modificați proprietatea Caption de la primul buton la "Redare". Creați un eveniment OnClick cu același buton:
La următorul buton, schimbați subtitrarea la "Pauză". Prin clic:
Și inscripția de pe ultimul buton scrie "Stop". Faceți clic pe acesta de două ori și scrieți următoarele:
MediaPlayer1.Poziție - aceasta stabilește poziția de redare la început. Deci, dacă faceți clic pe butonul "Redare", redarea nu durează, ci începe din nou.
Acum puteți începe programul. Dar acum trebuie să facem așa încât să nu putem vedea componenta TMediaPlayer. Pentru a face acest lucru pur și simplu prin schimbarea proprietății Visible de la acesta la Fals.
Efectuați un "cursor" care va afișa poziția de redare. Plasați componenta TTrackBar și TTimer pe formular. Ați văzut deja o astfel de componentă de multe ori în alte programe și știi pentru ce este. Faceți dublu clic pe butonul "Deschis" și schimbați ușor codul:
Adăugat încă o linie - TrackBar1.Max: = MediaPlayer1.Length. Proprietatea Max este valoarea maximă pentru TTrackBar. Poziția este poziția curentă, adică acest parametru poate fi modificat de la 0 la Max. Acesta este exact ceea ce vom face. MediaPlayer1.Length - Aceasta este lungimea fișierului.
Acum ne vom ocupa de cronometru. Timerul are două proprietăți principale: Interval și Activat. Primul este intervalul în milisecunde după care acțiunea descrisă în evenimentul OnTimer va fi executată. Și al doilea este dacă timerul va funcționa.
Faceți dublu clic pe pictograma timer din formular. Se va crea o procedură care va fi executată în fiecare, de exemplu, 1000 milisecunde (dacă proprietatea este Interval = 1000). Faceți acest lucru:
Acum, în fiecare secundă (1000 milisecunde), poziția TrackBar1 va fi setată în funcție de poziția de redare.
Rămâne să ștergeți setul de proprietăți FileName setat la începutul TMediaPlayer, precum și proprietatea AutoOpen în False. În caz contrar, programul va încerca să deschidă fișierul specificat în FileName, dar deoarece nu este scris nimic acolo, va apărea o eroare.
Ei bine, asta e tot. Programul funcționează. Desigur, este încă necesar să-i aducem în minte, este doar minimul. Va fi necesară interzicerea apăsării butoanelor atunci când acestea nu pot fi apăsate (de exemplu, nu puteți apăsa butonul "Redare" dacă nu este selectat niciun fișier, altfel va apărea o eroare). Puteți face interfața programului cu butoane frumoase prin încărcarea imaginilor în componente TImage.
În această lecție am analizat trei componente ale TMediaPlayer, TTimer și TTrackBar.
Va fi foarte util dacă veți face mai mult decât este descris în fiecare lecție.
Lecția 10: Noțiuni de bază despre lucrul cu Canvas
Trimiteți-le prietenilor: