Cara Membuat Media Player di Delphi7

Cara Membuat Media Player di Delphi7 - Hallo sahabat Zona Tiga, Pada Artikel yang anda baca kali ini dengan judul Cara Membuat Media Player di Delphi7, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Delphi7, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Cara Membuat Media Player di Delphi7

Aplikasi media player ini dibuat dengan program delphi7 dan menggunakan bahasa pemrogramman borlan delphi / delphi7. Aplikasi yang akan dibuat ditujukan untuk memutar video dan audio (mp3).
Dalam program yang akan kita bikin dalam tutorial ini hanya dapat memutar video yang bertipe format *.avi dan untuk audio bertipe format *.mp3 dan *.wav. Program ini nantinya juga akan dilengkapi dengan jam digital, gambar dan animasi. Bentuk dari programnya yaitu setengah lingkaran.
Program ini dibuat berdasarkan sumber-sumber yang didapat oleh saya dari buku dan searching di google. Program delphi yang digunakan yaitu delphi7.
Cara Membuat Media Player di Delphi7
Cara Membuat Media Player di Delphi7
Langsung saja berikut Cara Membuat Media Player di Delphi7 :
1. Jalankan borland delphi Anda. Kemudian klik File >> New >> VCL Form Application.
2. Klik tab Properties pada Object Inspetor. Ubah Caption “Form1” menjadi "Audio Player”. 
Lalu pindah ke tab Events, kilk ganda pada EventOnCreate sehingga tampil Code Editor dan lengkapi sehingga kodenya akan seperti yang ada dibawah ini:
procedure TForm1.FormCreate(Sender: TObject);
var
busur:HRGN;
oke:HBRUSH;
setengah:HDC;
begin
busur:=createellipticrgn(200,200,500,500);
setwindowrgn(handle,busur,true);
deleteobject(busur);
end;

3. Tambahkan komponen TImage1 yang tedapat pada Component Pallete ke dalam Form Designer. Tambahkan gambar dengan mengklik ganda property Picture.
Dan ubah beberapa pengaturan propertiesnya seperti dibawah ini:
- Property Stretch = true
- visible = true
Masih di TImage1, setelah itu Klik tab Events, lalu klik ganda pada OnMouseDown dan tuliskan kode program berikut:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
sc_dragmove=$F012;
begin
releasecapture;
form1.Perform(wm_syscommand,sc_dragmove,0);
end;

4. Tambahkan 2 buah TButton. Ubah property Captionnya menjadi “Buka” dan “Tutup”.
Klik ganda tombol “Buka”, tuliskan kode berikut:
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.filename:=opendialog1.filename;
mediaplayer1.open;
mediaplayer1.play;
mediaplayer1.stop;
end
end;
Klik ganda tombol “Tutup” lalu tuliskan kode:
procedure TForm1.Button2Click(Sender: TObject);
begin
mediaplayer1.Close;
end;

5. Tambahkan 1 buah TSpeedButton, ubah property Caption menjadi “-“ dan 1 buah TPanel ubah menjadi “Keluar”.  Klik ganda “Keluar”, tulis kode berikut:
procedure TForm1.Panel1Click(Sender: TObject);
begin
Application.Terminate;
end;

6. Tambahkan 2 buah Tlabel. Caption “Label 1” dikosongkan dan “Label 2” ubah menjadi “Audio Player”.
7. Tambahkan 2 buah komponen TTimer.Atur property timer 1 dengan interval 700 dan timer 2 dengan interval 1000.
Pada tab Events, klik ganda OnTimer lalu tuliskan kode berikut pada timer 1:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label2.visible = true then
label2.visible := false
else
label2.visible := true;
end;
Dan tuliskan kode untuk timer 2:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;

8. Letakkkan komponen TOpenDialog lalu atur property Filter, ketikkan type *.mp3, *.wav dan *.avi. pada form.
9. Klik komponen TMediaPlayer yang ada di Commponen pallete untuk ditambahkan pada Form.
10. Untuk membuat pesan teks cursor berada di atas tombol, tuliskan pesan teks pada property hint dan atur property showhint menjadi true.
11. Atur property cursors untuk memberikan efek pada bentuk cursor.
12. Jalankan Program yang telah dibuat dengan menekan run.

Sekian tutorial Cara Membuat Media Player di delphi7, Semoga bermanfaat.

Baca juga




Demikianlah Artikel Cara Membuat Media Player di Delphi7

Sekianlah artikel Cara Membuat Media Player di Delphi7 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Judul : Cara Membuat Media Player di Delphi7
link : Cara Membuat Media Player di Delphi7

3 Responses to "Cara Membuat Media Player di Delphi7"

  1. assalam. kalaw untuk menambahkah menu lagu atau video misalkan pada listbox dan media player berjalan sesuai item pada listbox, caranya bagaimana. terimakasih.

    BalasHapus
    Balasan
    1. Mohon maaf.
      Maksud Anda menampilkan daftar Playlist lagu / video pada listbox ?

      Hapus