Como Cargar un Archivo de Audio

[Jusar]

Hola gente me podrian ayudar a ver como hago para poder cargar un archivo de audio extencion .mp3 para que mientras reprodusco el programa esta se ejecute hasta que se cierre...

[ecfisa]

Hola Jusar.

Podés utilizar el componente TMediaPlayer.

Por ejemplo:

...
#include<mplayer.hpp>
#define MP3_FILE "C:\\Users\\User\\Music\\Sound.mp3" /* ruta+nombre_archivo */

TMediaPlayer *mp = new TMediaPlayer(Form1);

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  mp->Parent = this;
  mp->Visible = false;
  mp->FileName = MP3_FILE;
  mp->AutoRewind = true;
  mp->AutoOpen = true;
  mp->OnNotify = MediaPlayerNotify;
  mp->Open();
  mp->Play();
}

void __fastcall TForm1::MediaPlayerNotify(TObject *Sender)
{
  if (mp->NotifyValue == nvSuccessful ){
   mp->Play();
   mp->Notify = true;
  }
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  mp->Close();
  delete mp;
}

También y más simple aún, pones el componente desde la paleta System y ajustas sus propiedades desde el Object Inspector.

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 MediaPlayer1->Open();
 MediaPlayer1->Play();
}

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
 if (MediaPlayer1->NotifyValue == nvSuccessful ){
   MediaPlayer1->Play();
   MediaPlayer1->Notify = true;
  }
}

Un saludo.

[[escafandra]]

Otra posibilidad usando API de Windows:

Si el sonido es un archivo wav:

PlaySound("C:\\WINDOWS\\ServicePackFiles\\i386\\xpstartu.wav", HInstance, SND_FILENAME);

Para cualquier archivo multimedia audio o vídeo:

Sound(String FileName)
{
  mciSendString("close media", NULL, 0, 0);
  mciSendString(("open \"" + FileName + "\" alias media").c_str(), NULL, 0, 0);
  mciSendString("play media", NULL, 0, 0);
}

Saludos.

[Jusar]

Gente no he podido hecharlo andar si me lo puideran explicar un poco se les agradeceria...

[[escafandra]]

Empezado por Jusar

Gente no he podido hecharlo andar si me lo puideran explicar un poco se les agradeceria...

¿Que es lo que no has podido echar a andar? ¿El ejemplo de ecfisa o los dos que puse yo?
Mejor expón tu duda o problema concreto y lo ponemos en marcha.


Saludos.