Antonio Linares wrote:Jairo,
El meter puedes usarlo en una ventana 贸 di谩logo, indistintamente.
Como est谩s reproduciendo el archivo mp3 ?
Revisa samples\TestMetr.prg
Antonio Gracias por tu respuesta
Esta es la forma como lo reprodusco y lo hace muy bien le agrege dos botones para detener y para reanudar.
Gracias
# include "FiveWin.ch"
static oWnd
FUNCTION MAIN()
local oMeter,nActual,cMP3File,oTm
DEFINE WINDOW OWND TITLE "PLAYING MP3 FILE - EJECUTANDO UN MP3!" MENU CreaMenu();
color rgb(255,255,255),rgb(0,0,255)
@ 1,10 BUTTON "&Detener mp3 " of oWnd size 80,20 Action detener(oWnd)
@ 5,10 BUTTON "&Reanudar mp3" of oWnd size 80,20 Action reanudar(oWnd)
@ 1,25 BUTTON "&Abrir mp3 " of oWnd size 80,20 Action OpenMP3(oWnd)
@ 5,25 BUTTON "&Cerrar " of oWnd size 80,20 Action StopMP3(oWnd)
@ 14,15 meter oMeter VAR nActual TOTAL 100 of oWnd size 300,30
DEFINE TIMER oTm of oWnd ACTION oMeter:Set (nActual+1) INTERVAL 111500
* oMeter:Set( nActual++)
ACTIVATE WINDOW OWND VALID (StopMp3(oWnd),.T.)
RETURN nil
STATIC FUNCTION CreaMenu()
local oMenu
MENU oMenu
MENUITEM "Archivo"
MENU
MENUITEM "Abrir un MP3" ACTION OpenMP3()
MENUITEM"Cerrar el MP3 en curso" action StopMP3()
ENDMENU
ENDMENU
RETURN (oMenu)
STATIC FUNCTION OpenMP3()
local cMP3File := cGetFile32("*.mp3","Archivos MP3")
StopMP3(oWnd)
PlayMP3(oWnd,LFN2SFN(cMp3File),.t.)
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
*******************************************************************************
function reanudar(oWnd)
mciSendStr( "PLAY MP3 ",, oWnd:hWnd )
return nil
*******************************************************************************
FUNCTION detener(oWnd)
mciSendStr("STOP MP3 ",,oWnd:hWnd)
return nil
*******************************************************************************
