Buat Mp3 Player di Delphi

ehemmmmmm........ membuat MP3 Player pake delphi, kayaknya mengasyikkan juga,,,,,, sekalian nambah ilmu juga… pengen coba??? Berikut cara caranya….






  1. Buka delphi, trus tambahkan beberapa objek ke form1. Objek yang pertama yaitu objek MediaPlayer yang terdapat pada component System.
  2. Nah kemudian pada bagian object inspector, pilih property VisibleButton, lalu beri nilai False untuk btNext, vtPrev, btRecord, dan btEject. Jadi button yang ada cuma btPlay, btPause, btStop, btStep, btBack.
  3. Tambahkan objek OpenDialog yang ada pada component Dialogs. Lalu pada object inspector untuk OpenDialog, pilih property Filter. Pada filter editor, 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
  4. Kalau kamu pake delphi7, tambahkan object XPManifest yang ada pada component Win32, agar tampilan program-nya menyesuaikan dengan setting grafik window XP.
  5. Tambahkan object Timer yang ada pada component System. Atur property Enabled-nya bernilai True, dan Intervalnya bernilai 1000.
  6. Tambahkan 1 buah button, dengan property captionnya diisi Open mp3 file…
  7. Sebelum mulai pengkodean, tambahin dulu variabel global berikut ini:
    Mp3Path: string;
    paused: Boolean;
  8. Untuk inisialisasi, double klik form1, lalu tambahkan Listing berikut ini pada procedure TForm1.FormCreate(Sender: TObject);
    paused:=false;
    MediaPlayer1.Enabled:=False;
    Form1.Height:=115;
    Form1.Width:=435;
    Form1.Top:=(Screen.Height-Form1.Height)div 2;
    Form1.Left:=(Screen.Width-Form1.Width)div 2;
  9. Nah sekarang kita mulai coding. Double klik object MediaPlayer, dan tambahkan Listing berikut ini pada procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);
    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;
  10. Double klik object Timer, lalu tambahkan source code ini pada procedure TForm1.Timer1Timer(Sender: TObject);
    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:=Mp3Path;
    MediaPlayer1.Open;
    MediaPlayer1.Position:=0;
    ProgressBar1.Max:=MediaPlayer1.Length;
    ProgressBar1.Min:=0;
    end;
    end;
  11. Double klik komponen button, lalu tambahkan source code ini pada procedure TForm1.Button1Click(Sender: TObject);
    if OpenDialog1.Execute then
    begin
    Mp3Path:=OpenDialog1.FileName;
    with MediaPlayer1 do
    begin
    Enabled:=true;
    FileName:=Mp3Path;
    Open;
    Position:=0;
    Play;
    end;
    ProgressBar1.Max:=MediaPlayer1.Length;
    ProgressBar1.Min:=0;
    end;
Selamat Mencoba....

0 komentar: