Controlar MPLAYER con VFP

[Carlos Morales]

Hola amigos!!!
Ojalá que alguien me pueda ayudar con la lista completa de los propiedades y métodos con los que se pueda aprovechar y automatizar MPLAYER utilizando VFP.
Gracias su amable ayuda!!!

[HernanCano]

Mundo Visual FoxPro ›

Como saber que funciones viene en el DLL y como utlizarlo en VFP

varon

26 de ene.

Hola Dony, que te parece esto?

http://www.alternate-tools.com/pages/c_dllanalyzer.php?lang=ENG&nav_option=111111111

[Carlos Morales]

MPLAYER es una aplicación, no un DLL. Cómo puedo saber cuales son las funciones internas con las que cuenta???

[Jean Pierre Adonis De La Cruz Garcia]

Para que no te rompas mucho el coco, te dejo una automatizacion Media Player con VFP.

Grabalo en un PRG y ejecutalo, nos das tu experiencia luego.

*************

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 - ContaMAX"
 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 = "Tipee una URL o Archivo", ;
  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 = "Abrir archivo desde el Disco ", ;
  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("c:\video\audio01.mp3")
        this.additem("c:\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

[Carlos Morales]

Muy agradecido por tu ayuda... Lo voy a probar a ver si encuentro lo que quiero. Es que no puedo hacer que reproduzca mi MP3 por que algo le falta a mi programa. Les cuento luego!!! Thanks!!!!!

[Jean Pierre Adonis De La Cruz Garcia]

Hace años desarrolle un sistema, que convertia el Texto en Audio y lo reproducia, me has hecho recordar viejos tiempos.

[Carlos Morales]

Lo he probado. Y funciona pero Solo quiero que se reproduzca una sola canción MP3 que yo selecciono y que no aparezca el WMPlayer. Pero no funciona. Uso el comando: WMP.uiMode = "NONE" para que no se visualice el reproductor, pero nada!!! 

Help me!!!

El martes, 7 de febrero de 2017, 13:07:10 (UTC-5), Carlos Morales escribió:

[Jean Pierre Adonis De La Cruz Garcia]

Bueno, mi estimado, es ahora donde debes de demostrar tus dotes de programador, e ir investigando, solo deberas ir prbando y cambiando algunos comandos nada mas, y al final tendras el resultado que deseas.

O lo mejor solo agregar un objeto Olecontrol, y agregas el OCX mci32.ocx y vas probando con las propieddes que necesitas y solucionas tu problema, al menos ya tienes la idea, no es tan dificl pero si debes meterle la mano y hacer lo que deseas, suerte mi estimado.