Beberapa hari yang lalu , saya mencoba membuat program musik player sendiri menggunakan Borland Delphi 7.. Ya terasa lebih bangga saja memakai program buatan sendiri dan bisa pamer kepada temen-temen .. Apakah susah ? ternyata tidak , malah sangat amat gampang .. Karena Delphi 7 telah menyediakan TMediaPlayer yang mengekapsulasi windowsAPI untuk multimedia proggraming .. Namun yang jadi masalah adalah , ketika saya memasukan file mp3 kedalam TListBox , kok path dari file tersebut ikut kebawa ya? Terlihat kurang cantik menurut saya .. Setelah googling sana-sini akhirnya saya menemukan juga cara agar file yang di isi ke TListBox hanya file namenya saja tanpa path
Awalnya saya mengetikan kode seperti ini pada proggram saya
procedure Form1.Button1Click(Sender: TObject);
begin
If openDialog1.execute then
Begin
MediaPlayer1.fileName := OpenDialog1.fileName;
ListBox1.items.add(OpenDialog1.fileName);
end;
end;
Lalu hasilnya seperti gambar berikut :
Terlihat bahwa file yang ditambahkan kedalam TListBox memiliki path dan kurang cantik.Untuk itu , saya merubah kodenya sebagai berikut ::
procedure Form1.Button1Click(Sender: TObject);
var s : String;
begin
If openDialog1.execute then
begin
If openDialog1.execute then
Begin
MediaPlayer1.fileName := OpenDialog1.fileName;
s := OpenDialog1.FileName;
ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
end;
end;
end;
Maka hasilnya akan seperti ini :
Terlihat lebih rapih bukan ? Sekian tutorial saya kali ini .. Tunggu tutorial selanjutnya :)
End.
Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.
4 komentar:
procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
begin
if OpenDialog1.Execute then
begin
For i:=0 to OpenDialog1.Files.Count-1 do
begin
ListBox1.Items.add(extractfilename(OpenDialog1.Files[i]));
end;
end;
end;
all ;)
tapi kok Mp3 playernya nggak bisa diputar ya...
kasi solusi ny dong Gan???
masa sih gan !?
Boleh liat sourcenya !?
gan saya sedang ada tugas bisa minta sourcenya + button next-backnya gan..
Posting Komentar