Воспроизведение музыки в Delphi
среда, 3 сентября 2014 05:01:32, написал Admin
Иногда после длительного процесса надо как-то уведомить пользователя, что процесс завершился. Например, проиграть какую-то мелодию. Как это сделать с минимум усилий, не устанавливая полноценный проигрыватель?
В Delphi есть Beep (звук системного динамика), но его конечно мало, да и звучит не важно (каждый раз вздрагиваю).
Поэтому будем использовать API функцию PlaySound.
Подключаем в раздел uses библиотеку mmsystem.
Вызываем асинхронное (чтобы программа не блокировалась) воспроизведение музыки:
PlaySound(PChar('music.wav'),0,SND_FILENAME+SND_ASYNC );
Проблема этой функции – что она может воспроизвести только wav. Говорят, что для прямого воспроизведения mp3 надо использовать библиотеку bass. Но мне было влом её подключать (вот если бы допустим нужно было сделать плеер – то да, но тогда уж проще воспользоваться компонентом). Решил просто переконвертировать mp3 в wav… Скачал AudioEdit Deluxe, открыл файл music.mp3 и сохранил его как 'music.wav'. Особенность – в настройках при сохранении надо указать режим Моно. Если сохранить как Стерео – то Delphi не может воспроизвести файл….
Delphi Delphi