Applikasi Vidio Sederhana

Masukan komponen dibawah ini:

Tool palette>>Standar>>Memo

Tool Palette>>Standar>>Mainmenu

Tool Palette>>Dialogs>>OpenDialog

ToolPalette>>System>>MediaPlayer

Sesuaikan posisi dari masing masing komponen sesuai selera.

Kita akan membuat box untuk menampilkan vidio dengan menggunakan komponen memo agar memo tidak menampilkan tulisan ubah property memo Action menjadi false. Agar sedikit lebih menarik ubah warna dari memo menjadi clBlack.

Klik dua kali main menu ubah caption dengan "File" ubah caption sub menu menjadi "open" menu berikutnya ubah dengan Exit.

Klik dua kali sub menu open lalu masukan perintah berikut:

if opendialog1.Execute then

begin

mediaplayer1.FileName:=opendialog1.FileName;

mediaplayer1.Open;

mediaplayer1.Display:=memo1;

mediaplayer1.DisplayRect:=memo1.ClientRect;

end;

Lalu klik dua kali menu exit dan masukan baris berikut:

application.Terminate;

klik duakali pada form dan masukan:

memo1.Text:='';

perintah ini menghilangkan text pada memo.

Media player ini hanya dapat membuka file file vidio lama seperti *.Avi Dan *.Dat

Jadi kita dapat memfilter file yang akan di buka opendialog dengangan merubah property  Database>>Filter dengan mengklik dua kali. Pada filter editor, masukan Filtername dengan AVI filter dengan *.avi