July 25, 2024

Membuat Media Player Sederhana dengan Delphi 2007

2 min read

Setiap kita bekerja dengan komputer/laptop salah satu aplikasi favorit yang selalu kita jalankan adalah MP3 player. Nah, tutorial kali ini kita akan mencoba membuat aplikasi media player sederhana menggunakan Delphi 2007. Delphi telah menyediakan fitur untuk membuat aplikasi media player menggunakan komponen TMediaPlayer. Berikut Langkah-langkahnya:

Langkah 1

Buatlah sebuah project baru, pilih menu ile ->new ->VCL form application.

form1

Langkah 2

Masukkan komponen-komponen berikut ke dalam form:

  • Masukkan komponen TPanel, TLabel. Pastikan komponen label1 ditempatkan di atas komponen Panel1 dan aturlah properties color  komponen label1 sama dengan properties color  komponen panel1 (untuk membuat running text).
  • Masukkan komponen TProgressBar yang ada pada palette win32.
  • Masukkan komponen TMediaPlayer dan TTimer yang ada pada palette system.
  • Masukkan komponen TListBox yang ada pada palette standar.
  • Masukkan komponen TButton yang ada pada palette standar.
  • Masukkan komponen TOpenDialog yang ada pada palette dialog.

Langkah 3

  • Klik komponen Media Player1 -> aturlah properties VisibleButtons , sebagai berikut:

form2

  • Klik komponen Button1 -> ganti properties Caption menjadi “Open
  • Tampilan Form:

form3

Langkah 4

Ketikkan coding berikut pada code editor Delphi:

Klik form1 -> pilih event->double klik event on show ->ketikkan coding berikut:

[sourcecode]
procedure TForm1.FormShow(Sender: TObject);

begin

//menonaktifkan media player

MediaPlayer1.Enabled:=False;

end;

[/sourcecode]

Double klik komponen MediaPlayer1 ->ketikkan coding berikut:

[sourcecode]

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);

begin

//mengaktifkan button stop media player

if Button = btStop then

begin

MediaPlayer1.Position:=0;

ProgressBar1.Position:=0;

end

else

//mengaktifkan button step media player

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

//mengaktifkan button back media player

if Button = btBack then

begin

if ((MediaPlayer1.Position-5000)>0) then

MediaPlayer1.Position:=MediaPlayer1.Position-5000

else

MediaPlayer1.Position:=0;

MediaPlayer1.Play;

end;

end;

[/sourcecode]

Double klik komponen Timer1-> ketikkan coding berikut:

[sourcecode]
procedure TForm1.Timer1Timer(Sender: TObject);

var

bts_kiri, bts_kanan : integer;

begin

if MediaPlayer1.Enabled then

begin

{ menjalankan text label1 }

bts_kiri:=panel1.Left-label1.Width;

bts_kanan:=panel1.Left+panel1.Width;

if label1.Left=bts_kiri then

begin

label1.Left:=bts_kanan

end

else

begin

label1.Left:=label1.Left-1;

end;

timer1.Interval:=50;

&nbsp;

{ menjalankan progressBar dan mengaktifkan mediaplayer }

ProgressBar1.Position:=MediaPlayer1.Position;

if ProgressBar1.Position=MediaPlayer1.Length then

begin

MediaPlayer1.Stop;

ProgressBar1.Position:=0;

MediaPlayer1.Close;

MediaPlayer1.Enabled:=true;

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

MediaPlayer1.Position:=0;

ProgressBar1.Max:=MediaPlayer1.Length;

ProgressBar1.Min:=0;

end;

end;

end;
[/sourcecode]

Double klik komponen Button1 / tombol Open ->ketikkan coding berikut:

[sourcecode]

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenDialog1.Filter:=’All Files |*.*’;

if OpenDialog1.Execute then

begin

//Mp3Path:=OpenDialog1.FileName;

Listbox1.Items.Add(OpenDialog1.FileName);

Label1.Caption:=OpenDialog1.FileName;

//OpenDialog1.Options := [ofAllowMultiSelect];

with MediaPlayer1 do

begin

Enabled:=true;

FileName:=OpenDialog1.FileName;

Open;

Position:=0;

end;

ProgressBar1.Max:=MediaPlayer1.Length;

ProgressBar1.Min:=0;

end;

end;
[/sourcecode]

Langkah 5

Jalankan program (F9)-> klik tombol Open-> browse file mp3 -> klik tombol Play.

Hasil akhir:

form

Tampilan akan lebih menarik jika menggunakan skin manager.

Selamat Mencoba dan Selamat mengembangkan….

0 thoughts on “Membuat Media Player Sederhana dengan Delphi 2007

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.