FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ejecutar un archivo .MP3
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Ejecutar un archivo .MP3
Posted: Tue Nov 03, 2009 02:59 PM

Buenos dias maestros, por favor,

Como hago para ejecutar un archivo *.mp3

Muchas gracias,

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 01:08 AM

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ǝ
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 12:28 PM

Gracias, Aida.

Mi email: kmt_karinha@pop.com.br

En el aguardo.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
TecniSoftware
Posts: 244
Joined: Fri Oct 28, 2005 06:29 PM
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 01:39 PM
AIDA wrote: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!
Alejandro Cebolido

Buenos Aires, Argentina
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 04, 2009 04:32 PM

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.

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Ejecutar un archivo .MP3
Posted: Sat Nov 07, 2009 10:10 PM

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
Re: Ejecutar un archivo .MP3
Posted: Sat Nov 07, 2009 10:52 PM

me sumo al pedido

davidbarrio_arg@hotmail.com

CHAS GRACIAS

David
Argentina

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ejecutar un archivo .MP3
Posted: Mon Nov 09, 2009 11:17 AM

Aida, gracias por la ayuda.

Voy probar y te comento.

Muchas gracias.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
fespinoza
Posts: 188
Joined: Wed Feb 01, 2006 06:59 PM
Re: Ejecutar un archivo .MP3
Posted: Tue Nov 10, 2009 04:49 PM

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

Saludos



Fernando Espinoza
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ejecutar un archivo .MP3
Posted: Tue Nov 10, 2009 05:17 PM

Fernando,

simplesmente perfecto.

Mui bueno y sencillo.

Saludos

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Armando Picon
Posts: 446
Joined: Mon Dec 26, 2005 09:11 PM
Re: Ejecutar un archivo .MP3
Posted: Wed Nov 11, 2009 04:56 PM

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
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Ejecutar un archivo .MP3
Posted: Tue Jun 08, 2010 12:02 AM

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ǝ
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Ejecutar un archivo .MP3
Posted: Thu Jun 10, 2010 04:07 PM
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 (fw): Select all Collapse
/*
 *  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 :-)
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

Continue the discussion

Static archive · New replies & topics via GitHub Discussions