Direct Sound

[Kiryusha]

hi, all!
Нужна помощь!
Вобщем дело в следующем, на серверной программе я получаю аудио буфер из созданного файла, затем получаю инфу по этому буферу и данные из него. Далее в клиентской части программы я создаю буфффер с теми же параметрами, перекидываю все данные из серверного буфера по винсоку. Записываю их в клиентский буфер и проигрываю его.
Проигрывается ОЧЕНЬ мягко говоря совсем не то.
Данные я сверял они доходят абсолютно правильными, поэтому из-за чего такое дело я не знаю...
У кого какие идеи?

[Денис]

А если клиент и сервер запущены на одной машине?
Если данные проигрываются, то проблема в винсокете...

[Kiryusha]

Я итак тесты проводил только на своем компе;
И с винсоком все в порядке я же сказал данные доходят правильно, я проверял.

[DirectXManiac]

Kiryusha
Знчит проблема в проигрывании... Покажи код, как ты проигрываешь, как передаёшь, как получаешь

[Kiryusha]

Это процедура обновления буфера

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

    Private Function RefreshBuffer() As Boolean
        On Error GoTo ERRLABEL
       
        If BufSize <= MaxBufSize Then
            dsBuf.WriteBuffer 0, BufSize, Buffer, DxVBLibA.CONST_DSBLOCKFLAGS.DSBLOCK_DEFAULT
            RefreshBuffer = True
            BufSize = 0
            Buffer = ""
        Else
            dsBuf.WriteBuffer 0, MaxBufSize, Buffer, DxVBLibA.CONST_DSBLOCKFLAGS.DSBLOCK_DEFAULT
            RefreshBuffer = True
            BufSize = BufSize - MaxBufSize
            Buffer = Mid(Buffer, MaxBufSize + 1)
        End If
        Exit Function


А это для вызова предыдущей, и старта воспроизведения.
Эвент стоит на конец воспроизведения

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

   
Private Sub DirectXEvent8_DXCallBack(ByVal eventid As Long)
        Dim pi As RADIO_PROTOCOL_T
   
        If RefreshBuffer Then
            dsBuf.Play DSBPLAY_DEFAULT
        End If
        'RefreshBuffer
        With pi
            .lCommand = 1
            .lSize = 0
            .dwFlags = 0
            .Data = ""
        End With
        wskClient.SendData Create_Package(pi)
    End Sub