Halo para pembaca bit yang setia. Kali ini kita akan sedikit membahas tentang cara "Membuat MP3 Player sederhana dengan DELPHI".
Membuat program pemutar music bukanlah hal yang sulit, dengan menggunkan program Delphi kita dapat membuatnya sendiri. Fitur-fitur Delphi telah mendukung untuk membuat program MP3 sendiri. Bagaimana mana membuatnya sehingga dapat menghasilkan fitur seperti MP3 player yang sering digunakan ?
Nah gambar dibawah ini adalah hasil dari membuat MP3 Player dengan Delphi :
Cara membuatnya adalah sebagi berikut :
•Buatlah project baru, kemudian tambahan di Form component Media Palyer (System-MediaPlayer)
•Tambahkan component timer dan pastikan property Enabled-nya bernilai True, dan Intervalnya bernilai 1000.
•Tambahkan komponen OpenDialog untuk mengambil file mp3. Lalu pada object inspector untuk OpenDialog, pilih property Filter. Pada filter editor, kita tambahkan filter untuk file mp3 agar aplikasi ini hanya dapat membuka file mp3 saja. Misal Filter Name-nya MPEG Audio Files (*.mp3), sedangkan Filter-nya isi dengan *.mp3
•Tambahkan component button dan Progressbar yang ada di Win32
•Atur tampilannya sehingga tampak seperti gambar diatas
•Kemudian tambahkan variable global :
paused: boolean;
PathMP3: string;
• Klik dua kali pada Form dan tambahkan source code dibawah ini sebagai berikut:
procedure TForm1.FormCreate(Sender: TObject);
begin
paused := false;
MediaPlayer1.Enabled := False;
end;
•Double klik object MediaPlayer kemudian tambahkan coding berikut : (pada even onclick mediaplayer)
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
if Button = btStop then
begin
MediaPlayer1.Position := 0;
ProgressBar1.Position := 0;
end
else if Button = btStep then
begin
if ((MediaPlayer1.Position + 5000) <= MediaPlayer1.Length) then MediaPlayer1.Position := MediaPlayer1.Position + 5000 else begin MediaPlayer1.Position := 0; ProgressBar1.Position := 0; end; MediaPlayer1.Play; end else if Button = btBack then begin if ((MediaPlayer1.Position – 5000) > 0) then
MediaPlayer1.Position := MediaPlayer1.Position – 5000
else
MediaPlayer1.Position := 0;
MediaPlayer1.Play;
end;
end;
•Double click object Timer dan tambahkan coding berikut ini :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
ProgressBar1.Position := MediaPlayer1.Position;
if ProgressBar1.Position = MediaPlayer1.Length then
begin
MediaPlayer1.Stop;
ProgressBar1.Position := 0;
MediaPlayer1.Close;
MediaPlayer1.Enabled := true;
MediaPlayer1.FileName := PathMP3;
MediaPlayer1.Open;
MediaPlayer1.Position := 0;
ProgressBar1.Max := MediaPlayer1.Length;
ProgressBar1.Min := 0;
end;
end;
end;
•Kemudian yang terakhir adalah double click object button dan tambahkan coding sebagai berikut :
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
PathMp3 := OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled := true;
FileName := PathMP3;
Open;
Position := 0;
Play;
end;
ProgressBar1.Max := MediaPlayer1.Length;
ProgressBar1.Min := 0;
end;
end;
Nah jadilah MP3 Player kreasi sendiri, kemudian cobalah buka file MP3 untuk memutar lagi yang diinginkan. mudah kan …. selamat mencoba …
SAKA, Salam Informatika ^_^
0 komentar:
Posting Komentar