Rutina para reproducción de vídeos








Pequeña rutina de ejemplo para poder reproducir cualquier tipo de vídeo utilizando el control de windows media player incrustado en un formulario de Visual Foxpro.


Al final descargué el proyecto de ejemplo y uso.


*!* USO

LOCAL lcFile

lcFile = ".\Videos\VFPsCubosBI01.mp4" &&AQUI COLOCAS LA RUTA Y NOMBRE DE TU ARCHIVO DE VIDEO

Ver_VFPsVideo (lcFile,"VFPs Cubos BI")


*!* PARAMETROS

*!* lcFileAyuda [ Ruta y nombre del fichero a reproducir ]

*!* lcCaption   [ Titulo que se desea mostrar en el formulario de reproducción ]


FUNCTION Ver_VFPsVideo (lcFileVideo,lcCaption)


IF PCOUNT() < 1

  MESSAGEBOX("Metodo Invalido de Ejecución. Verificar",16+0+0,"Error de Visualización")

  RETURN .F.

ENDIF


IF PCOUNT() > 2

  MESSAGEBOX("Metodo Invalido de Ejecución. [ Muchos Parametros ]. Verificar",16+0+0,"Error de Visualización")

  RETURN .F.

ENDIF


IF TYPE("lcFileVideo") = "L" .OR. EMPTY(lcCaption)

  RETURN .F.

ENDIF


IF !FILE(lcFileVideo)

  MESSAGEBOX("Error al Tratar de Visualiza el Archivo de Video, " + lcFileVideo,16+0+0,"Error de Visualización")

  RETURN .F.

ENDIF

DO FORM frm_vfps_video WITH lcFileVideo,lcCaption

ENDFUNC


Descarga
Proyecto Completo VFPs Video
Proyecto y ejemplo de la rutina de reproducción de vídeo desde Visual Foxpro
VFPsVideo.rar
Archivo comprimido 35.8 KB

Escribir comentario

Comentarios: 2
  • #1

    Heves (sábado, 18 agosto 2018 18:24)

    Mil gracias, me ayudó muchísimo.

  • #2

    Harold (sábado, 23 febrero 2019 17:40)

    Excelente aporte, quisiera saber si alguien tiene una
    rutina o formulario ejemplo para leer desde este
    no el vídeo, si no la cámara en linea