Buat media player pakai delphi

Langkah 1

Buka Delphi lalu buat sebuah Form baru

Langkah 2

Klik System lalu pilih MediaPlayer. Kemudian tempatkan pada Form yang tadi dibuat.

Langkah 3

Sekarang buat sebuah Button. Klik Standard lalu pilih Button. Tempatkan disamping MediaPlayer tadi. Ganti Caption Button menjadi Open.

Langkah 4

Tambahkan OpenDialog, Klik Dialog lalu pilih OpenDialog. Tempatkan disamping Button.

Langkah 5

Klik pada OpenDialog yang tadi ditambahkan pada Form. Pada bagian ObjekInspektor pilih Filter. Lalu masukkan data seperti pada gambar.

Ini dimaksudkan untuk memilah file apa saja yang dapat dibuka oleh MediaPlayer nantinya.

Filter Name : Audio Files (*.wav, *.mp3, *.mid, *.midi, *.wma)
Filter :          *.wav;*.mp3;*.mid;*.midi;*.wma

Langkah 6

Kemudian Klik 2x pada Button yang tadi ditambahkan pada Form. Lalu masukkan code seperti dibawah ini :

Langkah 7

Pastikan tidak ada kesalahan nama objek dan coding. Jika sudah selesai, klik RUN [F9]. Jika tidak ada kesalahan maka aplikasi dapat terbuka.

Langkah 8

Cek aplikasi dengan membuka lagu yang ingin Anda putar. Klik Open lalu cari file Audio-nya. Selesai.

Semoga bermanfaat :)