Cara memutar mp3 di Delphi 7

Hallo sobat.... disini aq ingin berbagi bagaimana cara memutar mp3 di delphi..
Untuk tahap pemula....

• Langkah pertama siapkan Form application pada delphi (Form1)
• Langkah kedua klik System sperti contoh gambar :

• Klik setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul gambar .

•  Langkah ke 4 cari Dialogs di sebelah kanan atas seperti gambar kmudian klik icon setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul logo di form yg akan kita buat. kegunaanyya: untuk memanggil/mencari mp3 yg akan kita putar nanti.

• Langkah ke 5...klik Standar sperti contoh gambar maka akan muncul pilihan  

          klik Button setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul  gambar Langkah selanjutnya lihat propertis ganti nama caption> Button1 menjadi> Cari

• Langkah selanjutnya klik Win32 setelah itu klik ProgressBar1 setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul
• Langkah ke 7 sama seperti langkah ke dua..klik System sperti contoh gambar : bedanya seperti langkah ke dua kalo langka ke 7 ini klik letakkan pada form yg akan kita buat.
• Langkah ke 8...klik Standard klik Edit1 letakkan pada form yg akan kita buat.
• Langkah ke 9 tahap penCodingan. dobel klik Timer isi Coding seperti di bawah ini                          procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  if ProgressBar1.Max<>0 then
  ProgressBar1.Position:=MediaPlayer1.Position;
  end; 
• Langkah ke 10..Dobel klik Button isi Coding seperti di bawah ini:                             procedure TForm1.Button1Click(Sender: TObject);
  begin
  if Opendialog1.Execute then
  begin
  Edit1.Text:=Opendialog1.FileName;
  end;
  ProgressBar1.Max:=0;
  MediaPlayer1.Close;
  MediaPlayer1.FileName:=Edit1.Text;
  MediaPlayer1.Open;
  ProgressBar1.Max:=MediaPlayer1.Length;
  end;       
• Langkah ke 11..Dobel klik pada form1 yg kita buat itu lalu isikan coding                                             procedure TForm1.FormCreate(Sender: TObject);
  begin
  ProgressBar1.Position:=0;
  end;
• Langkah ke 12. Save pada folder yg anda buat. setelah itu Run/ klik F9
• Hasil : 

 

 Selamat mencoba,,,,,

Posted in: Delphi