Kao ลกto veฤ verovatno znate format MP3 je kompresovani .wav fajl, ฤiji stepen kompresije ide i do deset puta, pa tako obiฤni muziฤki fajl koji ima 64MB kada se kompresuje imaฤe 3-4MB. U sledeฤim redovima videฤemo kako da kreiramo MP3 Player uz pomoฤ klasiฤne TMediaPlayer komponente. Jedna od najbitnijih osobina ove komponente je DeviceType, koja odreฤuje koje tipove multimedijalnih fajlova moลพemo otvoriti sa ovom komponentom. Ako malo bolje pogledamo, ovde je navedeno nekoliko tipova, ali nigde se ne spominje MP3. Ako ste mislili da je sa ovom komponentom nemoguฤe „odsvirati“ MP3 fajlove, pogreลกili ste.
Otvorite novi projekt, i formu postavite sledeฤe komponente:
- MediaPlayer – podesite samo osobinu „VisibleButtons“, da samo prva tri dugmiฤa ostanu vidljiva (postavite na „True“, ostale na „False“).
- BitButton – u osobinu „Caption“ upiลกite „Otvori“.
- Label – izbriลกite sadrลพaj osobine „Caption“.
- ProgressBar – osobinu „Smooth“ postavite na „True“, da bi linija napredovanja iลกla „glatko“.
- OpenDialog – u polju osobine „Filter“ pritisnite dugmiฤ sa tri taฤke da bi dobili filter editor. Kada vam se otvori editor, u polje „Filter Name“ unesite „MP3 fajlovi“ i u polje Filter unesite “ *.mp3 „.
- Timer – ovde samo proverite da je osobina „Interval“ postavljena na 1.000 milisekundi odnosno 1 sekund.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
ProgressBar1.Max := 0;
label1.caption:= OpenDialog1.FileName;
MediaPlayer1.FileName :=OpenDialog1.FileName;
MediaPlayer1.Open;
ProgressBar1.Max := MediaPlayer1.Length;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ProgressBar1.Max0 then
ProgressBar1.Position := Mediaplayer1.Position;end;
Pokrenite projekat pritiskom na „F9“ i imaฤete funkcionalni MP3 Player koji otvara jedan po jedan fajl, uz malu doradu moลพete daodati da „odsvira“ i celu listu numera.
Pratite Krstaricu na www.krstarica.com