DirectShow

[alfredo_m]

Quise colocar este post en faq's del foro, pero primero prefiero que lo revisen si vale la pena. Al grano... En mi búsqueda de reproducir sonido sin la necesidad de Windows Media player u otro ocx, me encontre con DirectShow, pero hay muy pocos ejemplos en español. También he visto que no es demasiado recomendable, pero para alguién que quiera reproducir algo sin mucho esfuerzo, es muy bueno. En está página encontre el código de donde base mi ejemplo:

DirectShow. El ejemplo de la página está en Visual Basic 6. Es importante mencionar que la funcionalidad se encuentra desde directX8 en adelante.

Ejemplo Direct Show, Visual Basic .Net 2005:

Lo primero es hacer referencia al proyecto a "QUARTZ.DLL", puedes buscarlo y traspasarlo a tu carpeta de proyecto si deseas.
Elementos del formulario:
1.- Un Opendialog=>opd
2.- Tres Button's=>abrir, play, stop
3.- Un Textbox,Nombre del Archivo abierto=>text1

Código PHP:

  Imports QuartzTypeLib 
 
Public Class MyForm 
    Private auba As IBasicAudio //Audio Básico 
    Private vidba As IBasicVideo //Video Básico, no ocupado 
    Private evmu As IMediaEvent //Evento multimedia, este aún no le he probado como funciona. 
    Private winvi As IVideoWindow //Video de windows, no lo ocupare en el ejemplo 
    Private mulco As IMediaControl //Control multimedia, este es el importante 
    Private posmu As IMediaPosition //Posición multimedia 
    Private InPlay as Boolean = False//Controlamos si está en reproducción actualmente. 
    //Ocupamos esta función para cargar nuestro archivo a los elementos 
    //Es importante siempre colocar todo en Try para evitar caidas en la carga 
    Protected Sub Load_File(FileName as string) 
        Try 
            mulco = New FilgraphManager//Inicializa el elemento 
            mulco.RenderFile(FileName)//Cargar Archivo 
            auba = mulco 
            auba.balance=0//Corresponde al valor medio. Valor Máximo 10.000, valor mínimo -10.000 
            auba.Volume=0//Valor máximo del volumen, el valor mínimo es -10.000 
            evmu = mulco 
            posmu = mulco 
            posmu.Rate = 1//Reproducción hacia adelante en forma normal, no he visto otros valores 
            posmu.CurrentPosition=0//Posición en que se encuantra la reproducción 
        Catch ex As Exception 
            Colocar cualquier sentencia que controle el error. 
        End Try 
    End Sub 
     
    Private Sub Clear_Object() 
        Try 
            //En caso de que este en ejecución este Control 
            If Not mulco Is Nothing Then 
                mulco.Stop() 
            End If 
            //Dejo esta sentencia para que no se olviden de cerrarlo cuando van a querer cargar un video 
            If Not winvi Is Nothing Then 
                winvi.Owner = 0 
            End Id 
            auba = Nothing 
            vidba = Nothing 
            evmu = Nothing 
            winvi  = Nothing 
            mulco = Nothing 
            posmu = Nothing 
            InPlay = False 
        Catch ex As Exeception 
            //Sentencia de Error 
        End Try 
    End Sub 
 
    Private Sub abrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abrir.Click 
        If opd.ShowDialog = Windows.Forms.DialogResult.OK Then 
            Clear_Object()//Limpiamos 
            text1.Text = opd.FileName//Guardamos el Nombre 
            Load_File(text1.Text)//Cargamos información 
        End If 
    End Sub 
 
    //Ponemos en marcha la reproducción 
    Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click 
        If text1.text = "" or mc Is Nothing Then//Control para que no tengamos error al no tener archivo cargado 
            MsgBox ("No hay archivo Cargado") 
        End If 
        If InPlay Then 
            posmu.CurrentPosition = 0 
        End If 
        mulco.Run() 
        InPlay = True 
    End Sub 
 
    //Detenemos la Reproducción 
    Private Sub stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stop.Click 
        mulco.Stop() 
        posmu.CurrentPosition=0 
        InPlay = False 
    End Sub 
End Class  
   

Puede que el ejemplo de errores, pero son minimos.
Esperando que a alguien le sea de utilidad muchas gracias.