Voice over UDP problem

[Stargazers]

Hi.

I am trying to record from waveIn and send that data over UDP to another computer and play it there. Recording short sample work's perfectly (I use API calls waveInOpen, waveInPrepareHeader etc), so that is not the problem.

Then if I play that recorded short sample using API calls (waveOutOpen, waveOutPrepareHeader etc) it works fine. So that is not the problem also.

The problem comes when I try to send that voice to another computer using UDP.

My voice is in User Defined Type "WAVEHDR". So, when I send it, I use this:

Dim bData() As Byte
ReDim bData(Len(waveHeader)) As Byte

CopyMemory ByVal VarPtr(bData(0)), ByVal VarPtr(waveHeader), Len(waveHeader)

 Winsock1.SendData bData

Then, in another computer it get it using this code:

Dim rc As Long
Dim dData() As Byte
    
Winsock1.GetData dData, vbArray + vbByte
    
CopyMemory ByVal VarPtr(wAlamolo), ByVal VarPtr(dData(0)), Len(wAlamolo)

wAlamolo is defined as WAVEHDR in that computer.

When I compare values before and after send, both seems to be fine.
So, it seems that all values are transferred without any problems.

But, when I then try to play that data from wAlamolo, I can hear strange noise. Totally strange noise.

What can be wrong? Any ideas?

All help are welcome