Page 1 of 1
Ejecutar un archivo .MP3
Posted: Tue Nov 03, 2009 2:59 pm
by karinha
Buenos dias maestros, por favor,
Como hago para ejecutar un archivo *.mp3
Muchas gracias,
Saludos.
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 1:08 am
by AIDA
Hola
yo tenia por ahi guardadito un programita en fivewin MP3 Player (ejecutar MP3 desde FW) lo buscare y te lo paso
Saluditos
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 12:28 pm
by karinha
Gracias, Aida.
Mi email:
kmt_karinha@pop.com.br
En el aguardo.
Saludos.
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 1:39 pm
by TecniSoftware
AIDA wrote:Hola
yo tenia por ahi guardadito un programita en fivewin MP3 Player (ejecutar MP3 desde FW) lo buscare y te lo paso
Saluditos
Aida:
Lo que tienes es usando MCISendStr ?
Me lo puedes pasar a mi tambien ?
alejandro6996@hotmail.com
Gracias!
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 4:32 pm
by armando.lagunas
hola yo uso esto:
LOCAL cMusic := ".\SYSTEM\MP3_ES2.MP3"
DEFINE WINDOW oWnd STYLE nOr( WS_POPUP, WS_VISIBLE ) COLOR "W+/N"
@ 10, 20 BITMAP oBmp RESOURCE 9 ON CLICK OpenMp3( oWnd ) ;
CURSOR oMan OF oWnd NOBORDER
....
....
ACTIVATE WINDOW oWnd MAXIMIZED ON INIT ;
PlayMP3(oDlg,LFN2SFN(cMusic),.F.) ;
VALID (StopMp3(oWnd),.T.)
//---------------------------------------------------------------------------------
STATIC FUNCTION OpenMp3( oWnd )
LOCAL cMP3File := cGetFile("Archivos de audio MP3 ( *.mp3 ) |*.mp3|" + ;
"Archivos MIDI ( *.mid ) |*.mid|" + ;
"Cualquier Archivo ( *.* ) |*.*", "Archivos de audio MP3","*.MP3",".\SYSTEM" )
StopMP3(oWnd)
PlayMP3(oWnd,LFN2SFN(cMp3File),.t.)
RETURN (.T.)
//--------------------------------------------------------------------------------
FUNCTION PlayMP3( oWnd, cFile, lLoop )
DEFAULT lLoop := .F.
if cFile != NIL
mciSendStr( "OPEN " + cFile + " TYPE MPEGVIDEO ALIAS MP3",, oWnd:hWnd )
mciSendStr( "PLAY MP3 " + iif( lLoop, "REPEAT" , "" ),, oWnd:hWnd )
endif
RETURN NIL
//----------------------------------------------------------------------
FUNCTION StopMP3( oWnd )
mciSendStr("STOP MP3 ",,OWND:hWnd)
mciSendStr("CLOSE MP3 ",,OWND:hWnd)
RETURN NIL
//----------------------------------------------------------------------
Espero que les sirva.
saludos desde Chile.
Re: Ejecutar un archivo .MP3
Posted: Sat Nov 07, 2009 10:10 pm
by AIDA
Hola
ya mande a tu correo el archivito
sorry si me tarde
Saluditos
Re: Ejecutar un archivo .MP3
Posted: Sat Nov 07, 2009 10:52 pm
by dobfivewin
me sumo al pedido
davidbarrio_arg@hotmail.com
CHAS GRACIAS
David
Argentina
Re: Ejecutar un archivo .MP3
Posted: Mon Nov 09, 2009 11:17 am
by karinha
Aida, gracias por la ayuda.
Voy probar y te comento.
Muchas gracias.
Saludos.
Re: Ejecutar un archivo .MP3
Posted: Tue Nov 10, 2009 4:49 pm
by fespinoza
Aida
disculpa el pedido un poco tardío; pero podrías también enviar el programa a mi correo:
nanoespinoza@hotmail.com
Saludos desde Ecuador
Fernando Espinoza
Re: Ejecutar un archivo .MP3
Posted: Tue Nov 10, 2009 5:17 pm
by karinha
Fernando,
simplesmente perfecto.
Mui bueno y sencillo.
Saludos
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 11, 2009 4:56 pm
by Armando Picon
AIDA... ¿y porque no pedir a Antonio para que subas esa aplicación a la carpeta de UTILITARIOS? Te evitaría estar respondiendo vía emails a los que lo necesitan, ¡digo!
Re: Ejecutar un archivo .MP3
Posted: Tue Jun 08, 2010 12:02 am
by AIDA
Hola Armando lagunas
Gracias por la rutinita
ya puedo apagar el mp3
Saluditos
Re: Ejecutar un archivo .MP3
Posted: Thu Jun 10, 2010 4:07 pm
by jose_murugosa
Bueno, para calmar los ánimos, adjunto una rutina totalmente operativa, que no es mía, como se ve en el codigo.
Dado que esta rutina fué dada libremente y de hecho creo que en este mismo foro, la publico.
Gracias a Darío Hernán Irigaray
Code: Select all
/*
* MP3.PRG
*
* Realizado por Darío Hernán Irigaray
* Agosto 2002
*
*/
# include "FiveWin.ch"
static oWnd
FUNCTION MAIN()
DEFINE WINDOW OWND TITLE "PLAYING MP3 FILE - EJECUTANDO UN MP3!" MENU CreaMenu()
ACTIVATE WINDOW OWND VALID (StopMp3(oWnd),.T.)
RETURN
STATIC FUNCTION CreaMenu()
local oMenu
MENU oMenu
MENUITEM "Archivo"
MENU
MENUITEM "Abrir un MP3" ACTION OpenMP3()
ENDMENU
ENDMENU
RETURN (oMenu)
STATIC FUNCTION OpenMP3()
local cMP3File := cGetFile32("*.mp3","Archivos MP3")
StopMP3(oWnd)
PlayMP3(oWnd,LFN2SFN(cMp3File),.t.)
//@ 4,1 SAY "Reproduciendo: "+cFileName(cMp3File) OF oWnd SIZE 100,20
RETURN (.T.)
/*
* Con esta función podrán ejecutar archivos MP3!
* With this function you can play MP3 files !
*/
FUNCTION PlayMP3( oWnd, cFile, lLoop )
DEFAULT lLoop := .F.
if cFile != NIL
mciSendStr( "OPEN " + cFile + " TYPE MPEGVIDEO ALIAS MP3",, oWnd:hWnd )
mciSendStr( "PLAY MP3 " + iif( lLoop, "REPEAT" , "" ),, oWnd:hWnd )
endif
RETURN NIL
/*
* Con esta función podran detener el MP3!
* With this function you can stop the MP3!
*/
FUNCTION StopMP3( oWnd )
mciSendStr("STOP MP3 ",,OWND:hWnd)
mciSendStr("CLOSE MP3 ",,OWND:hWnd)
RETURN NIL
Espero sea de utilidad