Berikut ini tutorial pembuatan media player sederhana dengan menggunakan delphi. Program ini sebenarnya sudah begitu banyak di internet, tapi gak apa2 lah buat belajar.. hehehehe.. Ok langsung aja yaa..
1. Mula – mula buka delphi kemudia buat form seperti di bawah ini :
2. Dengan menambahkan 3 komponen yaitu Bitbtn yang ada di tab additional, kemudian mediaplayer yand ada di tab system dan yang terakhir komponen opendialog yang ada di tab dialog
= komponen bitbtn dengan di ubah pada bagian caption menjadi “open”
= komponen Media player
= Komponen opendialog
3. Kalau sudah di buat seperti form di atas, klik dua kali pada komponen bitbtn kemudian isikan kode berikut ini :
MediaPlayer1.Close;
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
end;
4. Begitu sudah selesai memasukkan kode tersebut, jalankan program nya. Dan lihat hasilnya.
Selaamt mencoba!!!!!
9 komentar:
pelit
makasih banyak .... dah membantu!
sama - sama.. makasih sudah mampir ke bloh ku...
omm,klo ngerubah "mediaplayer.filename"-nya pake file list box gimana ya?
tidak lengkap
Ini Coding Yang Bener Gan !!!!
By Reza Studio Programmers Bintan
Join Blog : (reza31bintan.blogspot.com)
====================================================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ExtCtrls, MPlayer, XPMan, sLabel;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
Button1: TButton;
ProgressBar1: TProgressBar;
XPManifest1: TXPManifest;
sLabel1: TsLabel;
procedure FormCreate(Sender: TObject);
procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Mp3Path: string;
paused: Boolean;
implementation
{$R *.dfm}
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;
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;
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;
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;
end;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;
end;
end.
thanks ya, ijin share di blogku
Terimakasih Gan, Walaupun Sedikit tapi Setidaknya sudah mengerti Dasarnya. Salam dari Insyder_
thank you, jangan lupa kunjung balik ke kodingbagus.blogpsot.com
Posting Komentar
Silahkan isi komentar anda disini!!!