Monday, 1 May 2017T5/01/2017 08:00:00 pm

Membuat Video Player Sederhana Menggunakan Delphi

Salam blogger……setelah pada artikel sebelumnya saya sudah share cara membuat pemutar music dengan Delphi (baca juga: cara membuat pemutar music di Delphi). Maka kali ini saya akan mencoba berbagi cara mudah membuat video player sendiri di Delphi. Membuat sebuah video player atau pemutar video di Delphi tidak lah sulit, karena disini kita akan memanfaatkan komponen yang sudah tersedia di Delphi. Tentunya sobat sudah tidak asing lagi dengan video player karena di setiap pc atau laptop sobat semua sudah memilikinya. Ada banyak contoh aplikasi video player yang banyak digunakan contoh nya GOM player, Media player, KMP dan lain sebagai nya. Nah disini kita akan mencoba membuat fungsi media player yang hampir sama dengan video player umumnya dengan software Delphi.

Pada tutorial kali ini saya akan mencoba membuat program video player dengan menggunakan Delphi XE8, disini saya akan menggunakan komponen mediaplayer yang sudah tersedia di Delphi dan menggunakan panel untuk menampilkan video yang akan di putar. Meski versi  Delphi yang sobat pakai berbeda dengan yang saya pakai, sobat tetap dapat mencoba membuat program ini, karena pada dasar nya komponen yang saya pakai kali ini sama dengan yang ada di Delphi versi laiinya, jadi sobat dapat mempraktekan nya di Delphi versi apa saja, contohnya Delphi 7, Delphi 2010, Delphi XE dan Delphi 10 terbaru lainnya.

Untuk mempersingkat waktu saya langsung saja memberikan tutorial pembuatannya video player ini. Adapun langkah langkah nya adalah sebagai berikut :

1. Buat sebuah project baru di Delphi sobat dengan cara pilih File > New > Vcl Form Application.

2. Lalu selanjutnya pada form1 atur propertiesnya, position = poDesktopCenter

3. Lalu selanjutnya tambahkan 2 buah panel dengan pengaturan properties nya seperti di bawah ini :

  • Panel1 > align = alTop
  • Panel2 > align = alBottom, caption = Video Player

4. Selanjutnya pada panel1 tambahkan komponen dibawah ini:

  • DriveCombobox1
  • Directorylistbox1
  • FileListbox1
  • MediaPlayer1 > align = alBottom

5. Selanjutnya tambakan komponen sSkinManager1, lalu pilih skin yang akan sobat gunakan lalu pada object inspector pada active pilih true. (jika sobat menggunakan komponen alpha skin).

Sampai disini langkah pembuatan form nya sudah selesai, adapun tampilan form yang sudah kita buat akan terlihat pada gambar dibawah ini.
Form Video Flayer
Jika sudah sekarang kita tinggal membuat coding program nya, fungsi coding program ini adalah untuk menjalankan program yang kita buat.

Langkah – langkah nya adalah sebagai berikut :

1. Tambahkan /ketikan stretch:boolean; tepat dibawah var form1 : Tform1; contoh:

var
  Form1: TForm1;
  stretch:boolean;

2. Lalu klik pada FileListBox1 lalu pada Object Inspector pilih events lalu pilih OnChange dan masukkan coding program berikut :

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if (FileListBox1.FileName <>'')
then
with MediaPlayer1 do
begin
FileName:=FileListBox1.FileName;
open;
if stretch then
DisplayRect:=Rect(0,0, sPanel2.Width, sPanel2.Height)
else
DisplayRect:=rect(0,0,0,0)
end;
end;

3. Lalu pada Form1 pilih Events lalu pilih OnCreate dan masukan coding program berikut:

procedure TForm1.FormCreate(Sender: TObject);
begin
stretch:=true;
MediaPlayer1.Display:= sPanel2;
MediaPlayer1.VisibleButtons:=[btPlay,btPause,btStop,btNext,btPrev,btStep,btBack];
FileListBox1.Mask:='*.avi;*.mpg;*.mpeg';
DirectoryListBox1.FileList:=FileListBox1;
DriveComboBox1.DirList:= DirectoryListBox1;
end;
Sampai pada tahap ini program video player yang kita buat sudah selesai, sekarang sobat tinggal menjalankan program nya dengan cara menekan F9/RUN, lalu pilih drive tempat sobat menyimpan folder video sobat, dan klik pada nama playlist yang sudah di tampilkan dan klik tombol play dan lihat hasilnya, adapun program yang saya buat tampilan nya dapat dilihat pada gambar dibawah ini.
Tampilan Video Player Delphi
Demikian Artikel saya kali ini tentang cara membuat aplikasi video player menggunakan Delphi yang dapat saya bagikan kepada sobat semua kali ini, semoga dapat bermanfaat, jika sobat ingin mencoba aplikasi yang saya buat, sobat dapat download aplikasinya pada link yang sudah saya sediakan, terima kasih sudah berkunjung di blog saya dan selamat mencoba, untuk contoh program delphi dan tutorial lainnya akan saya muat pada artikel selanjutnya.
Previous
Next Post »
2 Komentar untuk "Membuat Video Player Sederhana Menggunakan Delphi"

Ijin praktek gan good arhtikelnya

silahkan kang...selamat mencoba

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status