Reproducir Video en Pantalla Completa

683 views
Skip to first unread message

aarces

unread,
Oct 19, 2011, 1:30:08 PM10/19/11
to Comunidad de Visual Foxpro en Español
Hola a todos, quisiera saber si alguno de ustedes a logrado que
mediante codigo se reproduzca un video en pantalla completa en VFP 9
SP1


Algo asi

archivo=getfile()
thisform.Wmp.URL=Archivo

hasta aqui lo reproduce

cuando quiero que se vea en pantalla completa
me envia un error el leer la siguiente instruccion

thisform.wmp.fullscreen=.T.

pero si pongo esta misma instruccion en u boton, la ejecuta si error

la idea es hacer un reproductor para una videorockola

aqui el enlace ppara que descargen el archivo
http://dl.dropbox.com/u/46095316/Reproductor.rar

Douglas Sánchez Guillén

unread,
Oct 19, 2011, 1:32:35 PM10/19/11
to publice...@googlegroups.com
Busca aqui en el foro un excelente ejemplo de un colega es para reproducir en pant. completa y es para control de fila, turnos o colas algo asi buscalo esta aqui hace 8 dias mas o menos. estoy seguro que te servirá.

Saludes
--
Ing. Douglas Sánchez Guillén
      Consultor Informatico
Movistar: 505 8759 - 5342
Claro: 505 88495476

aarces

unread,
Oct 20, 2011, 10:20:12 AM10/20/11
to Comunidad de Visual Foxpro en Español
Hola Douglas, no encontre nada referente a los videos en pantalla
completa, solo algunas referencias en Junio, pero no es lo que intento
hacer
si pudieras descargar mi ejemplo y ver lo que realmente quiere lo
agradecería

Easy Gestion

unread,
Oct 20, 2011, 2:55:57 PM10/20/11
to publice...@googlegroups.com
Aquí encontrarás todo lo necesario, pero es todo de pago. Yo he desarrollado 3 productos con estos OCX.


Saludos

Gabriel

agradeceria

sergio garcia

unread,
Oct 20, 2011, 3:01:48 PM10/20/11
to publice...@googlegroups.com

Esto lo subieron en otro foro, ahí está lo que necesitas. Solo renombras a RAR

 

 

______________________________________

Sergio A. García
Gerencia
in...@magicsoft.com.gt

Magicsoft de Guatemala
30 Avenida A 17-80 Zona 7 Villa Linda I, Guatemala / 9 calle 7-65 Zona 1, Jutiapa
Tlf: 5527-4094 · Fax: 7844-3805
in...@magicsoft.com.gt · www.magicsoft.com.gt  skype    

magicblancopecoNo me imprimas si no es necesario. Protejamos el medio ambiente

image001.png
image002.png
image003.gif
Reproductor.mi

aarces

unread,
Oct 20, 2011, 7:11:28 PM10/20/11
to Comunidad de Visual Foxpro en Español
Muchas gracias a todos, por sus explicaciones, pero el ejemplo que me
envian es el que yo envio donde si hace todo lo que quiero, pero no de
manera automatica
en cuanto al OCX ya lo habia checAdo y tiene cierta incompatibiidad
con Windows 7 que es el sistema que estoy utiizando.

saludos


Douglas Sánchez Guillén

unread,
Oct 21, 2011, 12:23:56 PM10/21/11
to publice...@googlegroups.com
te lo voy a pasar el ejemplo que baje de alguien, y te lo paso en cuanto llegue a ksa.

saludes

Luis Mata

unread,
Oct 21, 2011, 12:37:19 PM10/21/11
to publice...@googlegroups.com
para pantalla completa le tienes que poner titlebar = 0, windowsstate=maximize.... al form claro
 


logo2 Mata Figueroa, Luis A.
Procesos, Tecnología de la Información y telecomunicaciones
TELF: (00 51 1) 617-4613
RPC : (00 51) 993597297
FAX : (00 51 1) 617-4601
lm...@cclf.com.pe
www.cclf.com.pe
imgfrm siguenos-fb

logo2[3].png
imgfrm[3].png
siguenos-fb[3].gif

Intel Man

unread,
Oct 21, 2011, 12:56:42 PM10/21/11
to publice...@googlegroups.com
Interesante este dato, nunca lo habia probado :)

Cada dia me uno mas al zorro por todo lo que hace :D

Saludos



To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Reproducir Video en Pantalla Completa
Date: Fri, 21 Oct 2011 11:37:19 -0500
logo2[3].png
imgfrm[3].png
siguenos-fb[3].gif

Douglas Sánchez Guillén

unread,
Oct 21, 2011, 1:03:53 PM10/21/11
to publice...@googlegroups.com
voy enviarte el hilo al foro y a ti con copia para que lo veas sale como 

Gestión de Colas Virtuales..


saludes espero te sirva ahi esta el truco soolomodifica la pantalla.




El 20 de octubre de 2011 08:20, aarces <alfonsoarc...@gmail.com> escribió:

Guapuru_sz

unread,
Oct 24, 2011, 1:18:45 AM10/24/11
to Comunidad de Visual Foxpro en Español
posealo para q todos lo veamos


