-=-
.
.....
  
| messages |
 
RSS
Direkomendasikan menggunakan brower Opera/Chrome/Firefox. Resolusi minimal 1024x768 | Powered by ____ |
 
KiOSS.Com
  
| Switch to Default View |
  
Nikmati Delphi-ID dalam berbagai versi tampilan :
Basic View (LOW Bandwidth)
Default View (Full)
Mobile Edition
Main Menu
..:: onWebTools ::..
..:: onLastPosts ::..
goto Postjumlah komponen maksimal dalam sebuah project(6)
 by d4mnf1y32
 on 21.May at 12:16
goto Posttanya grayscale to biner dengan scanline(1)
 by luckynvic
 on 20.May at 20:44
goto Posttanya looping biner to matriks(1)
 by luckynvic
 on 20.May at 20:10
goto Postsql error:acces denied for user....(2)
 by nasbms
 on 19.May at 16:54
goto Postpemanggilan frame(4)
 by nasbms
 on 19.May at 16:14
goto Posttanya AvLock(0)
 by azuriza
 on 19.May at 11:24
goto PostGet TDBEdit Value Menggunakan LookUp Grid(10)
 by henry_sys
 on 18.May at 11:27
goto Postmenghitung record dalam perulangan(4)
 by idhiel
 on 16.May at 13:53
goto Posttanya ascii(4)
 by mas_kofa
 on 16.May at 12:11
goto PostRawPrint Untuk Delphi XE2(0)
 by adewijaya
 on 15.May at 22:34
goto Postdatabase error..(4)
 by idhiel
 on 15.May at 15:57
goto Postbekasi, pt arila putra mahkota(3)
 by mas_kofa
 on 15.May at 15:37
goto Postbagaimana cara membaca file *.doc dg delphi?(0)
 by ficky
 on 15.May at 06:14
goto Posttanya biner to matriks(13)
 by diandewi
 on 14.May at 20:30

..:: onLast Articles ::..
..:: New Download ::..
Pascal-id.Org
Feeds -  Popular -  Latest
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: Perkenalan dan Absen
8 months, 3 weeks ago
RE: Alhamdulillah Buka Puasa Bersama
8 months, 4 weeks ago
RE: تَقَبَّلَ اللهُ مِنَّا وَمِنْكَ - Selamat Hari Raya Idul Fitri
8 months, 4 weeks ago
Lintas Situs
«
free web site stats and visitor tracking
•   Forum FAQ  •  Search  • 

pingin tahu TmediaPlayer
Delphi Indonesia Forum Index » Pemrograman » Multimedia & Graphic Enhancement
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
Author Message
bagusOffline
Location:
Post subject: pingin tahu TmediaPlayer  PostPosted: 20/Jan/2006 08:35



Joined: 14-Jan-2006
Posts: 1

Status: Offline
maaf teman2 aku pingin tanya, bagaimana caranya membuat media player yang bisa memainkan Mp3 dan lainnya selain yang disediakan di delphi, maklum soalnya saya masih baru dan minat untuk belajar delphi, mungkin kalau bisa diberi contohnya ama source codenya ya

thanks
 
 View user's profile Send private message  
Reply with quote Back to top
ariekekeOffline
Location:
Post subject:   PostPosted: 26/Mar/2008 11:00
onNewBie


Joined: 18-Mar-2008
Posts: 2

Status: Offline
Komponen : TmediaPlayer,OpenDialog,ProgressBar,Edit(2Buah) untuk menampilkan nama file & lokasi dan Timer
procedure TForm3.FormCreate(Sender: TObject);
begin
MediaPlayer1.Enabled:=false;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
var mp3:string;
begin
OpenDialog1.Execute;
mp3:=OpenDialog1.FileName;
Edit1.Text:=ExtractFileDir(mp3);
Edit2.Text:=ExtractFileName(mp3);

with MediaPlayer1 do
begin
Enabled:=true;
FileName:=mp3;
open;
Position:=0;
end;

ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Position:=0;


end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Enabled=true then
ProgressBar1.Position:=MediaPlayer1.Position;
end;

Good Luck...Emailku:okrex2000@yahoo.com
 
 View user's profile Send private message  
Reply with quote Back to top
Tbawor
Location: Gold Water
Post subject:   PostPosted: 27/Mar/2008 07:40
onKnowledgeable


Joined: 10-Jan-2007
Posts: 193
Location: Gold Water
ternyata postingan lama yang naik lagi...
pantas aneh viewnya ribuan tapi replynya cuman 1.
tambahin ah......

_________________
bawor1 := Tbawor.create(self);
bawor1.caption := '@TBawor';
 
 View user's profile Send private message  
Reply with quote Back to top
mambamaestroOffline
Location:
Post subject:   PostPosted: 27/Mar/2008 13:18
onKnowledgeable


Joined: 11-Dec-2007
Posts: 197

Status: Offline
jangan gitu dong mas, bawor. kasihan nanti yang baru semangat belajar, nanti jadi gak pede lo Very Happy
dan entar taunya cuma mikocok Very Happy

_________________
Abdellah Al - Majburi
http://altaifa-dev.co.cc

http://altaifa.wordpress.com/
http://altaifadownload.blogspot.com/
 
 View user's profile Send private message Visit poster's website Yahoo Messenger  
Reply with quote Back to top
Display posts from previous:     
Jump to:  
All times are GMT - 12 Hours
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
 Delphi Indonesia Forum Index » Pemrograman »  Multimedia & Graphic Enhancement





Powered by PNphpBB2 © 2003-2009 The Zafenio Team
Credits


| Register | Lost Password ? |