Download Aplikasi Delphi Multimedia MP3 Player
Malam ini mencoba buka-buka proyek lama, ini proyek pribadi saja kok. Kali ini saya menemukan program delphi MP3 Player. Masih sangat sederhana sih, tetapi masih bisa digunakan untuk referensi pemrograman multimedia pada delphi. Program MP3 player yang dibuat dengan delphi ini hanya bisa memilih 1 lagu, tidak memiliki playlist, repeat play dll. Fasilitas utamanya hanya play, pause dan stop. Sebenarnya dulu saya ingin membuat MP3 player yang fasilitasnya hampir sama dengan winamp. Tetapi tidak tahu kenapa proyek tersebut berhenti. Hasilnya ya program seperti ini.
Berikut kode untuk membangun aplikasi ini.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | unit UMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer, ComCtrls, ExtCtrls; type TForm1 = class(TForm) mp3Player: TMediaPlayer; Edit1: TEdit; Button1: TButton; OpenDialog1: TOpenDialog; Timer1: TTimer; Progress: TProgressBar; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses ShellApi,ShlObj; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if opendialog1.Execute then begin edit1.Text:=opendialog1.FileName; end; Progress.Max:=0; Mp3Player.Close; Mp3Player.FileName:=edit1.Text; MP3Player.Open; Progress.Max:=Mp3Player.Length; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if Progress.Max<>0 then Progress.Position:=Mp3Player.Position; end; procedure TForm1.FormCreate(Sender: TObject); begin Progress.Position:=0; end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage('dibuat oleh bimo hery prabowo'+chr(13)+'http://bimoweb.com'); end; end. |
Program diatas ditulis dengan delphi 7 (pasti bajakan, wong kalau aseli harganya 3000 dolar). Tetapi anda bisa menggunakan delphi dibawahnya. Untuk komponen, saya menggunakan komponen bawaan delphi standar. Bagi yang menginginkan kode sumber dan aplikasi jadinya, bisa didownload gratis. Anda bisa memodifikasi program ini sesuai kebutuhan anda.
Download contoh program delphi multimedia
Download source code delphi program multimedia
Related Post
Filed under: Cerita-Cerita, Delphi, Software Baru, Teknologi, Tutorial
wuiih semakin gila aja ni mas bimo!! salut 3 jempol buat anda!!!! sekali lagi Artikel ini saya bawa ke forum saya ya, kalo boleh sih….
mas mampir dunk ke situs jelek saya
waduh dikatakan gila ni
.
gpp klo mau dibawa ke forum. tengkyu udah mampir
ada yang punya koneksi delphi ke MROLA gak?
butuh banget neh…trimaksih
waw…keren…..
mas,aq mo mnta tlng ya?ngebuat program pencocokan suara di delphi gmn ya mas?
wah meski baru buka blogny mas bimo, tp q langsung kesemsem cz programnya bagus bdt, eh tp tuk ngebuat progarm ni pa g perlu database desktop,sorry kl salah nanya, q br blajar delphi…..heeheh
waduh mas I bnr2 snang nemu artikel anda.
Coz pusing nich mikir tugas wat aplikasi multimedia!!!
mas, kalo ad lagi bagi2 Y!!!
itung2 wat nyenengin I,dan membahagiakan orang kan dapat pahala (^_^)
ttd;
Gil
waaaah mas….pusing aku hehehehe..
selain delphi bisa gak mas???
mas..ajarin perintah program yang di atas donk..yg mp3..bsa gakh>>???
misalnya procedure button..gunanya apa…
thx..
mantap….
walau simple… tpi Mantap!!!!
mas Bimo..T.O.P dch…. !!!! ^-^
Mas Bimo maap ya.. aq ikutan nitip… he3
klo masih ada yang pengen liat sample artikel pengolahan tmediaplayer nya delphi…
coba maen de ke piere.dikti.net
mas tolong bikinin program media player, text windows, n jam analog digital dengan cara menggunakan program delphi,
seceapatnya y mas…. kirim aja lewat email
waduh mbak…. saya ndak ada waktu ngerjain proyek itu… maklum ada banyak kerjaann… sori ya…
saya selalu ketemu wajah-wajah yang tidak memberi gratisan, peniiiiiiiiiiiiiiiiiiiiiiiiiig
sp yng nggak ngasih gratis… program diatas gratis kok, tinggal download aja, cuma aku naruhnya di ziddu…., masak gitu aja dibilang nggak gratis…
twah hebat banget boz artikelnya sangat membantu banget nih
ok banget tuh
om…lagi belajar delphi ni,tp gk ngerti2….hehehe…
bisa kasih tau tips n triknya gk?
thnx b4 ^^
ajarin delphi dunk …
cuz pusing uii ,,,,,,,,,,,,,,