Как запустить воспроизведение звука |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Как запустить воспроизведение звука |
klem4 |
15.08.2005 10:44
Сообщение
#1
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Не используя панель кнопок TMediaPlayer ? То есть панель не должны быть видна на форме, а воспроизведение надо начать например после нажатия Button1.
спасибо. пробовал вот так : MediaPlayer1.FileName:='c:\ping'; но это ерунда какая-то. Сообщение отредактировано: klem4 - 15.08.2005 10:50 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Malice |
15.08.2005 11:05
Сообщение
#2
|
Профи Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: 20 |
Примерно так:
sndPlaySound(pchar(filename), SND_ASYNC); |
klem4 |
15.08.2005 11:19
Сообщение
#3
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Что-то не выходит Что это за метод такой ? Это компонент TMediaPlayer или нет ? Если не трудно, покажи на примере как это должно выглядеть.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Malice |
15.08.2005 11:25
Сообщение
#4
|
Профи Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: 20 |
Забыл сказать, uses mmsystem добавь. :yes:
|
klem4 |
15.08.2005 11:35
Сообщение
#5
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Да, теперь компилируется ))) Но результата нет. На сколько я понял эта штука не связана с TMediaPlayer.
вот в данном случае что может быть не привильно: procedure TForm1.Button2Click(Sender: TObject); -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Malice |
15.08.2005 11:44
Сообщение
#6
|
Профи Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: 20 |
Может так?
sndPlaySound(PChar('c:\ping.wmf'), SND_ASYNC); |
klem4 |
15.08.2005 11:46
Сообщение
#7
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Неа ... не помогло (
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Malice |
15.08.2005 11:52
Сообщение
#8
|
Профи Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: 20 |
Цитата(klem4 @ 15.08.05 11:46) Неа ... не помогло ( Тогда может wmf не нравится ? Попробуй в WAV перевести, я только что проверил, все ок. |
klem4 |
15.08.2005 12:00
Сообщение
#9
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Спасибо, тот файл вообще был mp3, сейчас попробовал файл wav, все ок.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
xds |
16.08.2005 2:31
Сообщение
#10
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Такми способом можно воспроизводить и поток MP3, упакованный внутрь RIFF WAVE. Отличается он от "чистого" MP3-потока наличием в начале RIFF-заголовка (RIFF-типа "WAVE"), секции "fmt", описывающей формат WAV-файла, и секции "data", содержащей сами сжатые аудио-данные. Т. о., получается WAV, сжатый алгоритмом MP3. Такие файлы умеют создавать многие конверторы WAV в MP3. Забавно, но зачастую множествно MP3 WAV'ов можно обнаружить в своей аудио-коллекции, причём, как правило, с расширением MP3 Выгода от такого формата в последнем случае стремится к нулю слева, т. к. RIFF-аттрибутика только занимает место, а большинство плееров прекрасно пропускают её мимо ушей пользователя (mpg123 не стесняясь называет её мусором!)
-------------------- The idiots are winning.
|
Текстовая версия | 29.03.2024 16:12 |