April 7, 2008 at 4:09 pm

Download Aplikasi Delphi Multimedia MP3 Player

delphi multimedia mp3 playerMalam 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

RSS feed | Trackback URI

20 Comments »

Comment by rieza
2008-07-03 18:41:56

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

Comment by Bimo Hery Prabowo
2008-07-04 01:29:27

waduh dikatakan gila ni :) .

gpp klo mau dibawa ke forum. tengkyu udah mampir

 
 
Comment by ratri
2008-07-07 03:57:51

ada yang punya koneksi delphi ke MROLA gak?
butuh banget neh…trimaksih

 
Comment by syahnan
2008-07-18 12:37:24

waw…keren…..

 
Comment by dinni
2008-07-25 03:27:34

mas,aq mo mnta tlng ya?ngebuat program pencocokan suara di delphi gmn ya mas?

 
Comment by rohmah
2008-10-17 04:12:27

:) ))))))))
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

 
Comment by Gil
2008-11-05 12:11:55

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

 
Comment by blunet
2008-12-16 04:53:07

waaaah mas….pusing aku hehehehe..
selain delphi bisa gak mas???

 
Comment by jenda
2009-04-28 12:03:57

mas..ajarin perintah program yang di atas donk..yg mp3..bsa gakh>>???
misalnya procedure button..gunanya apa…

thx..

 
Comment by Jaka Tidar
2009-05-06 06:06:39

mantap….
walau simple… tpi Mantap!!!!

mas Bimo..T.O.P dch…. !!!! ^-^

 
Comment by Piere
2009-05-30 02:42:03

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

 
Comment by diani
2009-06-04 06:34:04

mas tolong bikinin program media player, text windows, n jam analog digital dengan cara menggunakan program delphi,

seceapatnya y mas…. kirim aja lewat email

Comment by Bimo Hery Prabowo
2009-06-04 07:07:19

waduh mbak…. saya ndak ada waktu ngerjain proyek itu… maklum ada banyak kerjaann… sori ya…

 
 
Comment by rusdi
2009-06-10 08:30:22

saya selalu ketemu wajah-wajah yang tidak memberi gratisan, peniiiiiiiiiiiiiiiiiiiiiiiiiig

Comment by Bimo Hery Prabowo
2009-06-12 04:45:02

sp yng nggak ngasih gratis… program diatas gratis kok, tinggal download aja, cuma aku naruhnya di ziddu…., masak gitu aja dibilang nggak gratis…

 
 
Comment by jabrik
2009-06-17 14:57:53

twah hebat banget boz artikelnya sangat membantu banget nih

 
Comment by jabrik
2009-06-17 14:59:01

ok banget tuh

 
Comment by dapit
2009-06-18 09:22:40

om…lagi belajar delphi ni,tp gk ngerti2….hehehe…
bisa kasih tau tips n triknya gk?
thnx b4 ^^

 
Comment by badrun
2009-06-21 14:28:04

ajarin delphi dunk …
cuz pusing uii ,,,,,,,,,,,,,,

 
Name (required)
E-mail (required - never shown publicly)
URI
Your Comment (smaller size | larger size)
You may use <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped=""> in your comment.

Trackback responses to this post