Membuat Mp3 Player Dengan Delphi

Hmmm, pagi2 dingin sambil minum susu, chat di fb n bangunin ayank, sekalian nulis blog dech. Kali ini gue mau coba membuat aplikasi pemutar mp3 yang cukup sederhana. Dimana dalam pembuatannya kita cukup memerlukan 5 komponen, yakni : 1 Button, 1 Mediaplayer, Progress bar, OpenDialog dan 1 Timer. Nah untuk pembuatannya, ikuti langkah berikut yow…

• Buat tampilan seperti dibawah, (Yang kotak Putih diabaikan saja).

GUI Mp3 Sederhana

• Kemudian klik 2 x pada Button “Buka File”, lalu ketikan berikut yah ..

if OpenDialog1.Execute then
begin
Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
Position:=0;
end;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;

• Klik pada Mediaplayer1 dan atur seperti berikut :

Objec Inspector

Kemudian klik 2x pada Mediaplayer1 dan ketikan berikut :
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;

• Lagi Klik 2 x pada timer 1 dan ketikan berikut ini

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;

• Terakhir cuy, klik 2 x pada Form1 dan ketikan berikut yah :

paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;
Berikut lo dah dijalanini :

Running

Selesai deh, selamat mencoba yah…