Memutar film

Index Konsultasi Delphi || Arsip Pertanyaan

Memutar film [Guntur Jokopremono ]

Halo, mau tanya nih, kalau saya punya dua buah film (film1dan2) dan saya simpan di folder c:\filmku. Gimana caranya bikin tombol dalam form yaitu tombol 1 dan tombol 2 dan bila tombol 1 ditekan maka film 1 langsung diputar (dalam mediaplayer) jadi tanpa harus melalui prosedur buka file>pilih file >putar film. Terimakasih :)

Jawaban

Sebenarnya mudah saja, Anda tinggal "memberitahu" MediaPlayer letak file film yang akan dimainkan. Di bawah ini contoh procedure untuk memainkan film cool.avi yang terletak di folder C:\filmku.

procedure TForm1.Button1Click(Sender: TObject);

begin

     with MediaPlayer1 do

     begin

          Close;

          FileName := 'c:\filmku\cool.avi';

          Open;

          Play;

     end;

end;

Untuk lebih jelasnya Anda dapat melihat pada contoh yang bisa didownloaddi sini.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------