FilterGraph nesnesinin VB6.0 da kullanımına ilişkin çok basit bir örnek...Aşağıdaki
örnekte oynatmak istediğiniz medya dosyasının ilişkin codec lerin
bilgisayarınızda yüklü olması gerekmektedir. Bu yöntemle tüm medya
dosyalarını okuyabilirsiniz.
Ayrıca aynı library içinde bulunan interface ler yardımı ile
oynatmak istediğiniz dosyayı herhangi bir picturebox
içinde de gösterebilirsiniz.
Öncelikle formunuza üç adet CommandButton nesnesi ekleyin.
VB6.0 editörünün "Project>Refernces..." menüsünü tıklayın ve
aşağıdaki pencerede göründüğü gibi "ActiveMovie control type library" referansını seçin.
"OK" butonuna basarak seçimi onaylayın.
Eklemiş olduğumuz CommandButton nesnelerine aşağıdaki isimleri verin.
cmdPlay
cmdPause
cmdStop
Formumuzun kod sayfasını açıp aşağıdaki kodları yazın.
Option Explicit
Dim m_mc1 As QuartzTypeLib.IMediaControl
Private Sub Form_Unload(Cancel As Integer)
Set m_mc1 = Nothing
End Sub
Private Sub cmdPlay_Click()
If m_mc1 Is Nothing Then
Set m_mc1 = New QuartzTypeLib.FilgraphManager
m_mc1.RenderFile "C:\lost.318-caph.avi"
End If
m_mc1.Run
End Sub
Private Sub cmdPause_Click()
If m_mc1 Is Nothing Then Exit Sub
m_mc1.Pause
End Sub
Private Sub cmdStop_Click()
If m_mc1 Is Nothing Then Exit Sub
m_mc1.Stop
Set m_mc1 = Nothing
End Sub