On 21 oct, 13:03, Douglas Sánchez Guillén <douglas...@gmail.com>
wrote:
> voy enviarte el hilo al foro y a ti con copia para que lo veas sale como
>
> Gestión de Colas Virtuales..
>
> saludes espero te sirva ahi esta el truco soolomodifica la pantalla.
>
> El 20 de octubre de 2011 08:20, aarces <alfonsoarcesilves...@gmail.com>escribió:
>
> > Hola Douglas, no encontre nada referente a los videos en pantalla
> > completa, solo algunas referencias en Junio, pero no es lo que intento
> > hacer
> > si pudieras descargar mi ejemplo y ver lo que realmente quiere lo
> > agradecería
>
> --
> *Ing. Douglas Sánchez Guillén*
> *      Consultor Informatico*

aarces

unread,
Oct 24, 2011, 10:06:28 AM10/24/11
to Comunidad de Visual Foxpro en Español
Muchas gracias Douglas, por el ejemplo de Guillermo, es muy
interesante, pero no resolvì el problema, quizas loplatee mal

Quiero que en un form cuando lo llame este automaticamente
repordi¡uzca un viideo en pantalla completa
no debe tener la intervenciòn del usuario

la instruccion para lograr esto es con
thisfoorm.oleobjjet.fallscreen=.t.
pero si lo hago mediante condigo me da u error

espero haberme explicado correctamente lo q

Douglas Sánchez Guillén

unread,
Oct 24, 2011, 10:52:18 AM10/24/11
to publice...@googlegroups.com
Pero es lo mismo, fijate en las propiedades y el control que tiene el es el mismo con media Player.
o pasa el form para checarlo y te ayudo.... el control que estas utilizando esta registrado en windows???


Saludes.

Douglas
--
Ing. Douglas Sánchez Guillén
      Consultor Informatico

aarces

unread,
Oct 24, 2011, 11:07:48 AM10/24/11
to Comunidad de Visual Foxpro en Español
Aqui les dejo 2 ejemplos de lo que quiero que haga y de lo que hace,
asi como el error

El Archivo que dice video me da el error cuando lo ejecuto
directamente por codigo

El Archivo que dice reproductor es con la intervencion del usuario lo
cual quiero evitar


Video: http://dl.dropbox.com/u/46095316/Video.rar

Reproductor: http://dl.dropbox.com/u/46095316/Reproductor.rar


Saludos

elkin dario uribe torres

unread,
Oct 24, 2011, 12:23:32 PM10/24/11
to publice...@googlegroups.com
Buenos dias Alfonso

Mira que a tu ejemplo solo le adicione en el boton "Abrir" dos instrucciones y le quite unas cuantas y no presenta problemas, ademas lo maximiza fijate si eso era lo que buscabas.


Archivo=GETFILE("AVI, MP4, MP3, WAW, 3GP, 3G2, MPG. WMP, WMV, CDA","Archivo","Abrir",0,"Archivos Multimedia a Reproducir")

Thisform.wmp.URL=ALLTRIM(ARCHIVO)
THIS.LOSTFOCUS

=INKEY(.5,'H')
THISFORM.WMP.fullScreen= .T.

Saludos


Elkin Uribe
Medellin - Colombia

aarces

unread,
Oct 24, 2011, 5:59:26 PM10/24/11
to Comunidad de Visual Foxpro en Español
Elkin, muy buenas tardes, si a ti te funcionò significa que debe ser
el sistema operativo el que me da el error

por que no me funciona me sige enviando el mismo error

me gustari DE SER POSIBLE ENVIES : las caracterìsticas con la que te
funciona

Sistema Operativo, Service Pack, Versiòn del VFP, Service pack del
VFP, Versiòn del Windows Media Player para ver donde puede estar el
error

envio image del codigo de error

http://dl.dropbox.com/u/46095316/Error%20Pantala%20Completa.jpg

De antemano muchas gracias

Saludos desde Acapulco, Guerrero-Mèxico


elkin dario uribe torres

unread,
Oct 24, 2011, 6:32:09 PM10/24/11
to publice...@googlegroups.com
Pero si adicionaste las lineas que te coloque?


Saludos


Elkin Uribe
Medellin - Colombia

aarces

unread,
Oct 24, 2011, 6:41:44 PM10/24/11
to Comunidad de Visual Foxpro en Español
SI

aarces

unread,
Oct 24, 2011, 6:53:32 PM10/24/11
to Comunidad de Visual Foxpro en Español
Ya verifique cual es la problemática, si lo ejecuto en Windows XP si
se ejecuta en pantalla completa

quizas se deba a la versiòn del OCX de Windows Media Player, el
inconveniente es que ejecuta archivos
AVI, MP3 y WAV
los demàs tipos no lo puede abrir ni reproducir
muchas gracias a todos los que se molestaron en aportar sus
concimiento


Atentamente,

Alfonso Arce Sivestre
Acapulco. Guerrero- México

aarces

unread,
Oct 24, 2011, 9:15:18 PM10/24/11
to Comunidad de Visual Foxpro en Español
Para aquellos que deseen utlizar esta forma para reproducir videos les
agrego los enlaces ya con la correcciòn que envio elkin dario uribe
torres

Reproductor de Video Funciona Automaticamente en Windows XP , En
Windows 7 deberan de omitir la instruccion Thisform,WMP.FullScreen=.T.
del boton Abrir
En Windows XP si requieren ver video en formatos difertentes a AVI
instalar el K-Lite Codec Pack 7.8.0 Full por ejemplo para mp4 y leer
el archivo Instrucciones.txt

Reproductor de Video
http://dl.dropbox.com/u/46095316/Video.rar


K-Lite Codec Pack 7.8.0 Full
http://dl.dropbox.com/u/46095316/K-Lite_Codec_Pack_780_Full.exe

Saludos a Todos
Reply all
Reply to author
Forward
0 new messages