Народ, простейший пример:
Допустим у меня на форме есть MediaPlayer1 и Button1.
Как мне по щелчку на Button1 воспроизвести с винта звуковой файл?
Помогите!
Народ, простейший пример:
Допустим у меня на форме есть MediaPlayer1 и Button1.
Как мне по щелчку на Button1 воспроизвести с винта звуковой файл?
Помогите!
Название статьи в газете:
Запад оттянет конец российской демократии
Ну на сколько я понял, ты используешь ActiveX компонент.. Для него нужно смотреть интерфейс. Это на мсдн, там найдешь и описание и кучу примеров, надеюсь..
Примерно так.Код: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"; }
Последний раз редактировалось qwas; 10.02.2007 в 12:30. Причина: Добавлено сообщение
Еще такой возник вопрос.
Как этот самый звуковой файл проигрывать 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); } //---------------------------------------------------------------------------
Если с 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(); }
Led to other worlds
By the girls She curled within
I took their skins to see Her
Be my mannequin
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)