FiveTech Software tech support forums

Antonio

Saludo cordial

Dos cosas

En un ejercicio en donde se corre un mp3 como le puedo colocar un meter para mostrar el avance de la ejecución del mp3?
El meter se puede colocar indistintamente en una ventana mdi y en un Dialogo?
Antonio

Saludo cordial

Dos cosas

En un ejercicio en donde se corre un mp3 como le puedo colocar un meter para mostrar el avance de la ejecución del mp3?
El meter se puede colocar indistintamente en una ventana mdi y en un Dialogo?

Gracias Antonio
Cordialmente

Jairo Barbosa

Gracias Antonio
Cordialmente

Jairo Barbosa

Jairo,

El meter puedes usarlo en una ventana ó diálogo, indistintamente.

Como estás reproduciendo el archivo mp3 ?

Revisa samples\TestMetr.prg

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
*******************************************************************************

Posiblemente el TOTAL ... del meter tengas que establecerlo en función del tamaño del fichero mp3

Antonio Linares wrote:Posiblemente el TOTAL ... del meter tengas que establecerlo en función del tamaño del fichero mp3

Gracias Antonio

Eso pense que en base al tamaño del fichero por eso la pregunta de como conseguia el peso o tamaño, ya lo entendi estare trabajando en eso

Quiero expresar mis agradecimientos por cada cosa que aprendo

Antonio.... Dios bendiga el camino que recorren tus pies

Cordialmente

Jairo Barbosa