Delphi – Kreirajte vlastiti MP3 Player

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.
Kada ste postavili na formu sve ove komponente (kao na slici) i podesili odgovarajuฤ‡e njihove osobine, ostaje samo da unesete sledeฤ‡i kod (vrlo mali):


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