Meter com mp3

Post Reply
jaba
Posts: 109
Joined: Tue Dec 12, 2006 12:39 am
Location: CALI COLOMBIA

Meter com mp3

Post by jaba »

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 :cry: :cry:
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Jairo,

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

Como estás reproduciendo el archivo mp3 ?

Revisa samples\TestMetr.prg
regards, saludos

Antonio Linares
www.fivetechsoft.com
jaba
Posts: 109
Joined: Tue Dec 12, 2006 12:39 am
Location: CALI COLOMBIA

Post by jaba »

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
*******************************************************************************
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

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

Antonio Linares
www.fivetechsoft.com
jaba
Posts: 109
Joined: Tue Dec 12, 2006 12:39 am
Location: CALI COLOMBIA

Post by jaba »

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 :roll:

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

Cordialmente

Jairo Barbosa
Post Reply