IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Как запустить воспроизведение звука
klem4
сообщение 15.08.2005 10:44
Сообщение #1


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Не используя панель кнопок TMediaPlayer ? То есть панель не должны быть видна на форме, а воспроизведение надо начать например после нажатия Button1.

спасибо.

пробовал вот так :

MediaPlayer1.FileName:='c:\ping';
MediaPlayer1.Open;
MediaPlayer1.Play;


но это ерунда какая-то.

Сообщение отредактировано: klem4 - 15.08.2005 10:50


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 15.08.2005 11:05
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Примерно так:
sndPlaySound(pchar(filename), SND_ASYNC);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 15.08.2005 11:19
Сообщение #3


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Что-то не выходит sad.gif Что это за метод такой ? Это компонент TMediaPlayer или нет ? Если не трудно, покажи на примере как это должно выглядеть.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 15.08.2005 11:25
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Забыл сказать, uses mmsystem добавь. :yes:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 15.08.2005 11:35
Сообщение #5


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Да, теперь компилируется smile.gif))) Но результата нет. На сколько я понял эта штука не связана с TMediaPlayer.

вот в данном случае что может быть не привильно:

procedure TForm1.Button2Click(Sender: TObject);
begin
sndPlaySound('c:\ping.wmf', SND_ASYNC);
end;



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 15.08.2005 11:44
Сообщение #6


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Может так?
sndPlaySound(PChar('c:\ping.wmf'), SND_ASYNC);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 15.08.2005 11:46
Сообщение #7


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Неа ... не помогло sad.gif(


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 15.08.2005 11:52
Сообщение #8


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Цитата(klem4 @ 15.08.05 11:46)
Неа ... не помогло sad.gif(


Тогда может wmf не нравится ? Попробуй в WAV перевести, я только что проверил, все ок.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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 smile.gif Выгода от такого формата в последнем случае стремится к нулю слева, т. к. RIFF-аттрибутика только занимает место, а большинство плееров прекрасно пропускают её мимо ушей пользователя (mpg123 не стесняясь называет её мусором!) smile.gif


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 29.03.2024 16:12
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"