Ну если ты делаешь слушалку (всмысле принимаешь входящий сигнал) так как думаю я (это через чистое АПИ, как я понял ставишь хук на входящий сигнал и по хукному событию вскрываешь масиив, работающий как буфер), то всё просто - сохраняй массив. Только вот занимать такой звук будет - мама не горюй, поэтому, имхо, лучше сразу перекидывать по сети. Я по ходу думал сделать прогу, с помощью которой можно было бы при игре в Unreal переговариваться через наушники и микрофон (всмысле людям в разных комнатах), но потом охладел к стрелялкам.

Но по-моему это вполне возможно...

Ответить

Таких программ тьма, поэтому это, конечно, вполне возможно.

Ответить

Ответить

Вообщем на форме 2 кнопики Command1 and Command2, вот код:

Sub CloseSound()
    Dim Result&
    Dim errormsg%
    Dim ReturnString As String * 1024
    Dim ErrorString As String * 1024
    Result& = mciSendString("close mysound", ReturnString, 1024, 0)
End Sub

Sub RecordSound()
'записать звук с микрофона (6 сек.)
    Dim Result&
    Dim errormsg%
    Dim ReturnString As String * 1024
    Dim ErrorString As String * 1024
    CloseSound
    Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1024, 0)
    If Not Result& = 0 Then
        errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
        MsgBox ErrorString, 0, "Error"
        Exit Sub
    End If
    Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1024, 0)
    If Not Result& = 0 Then
        errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
        MsgBox ErrorString, 0, "Error"
        Exit Sub
    End If
    Result& = mciSendString("record mysound to 60000", ReturnString, 1024, 0)
    If Not Result& = 0 Then
        errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
        MsgBox ErrorString, 0, "Error"
        Exit Sub
    End If
End Sub

Sub PlayRecSound()
    Dim Result&
    Dim errormsg%
    Dim ReturnString As String * 1024
    Dim ErrorString As String * 1024
    Result& = mciSendString("stop mysound", ReturnString, 1024, 0)
    If Not Result& = 0 Then
        errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
        MsgBox ErrorString, 0, "Error"
    End If
    Result& = mciSendString("play mysound from 1 wait", ReturnString, 1024, 0)
    If Not Result& = 0 Then
        errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
        MsgBox ErrorString, 0, "Error"
    End If
End Sub

Private Sub Command1_Click()
RecordSound
End Sub

Private Sub Command2_Click()
Call PlayRecSound
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseSound
End Sub

-------------------------------------------------------------------

И маленький модуль:

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
-------------------------------------------------------

И как с этой штукой работать - просто НЕЗНАЮ

Ответить

Ответить

Зачем его сохранять, если это строка? Судя по всему, ReturnString используется как для записи, так и для воспроизведения звука, попробуй тупо передавать ее через сокет на другой комп, а тот пусть воспроизводит. Только я не знаю, как заставить сокет передавать данные без пауз, чтобы сообщение можно было нормально прослушать, без глюков.

Ответить

Ответить

Положись на протокол TCP/IP. Если будут паузы, просто уменьши битрейт.

Ответить

Ответить

Ответить

Ответить

Ответить

Ответить

Ответить

Ответить