Bimo Hery Prabowo

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.

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

Pihak Terkait

• Download Aplikasi Delphi – Program Perpustakaan
• Download Aplikasi Delphi Rental CD
• Contoh Program Delphi : Aplikasi Simple Asisten
• Contoh Program Delphi: Billing Warnet
• Download Contoh Program Delphi

Filed under: Cerita-Cerita, Delphi, Software Baru, Teknologi, Tutorial

Iklan Premium

Jual Cincin Perak
Cincin yang sangat indah ini cocok untuk dipakai oleh pasangan suami istri atau pasangan yang baru tunangan
Harga Rp350.000
Beli Sekarang.