Ayuda en Media player en Visual Foxpro

[jaime paredes]

Amigos tengo este ejemplo que descargue, pero como hago para que los video sean continuos osea que no sea necesario que el usuario seleccione el video, o poner una linea de videos que deseo visualizar, ayudenme please...

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

Atte.

Jaime

[Alfonso Arce Silvestre]

Tienes que crear una tabla con los nombre de los videos y porner autoplay()

[Alfonso Arce Silvestre]

En este ejemplo de otro compañero se explica como funciona:  https://mail.google.com/mail/u/1/?shva=1#search/media+player/138e2e9c09761458

[jaime paredes]

en donde le pongo autoplay()

El 25 de octubre de 2012 08:27, Alfonso Arce Silvestre <alfonsoarc...@gmail.com> escribió:

Tienes que crear una tabla con los nombre de los videos y porner autoplay()

--
 
 
 

[jaime paredes]

como se hago... denme una idea amigos...

[Alfonso Arce Silvestre]

Debes de analizar, el ejemplo de Edgar Acevedo, si lo que quieres en automiatixzar los videos sin necesidad de que el usuario seleccione cuales videos quiere ver

[jaime paredes]

ya pues amigos como puedo automatizar el Media player en vfp para que automaticamente cuando termine el video corra otro.

 

gracias.

El 25 de octubre de 2012 09:07, Alfonso Arce Silvestre <alfonsoarc...@gmail.com> escribió:

Debes de analizar, el ejemplo de Edgar Acevedo, si lo que quieres en automiatixzar los videos sin necesidad de que el usuario seleccione cuales videos quiere ver

--
 
 
 

[jaime paredes]

Encontre algo muy interezante para lo que estaba buscando miren:

 

publi oform
oform=createObject("ywmp")
oform.show
read events
return

DEFINE CLASS ywmp AS form
 Top = 53
 Left = 164
 Height = 430
 Width = 460
 ShowWINDOW=2
 DoCreate = .T.
 ShowTips = .T.
 Caption = "Windows mediaplayer"
 Name = "form1"

 ADD OBJECT wmp AS olecontrol WITH ;
     oleclass="WMPlayer.OCX.7", ;
  Top = 30, ;
  Left = 2, ;
  Height = 406, ;
  Width = 457, ;
  enableContextmenu=.f.,;
  StretchtoFit=.t.,;
  visible=.f., ;
  Name = "wmp"
  
 ADD OBJECT combo1 AS combobox WITH ;
  Height = 24, ;
  Left = 348, ;
  ToolTipText = "Some links (video,tv,musique..)", ;
  Top = 1, ;
  Width = 100, ;
  Name = "Combo1"

 ADD OBJECT text1 AS textbox WITH ;
  Height = 25, ;
  Left = 36, ;
  ToolTipText = "Type an UrL OR DISC FILE", ;
  Top = 2, ;
  Width = 216, ;
  Name = "Text1"

 ADD OBJECT command1 AS commandbutton WITH ;
  Top = 2, ;
  Left = 254, ;
  Height = 24, ;
  Width = 24, ;
  FontBold = .T., ;
  Caption = ">", ;
  ToolTipText = "Play/Pause", ;
  Name = "Command1"

 ADD OBJECT command2 AS commandbutton WITH ;
  Top = 1, ;
  Left = 7, ;
  Height = 25, ;
  Width = 25, ;
  Caption = "...", ;
  ToolTipText = "Open a disc file ", ;
  Name = "Command2"

 ADD OBJECT command3 AS commandbutton WITH ;
  Top = 2, ;
  Left = 279, ;
  Height = 24, ;
  Width = 34, ;
  FontBold = .T., ;
  FontSize = 8, ;
  Caption = "Stop", ;
  ToolTipText = "Stop", ;
  Name = "Command3"

 ADD OBJECT command4 AS commandbutton WITH ;
  Top = 3, ;
  Left = 321, ;
  Height = 24, ;
  Width = 24, ;
  FontBold = .T., ;
  Caption = "Fs", ;
  ToolTipText = "Fullscreen ", ;
  Name = "Command4"
  
   ADD OBJECT timer1 AS timer WITH ;
   interval=200,;
   name="timer1"
 
 PROCEDURE Load
  _screen.windowstate=1
 ENDPROC

 
    PROCEDURE TIMER1.TIMER
    with thisform.wmp
  .settings.autoStart = .f.
  .settings.volume=80
  .settings.setMode("Loop",.f.)  && no loop
  .uimode="none"         &&full,...
*  .anchor=15
  .visible=.t.
 endwith
  thisform.resize()
  this.enabled=.f.
    ENDPROC
   
 PROCEDURE Resize
  try
  with this.wmp
  .left=1
  .top=.parent.text1.top+.parent.text1.height+5
  .width=.parent.width-2
  .height=.parent.height-.parent.text1.top -.parent.text1.height-5
  endwith  
  catch
  endtry  
 ENDPROC

 PROCEDURE wmp.STATUSCHANGE
  try
  thisform.resize()
  catch
  endtry
 ENDPROC

 PROCEDURE combo1.Click
  thisform.text1.value=this.value
  thisform.command1.caption=">"
  thisform.command1.click
 ENDPROC

 PROCEDURE combo1.Init
        this.additem("f:\video\video1.wmv")
        this.additem("f:\video\video2.avi")
  this.listindex=1
 ENDPROC

 PROCEDURE command1.Click
  with thisform.wmp
  .url=thisform.text1.value
  do case
  case this.caption=">"
  this.caption="II"
  .controls.play()
  case this.caption="II"
  this.caption=">"
  .controls.pause()
  endcase
  .parent.resize()
  endwith
 ENDPROC

 PROCEDURE command2.Click
  thisform.text1.value=getfile()
 ENDPROC

 PROCEDURE command3.Click
  with thisform.wmp
  .controls.stop
  .parent.command1.caption=">"
  .parent.resize()
  endwith
 ENDPROC

 PROCEDURE command4.Click
  with thisform.wmp
  try
  if thisform.wmp.playstate=3  &&video playing
  wait window ("Fullscreen is accessible if the video is already loaded.Press ESC to go back") at srows()/2,scols()/2 timeout 1
  .fullscreen=.t.
  endi
  catch
  endtry
  endwith
 ENDPROC
    
     PROCEDURE DESTROY
     clea events
     ENDPROC

ENDDEFINE

GRacias ..............