| SCAMPer |
 Отправлено: 02.07.2003, 16:35 |
|
Не зарегистрирован
|
Все, кто знает не поленитесь написать функции или программы
/библиотеки/ или адреса, где можно найти проигрывание музыки с сидюка.
Заранее спасибо... |
|
| Admin |
| Отправлено: 03.07.2003, 23:08 |
|
Владимир
Группа: Администратор
Сообщений: 1190
|
Не понял.
На вкладке System палитры компонентов есть
компонент MediaPlayer — через него и воспроизводите
Что-то типа
| CODE |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString fName;
if(OpenDialog1->Execute()){
fName = OpenDialog1->FileName;
if(MediaPlayer1->Mode == mpPlaying) MediaPlayer1->Stop();
if(MediaPlayer1->Mode == mpOpen) MediaPlayer1->Close();
MediaPlayer1->DeviceType = dtCDAudio;
MediaPlayer1->FileName = fName;
MediaPlayer1->Open();
MediaPlayer1->Play();
}
}
|
|
|
