Paso a paso...
Deben activar los controles ActiveX, esto se realiza yendo al menú Herramientas/Opciones/Controles, Controles ActiveX y seleccionar “Windows Media Player”.
Y ahora empezamos:
- Crear un formulario, ponerlo en tipo modal.
- Cargar un contenedor (Container1), pónganle el nombre que deseen, yo lo nombro “video”
- Dentro del contenedor insertan un objeto olecontrol (olecontrol1), pónganle el nombre que deseen. Por lo general se nombra wmp.
- Tanto el contenedor como el olecontrol denle las medidas idénticas top=0, left=0, height=576, width=804, demás está decir que el formulario debería tener las dimensiones height=600 y width=1000
- En el formulario principal insertamos los botones de comando (commandX) para “Reproducir”, “Detener”, “Volumen +”, “Volumen –“
- Agregamos un objeto Text1 y lo colocamos en alguna parte del formulario donde no quede bloqueando la visual del video cuando este se reproduzca. Asignarle una variable (archvideo) para ser buscado y reproducirlo.
- Dentro del método resize del olecontrol (dentro del contenedor) cargamos lo siguiente:
TRY
thisform.LockScreen=.t.
WITH this
.Top=0
.Left=0
.Width=804
.Height=576
.UiMode="none"
.stretchToFit=.t.
ENDWITH
thisform.LockScreen=.f.
CATCH
ENDTRY
Lo que esto realiza es darle una medida estándar a nuestro video y todos los que se reproduzcan respeten estas medidas además de mostrarlo escaladamente al contenedor, es decir; si el video es más pequeño esto hace que el mismo se amplíe y si es de un tamaño mayor (1024x762) lo ajusta a 804x600.
- Luego en los métodos MediaChange, Move, Openplayer, OpenStateChange, PlayStateChange, PlayListChange y StatusChange… insertamos la siguiente lista de comandos:
TRY
this.Resize() && Llamar al método resize para redibujar el tamaño/posición del video
CATCH
ENDTRY
- En el método LostFocus del objeto Text1 va esto:
IF LEN(ALLTRIM(archvideo))=0 && si la variable del nombre de archivo esta vacío
archvideo = Getfile("avi|mp4|wmv|mpg|mpeg|flv|wav|mp3") && pedir al usuario elija un nombre
ELSE
IF FILE(ALLTRIM(archvideo)) = .f. && verificar si el archivo existe de no ser así
archvideo = Getfile("avi|mp4|wmv|mpg|mpeg|flv|wav|mp3") && pedir al usuario que elija un
&& nombre
ENDIF
ENDIF
thisform.video.wmp.urL=archvideo && Video a Reproducir, contenido en un objeto text1
- Nos vamos a los botones de comando que agregamos, abrimos en el método click del que designamos para reproducir y tipeamos:
thisform.video.wmp.controls.play() && Reproducir Video
- Luego en el botón detener hacemos lo mismo en el método click y también cargamos esto:
thisform.video.wmp.controls.stop() && Detener el Video
- Para el aumento y disminución del volumen cargamos en los botones respectivos lo siguiente:
thisform.video.wmp.settings.volume = thisform.video.wmp.settings.volume + 1
thisform.video.wmp.settings.volume = thisform.video.wmp.settings.volume – 1
Los signos de suma y resta ya hacen suponer lo que deben realizar estos comandos.
Por lo demás ya queda a cargo de cada uno, como quisiera ir manejando y agregando cosas, como otros videos, combinarlos, reproducirlos al mismo tiempo, hacer enganchados de películas como también audio.
