07. Aplikasi Media Player
Pada video tutorial ini diperlihatkan bagaimana membuat aplikasi Media Player yang bertujuan untuk mempelajari cara menggunakan Komponen Media Player untuk memanggil dan menjalankan beberapa file multimedia, menggunakan komponen tOpenDialog dan mengeset filter file dari komponen tOpenDialog tersebut. Akan dipelajari juga Syntax Show Modal untuk menampilkan sebuah form dengan metode Show.
[video]
[video]
Langkah Pembuatan
|
No |
Action |
||
|
1 |
File->New->Application |
|
Save All create direktori "media Player" Project: MEDIAPLAYER.DPR File: unit1.pas |
|
2 |
Drop component |
Name |
Pallete |
|
|
Label1 |
Filename |
|
|
|
Edit1 |
||
|
|
Button1 |
Browse |
|
|
|
OpenDialog1 |
Dialogs |
|
|
|
MediaPlayer1 |
System |
|
|
3 |
Create Display Form |
File->New ->Form |
Save All File Name: Unit2.pas Form Name: displayform |
|
4 |
Event Handler |
||
|
|
Button1 |
OnClick |
if OpenDialog1.execute then begin Edit1.Text := OpenDialog1.FileName; MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Open; end; |
|
5 |
MediaPlayer1 |
OnClick |
if Button = btplay then begin if MediaPlayer1.DeviceType = dtavivideo then begin MediaPlayer1.display := displayform; displayform.Width := MediaPlayer1.DisplayRect.Right; displayform.Height := MediaPlayer1.DisplayRect.Bottom; displayform.Show; end else displayform.Close; end; end; |
|
6 |
Play |
F9 |
Browse-> open c:\winnt\clock.avi open -> c:\temp\lobo.mp3 |
Penjelasan Source Code Program
Berikut ini penjelasan source program aplikasi yang sudah dibuat diatas:
[video]
Apa yang sudah anda pelajari
1. Komponen
- Media Player: Menggunakan komponen tMediaPlayer untuk memanggil dan menjalankan beberapa file multimedia
- Open Dialog Box: Menggunakan komponen tOpenDialog dan mengeset filter file dari komponen tOpenDialog tersebut.
2. Syntax
- Show Modal: Menampilkan sebuah form dengan metode Show
- Ada dua cara untuk menampilkan form yakni Show dan ShowModal. Metode show adalah metode untuk menampilkan sebuah form. Selama form yang dipanggil terbuka, form induk/pemanggil masih dapat disorot/diaktifkan Sedangkan metode ShowModal, form induk tidak dapat disorot selama form anak masih terbuka/aktif.
Recent Comments