Program Yapmak | Programcılık Hakkında Her Şey | VİSUAL BASİC 6.0 | C, C++ ve C# Yazılım Dilleri | VB.NET Yazılım Dili

Medya Dosyalarini Oynatmak

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


İyi çalışmalar...
Sincan Laptop tamiratı ile alakalı içeriklerin bulunduğu web siteden bilgilere ulaşabilirsiniz. Sincan'da laptop tamiratını en iyi yapan yerleri sorgulayabilirsiniz. Cihan KOÇ
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=