VPF::Воспроизведение звука - Форум программистов

DragonFire

Дата 14.10.2005, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

Как воспроизвести звук с помощью OpenAL или другим способом, тока без стандартных компонентов Delphi!!! smile

--------------------

http://dragonfire.cimanu.ru/

Alexeis

Дата 14.10.2005, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Чем стандартные неустраивают smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

DragonFire

Дата 14.10.2005, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

Я от VSL полностью отказался. Формы через WinApi создаются и соответственно никаких стандартных компонентов быть не может...

--------------------

http://dragonfire.cimanu.ru/

Alexeis

Дата 14.10.2005, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

А звук записан Wav или необходимо синтезировать при помощи
звуковой карты smile

--------------------

DragonFire

Дата 14.10.2005, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

Либо в Wav, либо в MP3. Как лучше так и сделаю... Главное, объясни мне, как воспроизводить эти файлы... smile

--------------------

http://dragonfire.cimanu.ru/

s-mike

Дата 14.10.2005, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 5
Всего: 16

DirectSound, тут уже была не одна тема о нем.

--------------------

Преферанс для Android на базе исходников Марьяжа

DragonFire

Дата 14.10.2005, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

А про OpenAL есть что-нибудь?
Если нет, то можно ссылочку на DirectSound, плиз... smile

--------------------

http://dragonfire.cimanu.ru/

Snowy

Дата 14.10.2005, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

IMHO PlaySound. Куда проще и стандартней.
WAV с любой компрессией играет, был бы кодек установлен.

DragonFire

Дата 15.10.2005, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

А как использовать этот PlaySound? Ссылочку на статью или пример дай, или же напиши плиз...

--------------------

http://dragonfire.cimanu.ru/

Snowy

Дата 15.10.2005, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Да сколько угодно.
1. http://forum.vingrad.ru/index.php?act=Sear...hlite=playsound
2. Delphi->Help->WinAPI
Добавлено @ 10:47
3. http://forum.vingrad.ru/index.php?act=Sear...hlite=playsound

DragonFire

Дата 15.10.2005, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

Спасибо, будут вопросы, выложу тута...

--------------------

http://dragonfire.cimanu.ru/

DragonFire

Дата 15.10.2005, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

Посмотрел я темки и все же не понял, как воспроизвести с помощью PlaySound два звуковых файла одновременно??? Это нужно для создания фоновой музыки например.... smile

Это сообщение отредактировал(а) DragonFire - 15.10.2005, 12:05

--------------------

http://dragonfire.cimanu.ru/

Guest

Дата 19.10.2005, 17:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вроде как это делается установкой ключа SND_ASYNC.
Вроде этого:

Playsound ('sound1.wav',0,SND_ASYNC);
Playsound ('sound2.wav',0,SND_ASYNC);
то есть два звука несинхронизированно сыграют smile

может, если я ошибся, то SOUND_ASYNC smile

kindDevil

Дата 19.10.2005, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 110
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

это я (забывший войти) - см. выше smile

DragonFire

Дата 19.10.2005, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

А в том все и дело, что при команде Playsound ('sound2.wav',0,SND_ASYNC);
Sound1 затыкается и играет тока sound2. smile

А SOUND_ASYNC он вообще не знает...

З.Ы. Чтобы не забывать входить, выбери ДА при авторизации в пункте:
"Запомнить Вас?
Если включено, то при следующем посещении, Вы будете автоматически авторизованы.
Не рекомендовано, если компьютер является общественным."

Это сообщение отредактировал(а) DragonFire - 19.10.2005, 18:12

--------------------

http://dragonfire.cimanu.ru/

kindDevil

Дата 20.10.2005, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 110
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

ну не знаю, у меня попробовал - работает, правда с привязкой на разные события, но одновременно smile

а не вошел, потому что историю браузера очистил smile

)))

DragonFire

Дата 20.10.2005, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

А понятно, а я сделал другим способом:

Код


uses  
  MMSystem;  

procedure SendMCICommand(Cmd: string);  
var  
  RetVal: Integer;  
  ErrMsg: array[0..254] of char;  
begin  
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);  
  if RetVal <> 0 then  
  begin  
    {get message for returned value}  
    mciGetErrorString(RetVal, ErrMsg, 255);  
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);  
  end;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  SendMCICommand('open waveaudio shareable');  
  SendMCICommand('play "C:\xyz\BackgroundMusic.wav"');  
  SendMCICommand('play "C:\xyz\AnotherMusic.wav"');  
  SendMCICommand('close waveaudio');  
end;

--------------------

http://dragonfire.cimanu.ru/

ВасяТриллер

Дата 31.10.2005, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 2.9.2005

Репутация: нет
Всего: 1

Цитата

А звук записан Wav или необходимо синтезировать при помощи
звуковой карты smile

Не знаю, нужно ли создавать новую тему...
Весь форум облазил, но нигде не нашёл smile

: как вывести звук в собственном формате (возможно, перекодированный в оперативке в RAW-формат) на выход звуковой карты? Желательно варианты под WinXP и реализацию средствами WinAPI...

DragonFire

Дата 31.10.2005, 15:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: 1
Всего: 9

Не знаю, не знаю. С собственными форматами не работал...
Лучше создай новую темку....

--------------------

http://dragonfire.cimanu.ru/

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »