Ejecutar un archivo .MP3

Post Reply
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Ejecutar un archivo .MP3

Post by karinha »

Buenos dias maestros, por favor,

Como hago para ejecutar un archivo *.mp3


Muchas gracias,

Saludos.
João Santos - São Paulo - Brasil
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: Ejecutar un archivo .MP3

Post by AIDA »

Hola :D

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


Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ejecutar un archivo .MP3

Post by karinha »

Gracias, Aida.

Mi email: kmt_karinha@pop.com.br

En el aguardo.

Saludos.
João Santos - São Paulo - Brasil
User avatar
TecniSoftware
Posts: 213
Joined: Fri Oct 28, 2005 6:29 pm
Location: Quilmes, Buenos Aires, Argentina

Re: Ejecutar un archivo .MP3

Post by TecniSoftware »

AIDA wrote:Hola :D

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

Saluditos :wink:
Aida:

Lo que tienes es usando MCISendStr ?

Me lo puedes pasar a mi tambien ?
alejandro6996@hotmail.com

Gracias!
Alejandro Cebolido
Buenos Aires, Argentina
User avatar
armando.lagunas
Posts: 340
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile
Contact:

Re: Ejecutar un archivo .MP3

Post 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.
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: Ejecutar un archivo .MP3

Post by AIDA »

Hola

ya mande a tu correo el archivito :D

sorry si me tarde :oops:

Saluditos
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Re: Ejecutar un archivo .MP3

Post by dobfivewin »

me sumo al pedido

davidbarrio_arg@hotmail.com

CHAS GRACIAS

David
Argentina
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ejecutar un archivo .MP3

Post by karinha »

Aida, gracias por la ayuda.

Voy probar y te comento.

Muchas gracias.

Saludos.
João Santos - São Paulo - Brasil
User avatar
fespinoza
Posts: 188
Joined: Wed Feb 01, 2006 6:59 pm
Location: Ecuador

Re: Ejecutar un archivo .MP3

Post 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
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ejecutar un archivo .MP3

Post by karinha »

Fernando,

simplesmente perfecto.

Mui bueno y sencillo.


Saludos
João Santos - São Paulo - Brasil
User avatar
Armando Picon
Posts: 448
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Re: Ejecutar un archivo .MP3

Post 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!
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: Ejecutar un archivo .MP3

Post by AIDA »

Hola Armando lagunas

Gracias por la rutinita :D

ya puedo apagar el mp3 :mrgreen:


Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Re: Ejecutar un archivo .MP3

Post 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 :D
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
Post Reply