Reproducir MP3 en VFP

mapner

unread,

Jun 17, 2013, 4:59:30 PM6/17/13

to publice...@googlegroups.com

Amigos,

necesito reproducir un archivo mp3 en VFP, según las docs disponibles lo hago así:

PlayMP3('c:\miSonido.mp3')

Procedure PlayMP3

lparameters lcFileName

local wmp

wmp = CREATEOBJECT("WMPlayer.OCX.7")

wmp.uimode = 'none'

wmp.URL = m.lcFileName

wmp.OpenPlayer(m.lcFileName)

wmp = null

endproc

El tema en custión es la propiedad uimode donde le ponga lo que ponga siempre muestra la ventana maximizada del WMPlayer.

Se supone que al poner 'none' o 'mini' no sería así.

Alguien tiene alguna idea al respecto?

saludos

Alfonso Arce Silvestre

unread,

Jun 17, 2013, 5:11:36 PM6/17/13

to Comunidad de Visual Foxpro en Español

Video.rar

Te envio este archivo, que te reprosduce cualquier fomato soportado por WMP acorde a tu sistema operativo

Saludos

mapner

unread,

Jun 17, 2013, 5:55:09 PM6/17/13

to publice...@googlegroups.com

gracias por el archivo pero finalmente descubrí el problema.

con solo invocar la propiedad URL ya reproduce el mp3 sin necesidad de hacer wmp.OpenPlayer(m.lcFileName)

saludos

va la función corregida

PlayMP3('c:\miSonido.mp3')

Procedure PlayMP3

lparameters lcFileName

local wmp

wmp = CREATEOBJECT("WMPlayer.OCX.7")

wmp.uimode = 'none'

wmp.URL = m.lcFileName

**** wmp.OpenPlayer(m.lcFileName) && esto no va

wmp = null

endproc

Alfonso Arce Silvestre

unread,

Jun 17, 2013, 6:02:13 PM6/17/13

to Comunidad de Visual Foxpro en Español

Excelente

Jose Mario

unread,

Jul 5, 2013, 12:54:19 PM7/5/13

to publice...@googlegroups.com

WMPlayer.OCX.7

y esto se baja de internet

Reply all

Reply to author

Forward