REPRODUCIR VIDEOS EN VB.NET

Question

HOLA BUEN DÍA

    Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
    
        PictureBox1.Show()
        ruta = "C:\musica_spinning\wildlife.wmv"
        Me.AxWindowsMediaPlayer1.URL = ruta
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

    End Sub

Con él codigo de arriba puedo reproducir sonido sin problema, pero para videos únicamente escucho pero nada de imagen. El picture box es aproximado un octavo de pantalla, porfa una ayudita, que con ustedes he avanzado muchísimo

Gracias y buen camino

Bolívar

Answer 1

pero para videos únicamente escucho pero nada de imagen

estas seguro que tienes instalados los codec del video correctos ?

si tomas ese wmv y lo abres con el Windows Media Player puede reproducirlo de forma correcta ?

sino puedes reproducirlo con el reproductos menos vas a poder hacerlo con el control

saludos

---

Leandro Tuttini

Blog
Buenos Aires
Argentina

Answer 2

Buen día Leandro

Gracias por responder

El video lo puedo reproducir correctamente desde Windows media Player, más no desde mi aplicación Vb,

Sigo investigando

Buen camino

Bolívar

Answer 3

Hola Bolívar.

Yo diría casi sin temor a equivocarme (prefiero dejar un "casi" por si acaso) que si un video no se ve, es problema de descodificación.

El hecho de que se vea en tu reproductor normal bajo Windows, no asegura que los codecs necesarios estén instalados en tu sistema. Ten en cuenta que el visor VLC (por decir un reproductor de tantos que hay) lleva codecs incorporados para muchos tipos de videos y reproduce DivX, Xvid, Mpeg, etc., etc., sin necesidad de tener dichos codecs instalados en tu equipo, así pues el que lo puedas visualizar fuera de VB no garantiza nada porque es el propio reproductor quien lo descodifica, no los codecs de tu sistema.

Por algún motivo los codecs no están funcionando dentro de tu aplicación. Quizá tengas que importarlos fuera del Class con el método "IMPORTS.SYSTEM", y en ese caso alguien más experto tendría que decirte cómo, o quizá sencillamente porque no los tengas instalados en tu ordenador, en cuyo caso te aconsejaría el paquete de codecs de ELISOFT, que aparte de ser gratuíto y lo puedes descargar fácilmente buscándolo en google, tiene todos los codecs necesarios para reproducir archivos de video de prácticamente cualquier formato existente.

Yo me decanto por esta segunda opción.

Un saludo.

Answer 4

Gracias Carlos

Aún aquí en este dale que dale, hice una presentación en power point con el mismo video que en VB no funciona

y funciona correctamente. Te dice algo?

Gracias Bolívar

Answer 5

Hola, chicos

Lo resolví de la manera más fácil, clik derecho sobre el botón del reproductor y poner full pantalla

La clave es que al escuchar el sonido, estaba ejecutándose

Ahora mi pregunta como hacer que se ejecute full pantalla sin el el click botón derecho, sino por código

Gracias

Saludos

Bolívar

Answer 6

Hola Bolívar.

Mira, creo por no decir que estoy seguro, que tu sistema no tiene los codecs necesarios para reproducir ese video. Es extraño que en Power Point te funcione, pero también es verdad que Microsoft Office usa muchos más recursos del sistema que VB .NET

Visual Basic es muy intransigente, y para usar una simple base de datos tienes que importar los controladores, y es totalmente paradójico, puesto que deberían estar totalmente integrados, ya que Visual Basic sin bases de datos sirve para poco. En Access abres una base de datos con hacer un clic y en VB (que debería de ser prácticamente igual de fácil) mira todo lo que hay que hacer: importar los controladores, declarar las variables de conexión (especificando el proveedor, tipo de base de datos y formato JET, ACE, etc), declarar el DataAdapter, el DataSet... Y luego el DataReader para leer datos y más cosas.

Te quiero decir con esto que si bien VB es un lenguaje de altísimo nivel donde prácticamente está todo hecho y gran parte de la programación se puede hacer en tiempo de diseño, es cierto que VB también exige bastante en lo que a librerías se refiere, y la falta de una simple orden como "Import.System.Data.OleDb" deja a VB totalmente inutilizado para el manejo de bases de datos. También habrás podido comprobar que un pequeño ejercicio que ocupa pocos Kbytes, que ni llega al mega, lo empaquetas para llevártelo a otro equipo y se te convierte en un Setup.exe de 50 megas, y todo son controladores, librerías y "morralla" pero totalmente necesaria.

Yo que tú no me complicaba más e instalaría el codec-pack de elisoft, o el K-lite codec pack o algún paquete de estos y verás como se soluciona. Al menos eso espero. En cualquier caso si no funciona y no quieres tener instalados programas que no necesitas, siempre puedes desinstalar el paquete de codecs, pero creo que deberías probar.

Un saludo.

Answer 7

Bueno, gracias a todos por las ideas

Como comentaba arriba ya lo resolví, con click en el botón derecho y listo

Sigo aprendiendo

Saludos y buen camino

Bolívar

Answer 8

Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As System.Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
	If e.newState = WMPLib.WMPPlayState.wmppsPlaying And Not AxWindowsMediaPlayer1.fullScreen Then
		AxWindowsMediaPlayer1.fullScreen = True
	End If
End Sub

Answer 9

Buen día Luis

Muchísimas gracias.

Funcionó a las mil maravillas. Puedo seguir

Gracias

Bolívar