Ejecutar un archivo .MP3

[karinha]

Buenos dias maestros, por favor,

Como hago para ejecutar un archivo *.mp3


Muchas gracias,

Saludos.

[AIDA]

Hola

yo tenia por ahi guardadito un programita en fivewin MP3 Player (ejecutar MP3 desde FW) lo buscare y te lo paso


Saluditos

[karinha]

Gracias, Aida.

Mi email: kmt_karinha@pop.com.br

En el aguardo.

Saludos.

[TecniSoftware]

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!

[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.

[AIDA]

Hola

ya mande a tu correo el archivito

sorry si me tarde

Saluditos

[dobfivewin]

me sumo al pedido

davidbarrio_arg@hotmail.com

CHAS GRACIAS

David
Argentina

[karinha]

Aida, gracias por la ayuda.

Voy probar y te comento.

Muchas gracias.

Saludos.

[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

[karinha]

Fernando,

simplesmente perfecto.

Mui bueno y sencillo.


Saludos

[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!

[AIDA]

Hola Armando lagunas

Gracias por la rutinita

ya puedo apagar el mp3


Saluditos

[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  Expand view

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