Звук в С++

[BJay]

Народ, простейший пример:
Допустим у меня на форме есть MediaPlayer1 и Button1.
Как мне по щелчку на Button1 воспроизвести с винта звуковой файл?
Помогите!

[wertyman]

Ну на сколько я понял, ты используешь ActiveX компонент.. Для него нужно смотреть интерфейс. Это на мсдн, там найдешь и описание и кучу примеров, надеюсь..

[qwas]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
MediaPlayer1->Close();
MediaPlayer1->FileName = ExtractFilePath(Application->ExeName)+"file.wav";
MediaPlayer1->Open();
MediaPlayer1->Play(); 
}

Примерно так.

Добавлено через 15 минут
Можно ещё так.

void __fastcall TForm2::Button1Click(TObject *Sender)
{
OpenDialog1->Execute();
MediaPlayer1->Close();
MediaPlayer1->FileName = OpenDialog1->FileName;
MediaPlayer1->Open();
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
OpenDialog1->Filter = "mp3|*.mp3|wav|*.wav|wma|*.wma";
}

[BJay]

Еще такой возник вопрос.
Как этот самый звуковой файл проигрывать n-ое количество раз независимо от других действий? (Форма появилась - звук проигрывается по кругу, пока не выдешь из проги)

[qwas]

Еще такой возник вопрос.
Как этот самый звуковой файл проигрывать n-ое количество раз независимо от других действий? (Форма появилась - звук проигрывается по кругу, пока не выдешь из проги)

Вот так он будет играть по кругу без MediaPlayer'а.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "mmsystem.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

DWORD fdwSound = SND_ASYNC | SND_FILENAME;
PlaySound("C:\\Sound\Applause.wav",NULL, fdwSound + SND_LOOP);
}
//---------------------------------------------------------------------------

[Godahh]

Еще такой возник вопрос.
Как этот самый звуковой файл проигрывать n-ое количество раз независимо от других действий? (Форма появилась - звук проигрывается по кругу, пока не выдешь из проги)

Если с MediaPlayer'ом то можно просто обработать событие MediaPlayer'а OnNotify:

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
    MediaPlayer1->Position = 0;
    MediaPlayer1->Play();
}
//------------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    MediaPlayer1->Close();
    MediaPlayer1->FileName = ExtractFilePath(Application->ExeName)+"sound.wav";
    MediaPlayer1->Open();
    MediaPlayer1->Play(); 
}