Как наложить программно один wav файл на другой?

[-=alp=-]

Как наложить программно один wav файл на другой?
То есть эти два файла должны играть одновременно и притом должны быть одним файлом.

[Ilya Vasilyev]

Сам-то понял, что спросил?
Если надо играть одновременно 2 (или более) треков - юзай два (или скока нада) мультимеда-контролов...

[alibek]

1. Микшируешь их и воспроизводишь результат.
2. Воспроизводи через DirectX.

[Шурик]

Зачем через DirectX......Можно и так:

Код: Выделить всё

Option Explicit

' Функции и константы для проигрывания звуков. Декларации.
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Declare Function sndStopSound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszNull As Long, ByVal uFlags As Long) As Long

' Звук воспроизводится синхронно, и функция не возвращает _
управления до окончания его проигрывания SND_SYNC = &H0

' Звук воспроизводится асинхронно, функция возвращает управление _
сразу после начала воспроизведения SND_ASYNC = &H1

' Для прекращения воспроизведения необходимо вызвать sndPlaySound() _
c NULL  в качестве аргумента-имени файла

' Если указанный файл отсутствует, функция неделает ничего SND_NODEFAULT = &H2

' Параметр SoundName указывает на звук, образ которого уже _
находится в оперативной памяти SND_MEMORY = &H4

' Воспроизведение звука повторяется до тех пор, пока не будет _
вызвана функция sndPlaySound() c NULL  в качестве  SND_LOOP = &H8

' параметра IpszSoundName. Для работы этого флага необходимо _
установить также флаг SND_ASYNC.

' Если звук уже воспроизводится, функция не прерывает его _
воспроизведение, а немедленно возвращает FALSE SND_NOSTOP = &H10

Private Sub Command1_Click()
    Dim retcode1 As Integer
    Dim retcode2 As Integer
    retcode1 = sndPlaySound("....путь к файлу\1.wav", &H0)
    retcode2 = sndPlaySound("....путь к файлу\2.wav", &H0)
End Sub


[hCORe]

Пользуясь случаем, повторяю свой очень старый вопрос: как слить несколько файлов .wav в один без потери звуковых данных?

[Шурик]

А как нужно:
1. Чтобы они паралельно играли?
2. Один после другого?

[alibek]

Пользуясь случаем, повторяю свой очень старый вопрос: как слить несколько файлов .wav в один без потери звуковых данных?

Что значит "слить"?
Если микшировать, то как тогда понять "без потери звуковых данных"?
Если ты их смикшируешь, то потом разъединить не сможешь.

А если имеешь ввиду, создать многоканальный WAV, так можно, в спецификации формата для количества каналов используется Integer, т.е. их можно наделать сколько душа желает. Только не факт, что какая-нибудь другая программа, кроме твоей, сможет его потом воспроизвести.

[hCORe]

Нужно соединить звуковые потоки из нескольких WAV'ов в одном файле

[-=alp=-]

надо чтобы эти файлы сталь одним файлом

[hCORe]

Ага, именно! Только как это реализовать

[Mikle]

Если это обычный PCM-WAV, и форматы ОБОИХ файлов одинаковы, то нет проблем. Первые 44 байта (если не ошибаюсь) - заголовок. Там есть размер данных. Берем не все, что после заголовка, а именно по размеру потому, что после данных бывает еще другая информация (редко). Копируем заголовок с одного из файлов, дальше его данные, дальше данные второго файла. В заголовке меняем размер на новый (сумма двух старых).

[hCORe]

Посмотри здесь, я уже писал об этом:
http://bbs.vbstreets.ru/viewtopic.php?t=4848&highlight=wav.
Как доработать эту функцию?
Проблема уже решена, но мне просто интересно

[Scythian]

Очень просто - я так понял тебе нужно смикшировать два файла, и результат слить в один? Тогда тебе нужно просто сложить (+)амплитуды, соответствующие одному моменту времени (и нормализовать - хотя бы разделить пополам, чтобы не вылезти за границы разрядной сетки). Этого достаточно для PCM *.wav. Почитай еще про его формат