Как наложить программно один wav файл на другой?
То есть эти два файла должны играть одновременно и притом должны быть одним файлом.
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 в один без потери звуковых данных?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17