Medya Dosyalarını Oynatmak

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






İyi çalışmalar...