Membuat MP3 Player Delphi #145

andrypein.net : Membuat aplikasi MP3 player delphi bisa dicoba hanya dengan menggunakan Komponen TMediaPlayer yang sudah ada tersedia.

Dengan begini bisa disebut hampir mendekati lah untuk mencoba ke step selanjutnya sebagai ‘sound programming with delphi‘.

Penampakan hasil jadinya seperti ini sih gan :

Berbahan utama berupa TMediaPlayer, timer dan openDialog dan beberapa button, cari dan search saja lah ada di palet IDE nya.

Agar komponen TMEdiaPlayer tidak muncul saat pertama kali program di running maka set visible si TMediaPlayernya menjadi enable:=false.

Lalu bentuk formnya seperti ini :

Sentuhan akhir adalah beri sedikit cuplikan source nya :

procedure TForm1.btnplayClick(Sender: TObject);
begin
  if label1.Caption = '' then
    begin
      showmessage('U Have not Selected a valid file !!')
    end
  else
    begin
      timer1.Enabled:=true;
      Mp3player.Enabled:=true;
      Progressbar1.Max:=0;
      Mp3Player.Close;
      Mp3Player.FileName:=label1.Caption;
      Mp3player.Open;
      Mp3Player.Position:=0;
      Mp3Player.Play;
      progressbar1.Max:=Mp3Player.Length;
    end;
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
  mp3Player.Stop;
  timer1.Enabled:=false;
  progressbar1.Position:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Progressbar1.Position:=0;
  timer1.Enabled:=false;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  if opendialog1.Execute then
    label1.Caption:=opendialog1.FileName;
end;

procedure TForm1.btnPauseClick(Sender: TObject);
begin
  mp3Player.Pause;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if progressbar1.Max <> 0 then
    Progressbar1.Position:=Mp3Player.Position;
end;

Mp3 player delphi nya bisa di donlod disini gan mayan nambah2 koleksi, sedooot.

Download

*AFK