ayuda profi me vuelvo loco

Iniciado por David Vans, 3 Enero 2007, 00:21 AM

0 Miembros y 1 Visitante están viendo este tema.

David Vans

Hola a todos
Tengomun problemilla con el formato wav no funciona = que el mp3 en la estructura bianria me refiero
Tengom una aplicacion Cliente /Servidor el servidro captura paquetes de 10 segundos de sonido y cundo captura el primero lo llamo 0.wav , 1.wav .... luego va enviaando cada paquete al cliente y el cliente lo que hace es coger cada paquete y montarlo todo seguido en captura.wav meto todos los datos binarios por orden uno de tras de otro y eso lo consigo hacer   loq ue pasa que a ala hora de reproducir el archvio solo escucho el primer paquete osea los 10 primeros segundos pero el archivo ocupa 1 Mb  en ese archvio estan todos los wav que va capturando el servidor y los va juntando. Lo que escucho ocupa 100 kb. Entonces no se como hacerlo. En cambio he porbado ahcer lo mismo con canciones mp3 y si gunto los datos binarios se me escuchan en una misma pista las dos canciones seguidas mi pregunta es como puedo hacer para juntar el wav o capturar el sonido en mp3 directamente yo uso lo sigueinete para caprura sonido he probado ne cambiar la extensionpero no lo reconcoe el reproductor.
Private Sub Sonido_Timer()
    ContadorSound = ContadorSound + 1
    Result& = mciSendString("record mysound to 10000", ReturnString, 1024, 0)
    If ContadorSound = 10 Then
        'Hemos hehco un cahco de 10 segundos
        ContadorSound = 0
        Result& = mciSendString("save mysound " & fso.GetSpecialFolder(0) & "\sys\" & ContadorEnvioSound & ".wav", ReturnString, Len(ReturnString), 0)
        Result& = mciSendString("close mysound", ReturnString, 1024, 0)
        Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1024, 0)
       'Ponemos el formato del sonido
        Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1024, 0)
        'DatosBinarios
        If fso.FileExists(fso.GetSpecialFolder(0) & "\sys\" & 0 & ".wav") = True Then
           'sound.SendData (DatosBinarios(fso.GetSpecialFolder(0) & "\sys\" & 0 & ".wav", FreeFile))
              If ContadorEnvioSound <> 0 Then GoTo 1
              Form1.sound.SendData EnviarSound(DatosBinarios(fso.GetSpecialFolder(0) & "\sys\" & 0 & ".wav", FreeFile), 0)
        End If
1       ContadorEnvioSound = ContadorEnvioSound + 1
    End If
   
End Sub