pemutar mp3

Tutorial ini menggunakan Delphi XE, dan penggunaan di Delphi 7 atau versi lainnya seharusnya tidak ada masalah, karena tidak ada menggunakan komponen diluar bawaaan delphi.

Buat design aplikasi pemutar musik seperti gambar dibawah ini

Komponen yang digunakan
1 Mediaplayer
1 Tedit
1 Progressbar
1 timer
1 timage
1 timer
1 listbox
1 Opendialog
1 TLabel
setelah selesai mendesign, sekarang waktunya untuk menulis script agar aplikasi pemutar lagu tersebut dapat berjalan.
Klik dua kali pada tombol pilih mp3 dan ketik script dibawah ini

if OpenDialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
ListBox1.Items:=OpenDialog1.Files;
ProgressBar1.Max:=0;
MediaPlayer1.Close;
MediaPlayer1.FileName:=edit1.Text;
MediaPlayer1.Open;
ProgressBar1.Max:=MediaPlayer1.Length;
end;

Listbox berada di bawah tulisan Klik untuk memutar lagu : klik dua kali pada listbox dan tambahkan script

MediaPlayer1.Play;

lanjutkan dengan mengklik pada timer, tambahkan script dibawah ini

if ProgressBar1.Max<>0 then
ProgressBar1.Position:=MediaPlayer1.Position;
end;

untuk menyembunyikan Mediaplayer, klik dua kali pada form lalu tambahkan script

MediaPlayer1.Enabled:=False;

Jalankan program dengan menekan tombol F9 di keyboard. Tampilannya seperti gambar dibawah ini

Contoh tampilan aplikasi sewaktu memutar MP3

Download source code :

Download “Pemutar Lagu Delphi”