Cara Membuat Mp3 dengan delphi Download

Silahkan Agan Siapkan Komponen nya Seperti Di Bawah:

• 1 buah media player ada di palet system
  
• 1 buah open dialog ada di palet dialog
  
• 1 buah timer ada di palet system
  
• 1 buah xp manifest ada di palet win32
  
• 1 buah button ada di palet standart
  
• 1 buah progress bar ada di palet win32
  

Susunan komponen nya kurang lebih seperti pada gambar dibawah ini

Sekarang kita lanjut ketahap penyusunan komponen agar terlihat lebih menarik. Pertama klik pada media player lalu arahkan mose pada objekct inspector, cari tulisan Visiblebuttons, lalu sesuaikan visibilitasnya sebagai berikut: btPlay : true btPause : true btStop : true btNext : true btPrev : false btStep : false btBack : true btRecord : false btEject : false Atau agar lebih jelas perhatikan gambar berikut lalu sesuaikan

Sekarang kita susun lagi komponen-komponen nya agar lebih rapih dan menarik, untuk form nya kita beri nama MP3 Player, untuk button1 kita beri nama Open MP3, untuk lebih jelasnya perhatikan gambar berikut

Sekarang kita masuk ke tahap pengcodingan, tahap yang paling penting dalam pembuatan sebuah program. Pertama perhatikan code di bawah var lalu masukan code berikut:

Mp3Path : string; paused : boolean;

Atau agar lebih jelas perhatikan gambar dibawah ini

Langkah selanjutnya mengatur tata letak dan ukuran form, doble klik pada form1 lalu masukan coding berikut:

procedure TForm1.FormCreate(Sender: TObject);
begin
paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;
end;

Langkah selanjutnya doble klik pada media player nya lalu masukan coding berikut:

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;

Langkah selanjutnya doble klik pada Timer1 lalu masukan coding berikut:

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:=Mp3Path;
MediaPlayer1.Open; MediaPlayer1.Position:=0;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;
end;
end;

Langkah selanjutnya klik pada OpenDialog dan arahkan mose ke Object Inspector lalu klik di bagian filter maka akan muncul dialog Filter Editor, di bagian Filter Name isi dengan MPEG Audio File, dan di bagian Filter kita isi dengan *.wav;*.mp3;*.mid;*.midi;*.wma lalu OK. Agar Lebih jelas perhatikan gambar berikut

Langkah selanjutnya doble klik pada Button1 atau Open MP3 lalu masukan coding berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin 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;
end;

Harap di perhatikan setiap coding yang saya tulis dengan hurup miring berarti itu yang harus dimasukan, sementara yang saya tulis dengan hurup tegak berarti itu sudah ada pada defaultnya Sekarang coba jalankan dengan menekan F9

Nah Mudahkan Jika agan Ngga Mau Ribet Download Ajah
copy kan setelah panah ke browser
download>=>http://safel.ink/Mo0XD