Громкость аудиопотокa

[Gotha]

Доброе время суток, коллеги!

Столкнулся с проблемой: читаю AVI файл с помощью ф-ций avifil32.dll, получаю звуковой поток, вывожу его с помощью waveOutWrite (winmm.dll).
Трабла в том, что звук можно изменить только с помощью waveOutSetVolume, но при этом меняется общая громкость.
Как изменить громкость именно этого потока (буфера звука)?

з.ы.

1. создавал такую же тему на другом форуме, там пока не решили ситуацию, может тут кто сможет?
2. к посту прилепил аттач с моим примером, чтобы понятно было что и куда

[Gotha]

Хех! Сейчас ещё один топик будет забит хренью.
Amed, закрывай!

не закрывайте пожалуйста топик!
directsound не поможет, он играет только PCM формат, хотя в принципе можно было бы декодировать мп3 с помощью acm* ф-ций, только вот не представляю как там возиться с потоками. Единственное не пойму почему waveOutWrite не играет звук с измененной амплитудой, как в примере. Вобщем тема актуальна и я буду полюбому с ней возиться. (я делаю криптовалку авишек чтобы их не воровали а именно криптовалку звуковой дорожки, это у меня на работе такая задача)

[Gotha]

fmod это примерно тоже самое что и bass. вместо звука получается шипение, скорее всего что-то с форматом звукового буфера. кто может подсказать, какая структура буфера - там только чистые данные или есть еще и заголовок какой? (при AVIStreamRead звуковой дорожки)

[alibek]

Флуд удален.

[Gotha]

Ок, решил решать задачу путем directsound'а. Сей интерфейс играет звук в PCM формате поэтому пытаюсь декодировать его из мп3 audio compression manager api функциями. Странно, все проходит без ошибок и размер выходного буфера изменяется на количество сконвертированных байт, но сам выходной буффер забит нулями. Отчего это?

вот функция конвертирования. апи не декларировал, а остальное вроде все есть.

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

Public Function Convert(ByVal lngInLen As Long, lngInUsed() As Byte) As Byte()
    Dim hStream&, lngRet&
    Dim udtHdr As ACMSTREAMHEADER
    Dim whdr As WAVEHDR
    Dim lngOutUsed() As Byte, lngOutLen&
   
    pwFXout.wFormatTag = WAVE_FORMAT_PCM
    pwFXout.nSamplesPerSec = wfx.nSamplesPerSec
    pwFXout.wBitsPerSample = 16
    pwFXout.nChannels = 1
   
   
    If (acmFormatSuggest(0, wfx, pwFXout, Len(pwFXout), ACM_FORMATSUGGESTF_WFORMATTAG Or ACM_FORMATSUGGESTF_NSAMPLESPERSEC Or ACM_FORMATSUGGESTF_WBITSPERSAMPLE Or ACM_FORMATSUGGESTF_NCHANNELS) = 0) Then
        If (acmStreamOpen(hStream, 0&, wfx, pwFXout, 0&, 0&, 0&, 0&) = 0) Then
            lngOutLen = 0
            If (acmStreamSize(hStream, lngInLen, lngOutLen, ACM_STREAMSIZEF_SOURCE) = 0) Then
                ReDim lngOutUsed(lngOutLen - 1) As Byte
               
                With udtHdr
                    .cbStruct = Len(udtHdr)
                    .cbSrcLength = lngInLen
                    .pbSrc = VarPtr(lngInUsed(0))
                    .cbDstLength = lngOutLen
                    .pbDst = VarPtr(lngOutUsed(0))
                End With
               
           
                lngRet = acmStreamPrepareHeader(hStream, udtHdr, 0&)
           
                If (acmStreamConvert(hStream, udtHdr, &H4&) <> 0) Then
                     MsgBox "Error!"
                End If
           
                lngRet = acmStreamUnprepareHeader(hStream, udtHdr, 0&)
            End If
           
            If (udtHdr.cbDstLengthUsed > 0) Then ReDim Preserve lngOutUsed(udtHdr.cbDstLengthUsed - 1) As Byte
           
            acmStreamClose hStream, 0
            Convert = lngOutUsed
        End If
    End If
End Function

что-то в последнее время в разделе профи тихо, неужто все еще восьмое отмечаем?